From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 17591 invoked by alias); 23 Sep 2018 11:57:20 -0000 Mailing-List: contact gcc-patches-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-patches-owner@gcc.gnu.org Received: (qmail 17571 invoked by uid 89); 23 Sep 2018 11:57:19 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-24.6 required=5.0 tests=AWL,BAYES_00,FREEMAIL_FROM,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=twice, rse.pre, UD:rse.pre, rsepre X-HELO: mail-yb1-f170.google.com Received: from mail-yb1-f170.google.com (HELO mail-yb1-f170.google.com) (209.85.219.170) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Sun, 23 Sep 2018 11:57:18 +0000 Received: by mail-yb1-f170.google.com with SMTP id d14-v6so2125935ybs.8; Sun, 23 Sep 2018 04:57:18 -0700 (PDT) DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/relaxed; d=gmail.com; s=20161025; h=mime-version:from:date:message-id:subject:to; bh=Wxt79+eZXZUpgD6IZAJiXkl5QrosCeqQzp5JTkUOLZA=; b=m+CJLBrlQNtImtEY1nUnSBu9TUrY5OiPRuLseuFDKAZERjqxF+boYotwNTqZomgCMx HZtpiU5ReCmU1l/x/hZpvxzDnDMNix5/2OO6NpgVIjaOTM/ApOjhdMej+6mZnLK0dF2k LzrahlrLv8G12gNoQA/R6NkFLPLQBXlsXl6yYoMJULQsAxA6SxUd18XX4ju6oASlu2Fe fs7Akpy6FDzscSfHMkAkTMy6KHCobMQHZQNRdOadr5ndF52v5NbRUmmYLU1vcgy94g+n YKAnskbAYCSoRTpYb3fL82upHLlrvWLYAq0A+7uTTXXMQvy4HlxUEn8oPsvNlaF3mhlT EjzA== MIME-Version: 1.0 Received: by 2002:a81:7a4b:0:0:0:0:0 with HTTP; Sun, 23 Sep 2018 04:57:15 -0700 (PDT) From: Paul Richard Thomas Date: Sun, 23 Sep 2018 12:27:00 -0000 Message-ID: Subject: [Patch, fortran] PR65677 - Incomplete assignment on deferred-length character variable To: "fortran@gcc.gnu.org" , gcc-patches Content-Type: multipart/mixed; boundary="000000000000f4ab9b057688927d" X-SW-Source: 2018-09/txt/msg01300.txt.bz2 --000000000000f4ab9b057688927d Content-Type: text/plain; charset="UTF-8" Content-length: 578 This is yet another deferred character length problem that this time is caused by a dependency in assignment between lhs and rhs string_lengths. The comment in the testcase explains all. Bootstraps and regtests on FC21/x86_64 - OK for trunk and 8-branch? I cannot commit until next week. Paul 2018-09-23 Paul Thomas PR fortran/65667 * trans-expr.c (gfc_trans_assignment_1): If there is dependency fix the rse stringlength. 2018-09-23 Paul Thomas PR fortran/65667 * gfortran.dg/dependency_52.f90 : New test. --000000000000f4ab9b057688927d Content-Type: text/x-patch; charset="US-ASCII"; name="submit.diff" Content-Disposition: attachment; filename="submit.diff" Content-Transfer-Encoding: base64 X-Attachment-Id: f_jmet5blk0 Content-length: 968 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL3RyYW5zLWV4cHIuYyBiL2djYy9m b3J0cmFuL3RyYW5zLWV4cHIuYwppbmRleCAxNDUzODI4Li42YTA1NDEyIDEw MDY0NAotLS0gYS9nY2MvZm9ydHJhbi90cmFucy1leHByLmMKKysrIGIvZ2Nj L2ZvcnRyYW4vdHJhbnMtZXhwci5jCkBAIC0xMDE4Nyw3ICsxMDE4NywxMSBA QCBnZmNfdHJhbnNfYXNzaWdubWVudF8xIChnZmNfZXhwciAqIGV4cHIxLCBn ZmNfZXhwciAqIGV4cHIyLCBib29sIGluaXRfZmxhZywKIAkgICB8fCBUUkVF X0NPREUgKHJzZS5zdHJpbmdfbGVuZ3RoKSA9PSBJTkRJUkVDVF9SRUYpKQog ICAgIHN0cmluZ19sZW5ndGggPSBnZmNfZXZhbHVhdGVfbm93IChyc2Uuc3Ry aW5nX2xlbmd0aCwgJnJzZS5wcmUpOwogICBlbHNlIGlmIChleHByMi0+dHMu dHlwZSA9PSBCVF9DSEFSQUNURVIpCi0gICAgc3RyaW5nX2xlbmd0aCA9IHJz ZS5zdHJpbmdfbGVuZ3RoOworICAgIHsKKyAgICAgIGlmIChleHByMS0+dHMu ZGVmZXJyZWQgJiYgZ2ZjX2NoZWNrX2RlcGVuZGVuY3kgKGV4cHIxLCBleHBy MiwgZmFsc2UpKQorCXJzZS5zdHJpbmdfbGVuZ3RoID0gZ2ZjX2V2YWx1YXRl X25vdyAocnNlLnN0cmluZ19sZW5ndGgsICZyc2UucHJlKTsKKyAgICAgIHN0 cmluZ19sZW5ndGggPSByc2Uuc3RyaW5nX2xlbmd0aDsKKyAgICB9CiAgIGVs c2UKICAgICBzdHJpbmdfbGVuZ3RoID0gTlVMTF9UUkVFOwogCg== --000000000000f4ab9b057688927d Content-Type: text/x-fortran; charset="US-ASCII"; name="dependency_52.f90" Content-Disposition: attachment; filename="dependency_52.f90" Content-Transfer-Encoding: base64 X-Attachment-Id: f_jmet5h481 Content-length: 1611 ISB7IGRnLWRvIHJ1biB9CiEKISBUZXN0IHRoZSBmaXggZm9yIFBSNjU2Njcs IGluIHdoaWNoIHRoZSBkZXBlbmRlbmN5IHdhcyBtaXNzZWQgYW5kCiEgdGhl IHN0cmluZyBsZW5ndGggb2YgJ3RleHQnIHdhcyBkZWNyZW1lbnRlZCB0d2lj ZS4gVGhlIHJocyBzdHJpbmcKISBsZW5ndGggaXMgbm93IGZpeGVkIGFmdGVy IHRoZSBmdW5jdGlvbiBjYWxsIHNvIHRoYXQgdGhlIGRlcGVuZGVuY3kKISBv biB0aGUgbGVuZ3RoIG9mICd0ZXh0JyBpcyByZW1vdmVkIGZvciBsYXRlciBl dmFsdWF0aW9ucy4KIQohQ29udHJpYnV0ZWQgYnkgSm9obiAgPGp3bXdhbHJ1 c0BnbWFpbC5jb20+CiEKbW9kdWxlIG1vZDEKICAgIGltcGxpY2l0IG5vbmUK Y29udGFpbnMKICAgIHN1YnJvdXRpbmUgZ2V0S2V5d29yZChzdHJpbmcsIGtl eXdvcmQsIHJlc3QpCiAgICAgICAgY2hhcmFjdGVyKDopLCBhbGxvY2F0YWJs ZSwgaW50ZW50KElOKSA6OiBzdHJpbmcKICAgICAgICBjaGFyYWN0ZXIoOiks IGFsbG9jYXRhYmxlLCBpbnRlbnQoT1VUKSA6OiBrZXl3b3JkLCByZXN0CiAg ICAgICAgaW50ZWdlciA6OiBpZHgKICAgICAgICBjaGFyYWN0ZXIoOiksIGFs bG9jYXRhYmxlIDo6IHRleHQKCiAgICAgICAga2V5d29yZCA9ICcnCiAgICAg ICAgcmVzdCA9ICcnCiAgICAgICAgdGV4dCA9IHN0cmluZwogICAgICAgIHRl eHQgPSBBREpVU1RMKHRleHQoMjopKSAgICAhIE5vdGUgZGVwZW5kZW5jeS4K ICAgICAgICBpZHggPSBJTkRFWCh0ZXh0LCAnICcpCgogICAgICAgIGlmIChp ZHggPT0gMCkgdGhlbgogICAgICAgICAgICBrZXl3b3JkID0gVFJJTSh0ZXh0 KQogICAgICAgIGVsc2UKICAgICAgICAgICAga2V5d29yZCA9IHRleHQoOmlk eC0xKQogICAgICAgICAgICByZXN0ID0gVFJJTShBREpVU1RMKHRleHQoaWR4 KzE6KSkpCiAgICAgICAgZW5kaWYKICAgIGVuZCBzdWJyb3V0aW5lCmVuZCBt b2R1bGUgbW9kMQoKICAgIHVzZSBtb2QxCiAgICBpbXBsaWNpdCBub25lCgog ICAgY2hhcmFjdGVyKDopLCBhbGxvY2F0YWJsZSA6OiBsaW5lLCBrZXl3b3Jk LCByZXN0CgogICAgbGluZSA9ICdASEVSRSAgICBJVCBJUycKCiAgICBjYWxs IGdldEtleXdvcmQobGluZSwga2V5d29yZCwgcmVzdCkKCiAgICBpZiAoa2V5 d29yZCAubmUuICdIRVJFJykgc3RvcCAxCiAgICBpZiAocmVzdCAubmUuICdJ VCBJUycpIHN0b3AgMgplbmQK --000000000000f4ab9b057688927d--