From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 112040 invoked by alias); 25 Sep 2018 16:43:50 -0000 Mailing-List: contact fortran-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Subscribe: List-Post: List-Help: , Sender: fortran-owner@gcc.gnu.org Received: (qmail 112022 invoked by uid 89); 25 Sep 2018 16:43:50 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-24.7 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=forty, dream 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; Tue, 25 Sep 2018 16:43:48 +0000 Received: by mail-yb1-f170.google.com with SMTP id x5-v6so461990ybl.11; Tue, 25 Sep 2018 09:43:48 -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=YKXgFytKXXWuVqFsa1F4W3ApGvD34jkJQV3olZD2ZuA=; b=Dsb45eUuQ1dn0/t4GPaTw+lk99AbohSSICBPGHl6aI01PVHoJALGGwVsApsxYOvcjn IZkdl5bsdYEzGnVSiot3KdJQuiD7YYSxez7xqSJJnL2LmBqIrEgnw2uw6NvGN7D1uhyW tb3pcwI6c6u0tcDQ5u8Nk4qlY30wijS5SbLC+iiAgddVgJbQ83519Jo73RqPVP4Eh3N/ Z8L4Khq+Dh9hIJ2LU0IjzXA4ebj+zrLIA0pTgjYcE5G2Mic1Fb0egIFYrvTPIL94Dg/o 2sOFgf6pJkQEg1Hf1hsJ4yhiqEO2F4M+p6ojWClb9Y/az2Yii93za3xNXXbSeBOQEJ2Q +2mA== MIME-Version: 1.0 Received: by 2002:a81:7a4b:0:0:0:0:0 with HTTP; Tue, 25 Sep 2018 09:43:45 -0700 (PDT) From: Paul Richard Thomas Date: Tue, 25 Sep 2018 16:43:00 -0000 Message-ID: Subject: [Patch, fortran] PR70149 - [F08] Character pointer initialization causes ICE To: "fortran@gcc.gnu.org" , gcc-patches Content-Type: multipart/mixed; boundary="0000000000003bfb6f0576b4cf9f" X-IsSubscribed: yes X-SW-Source: 2018-09/txt/msg00203.txt.bz2 --0000000000003bfb6f0576b4cf9f Content-Type: text/plain; charset="UTF-8" Content-length: 559 This is yet another deferred length character bug. The fix speaks for itself. I'll dream up a more suitable name for the testcase before committing. Bootstraps and regtests on FC21/x86_64 - OK for trunk and 8-branch? Paul 2018-09-25 Paul Thomas PR fortran/70149 * trans-decl.c (gfc_get_symbol_decl): A deferred character length pointer that is initialized needs the string length to be initialized as well. 2018-09-25 Paul Thomas PR fortran/70149 * gfortran.dg/pr70149.f90 : New test. --0000000000003bfb6f0576b4cf9f 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_jmhy8yyt0 Content-length: 1029 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL3RyYW5zLWRlY2wuYyBiL2djYy9m b3J0cmFuL3RyYW5zLWRlY2wuYwppbmRleCAxNTljM2RiYi4uZjc1NjhkNSAx MDA2NDQKLS0tIGEvZ2NjL2ZvcnRyYW4vdHJhbnMtZGVjbC5jCisrKyBiL2dj Yy9mb3J0cmFuL3RyYW5zLWRlY2wuYwpAQCAtMTc1OSw3ICsxNzU5LDE3IEBA IGdmY19nZXRfc3ltYm9sX2RlY2wgKGdmY19zeW1ib2wgKiBzeW0pCiAgICAg ICAmJiBUUkVFX0NPREUgKHN5bS0+dHMudS5jbC0+YmFja2VuZF9kZWNsKSAh PSBJTkRJUkVDVF9SRUYpCiAgICAgewogICAgICAgZ2ZjX2ZpbmlzaF92YXJf ZGVjbCAobGVuZ3RoLCBzeW0pOwotICAgICAgZ2NjX2Fzc2VydCAoIXN5bS0+ dmFsdWUpOworICAgICAgaWYgKCFzeW0tPmF0dHIuYXNzb2NpYXRlX3Zhcgor CSAgJiYgVFJFRV9DT0RFIChsZW5ndGgpID09IFZBUl9ERUNMCisJICAmJiBz eW0tPnZhbHVlICYmIHN5bS0+dmFsdWUtPnRzLnUuY2wtPmxlbmd0aCkKKwl7 CisJICBnZmNfZXhwciAqbGVuID0gc3ltLT52YWx1ZS0+dHMudS5jbC0+bGVu Z3RoOworCSAgREVDTF9JTklUSUFMIChsZW5ndGgpID0gZ2ZjX2NvbnZfaW5p dGlhbGl6ZXIgKGxlbiwgJmxlbi0+dHMsCisJCQkJCQkJVFJFRV9UWVBFIChs ZW5ndGgpLAorCQkJCQkJCWZhbHNlLCBmYWxzZSwgZmFsc2UpOworCX0KKyAg ICAgIGVsc2UKKwlnY2NfYXNzZXJ0ICghc3ltLT52YWx1ZSk7CiAgICAgfQog CiAgIGdmY19maW5pc2hfdmFyX2RlY2wgKGRlY2wsIHN5bSk7Cg== --0000000000003bfb6f0576b4cf9f Content-Type: text/x-fortran; charset="US-ASCII"; name="pr70149.f90" Content-Disposition: attachment; filename="pr70149.f90" Content-Transfer-Encoding: base64 X-Attachment-Id: f_jmhy95771 Content-length: 720 ISB7IGRnLWRvIHJ1biB9CiEKISBUZXN0IHRoZSBmaXggZm9yIFBSNzAxNDkg aW4gd2hpY2ggdGhlIHN0cmluZyBsZW5ndGggZm9yCiEgJ251bWJlcl9zdHJp bmcnIHdhcyBub3QgaW5pdGlhbGl6ZWQuCiEKISBDb250cmlidXRlZCBieSBX YWx0ZXIgU3BlY3RvciAgPHc2d3NAZWFydGhsaW5rLm5ldD4KIQptb2R1bGUg bXlwdHJfbW9kCiAgaW1wbGljaXQgbm9uZQoKICBpbnRlZ2VyLCB0YXJnZXQs IHNhdmUgOjogaW50X2RhdGEgPSA0MgogIGNoYXJhY3RlcigxNiksIHRhcmdl dCwgc2F2ZSA6OiBjaGFyX2RhdGEgPSAnZm9ydHkgdHdvJwoKICBpbnRlZ2Vy LCBwb2ludGVyIDo6IG51bWJlciA9PiBpbnRfZGF0YQogIGNoYXJhY3Rlcig6 KSwgcG9pbnRlciA6OiBudW1iZXJfc3RyaW5nID0+IGNoYXJfZGF0YQoKZW5k IG1vZHVsZQoKICB1c2UgbXlwdHJfbW9kCiAgaWYgKExFTiAobnVtYmVyX3N0 cmluZykgLm5lLiAxNikgc3RvcCAxCiAgaWYgKHRyaW0gKG51bWJlcl9zdHJp bmcpIC5uZS4gJ2ZvcnR5IHR3bycpIHN0b3AgMgplbmQKCg== --0000000000003bfb6f0576b4cf9f--