From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 105010 invoked by alias); 3 Sep 2018 19:19:35 -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 104934 invoked by uid 89); 3 Sep 2018 19:19:32 -0000 Authentication-Results: sourceware.org; auth=none X-Spam-SWARE-Status: No, score=-23.8 required=5.0 tests=AWL,BAYES_00,FREEMAIL_ENVFROM_END_DIGIT,FREEMAIL_FROM,GIT_PATCH_0,GIT_PATCH_1,GIT_PATCH_2,GIT_PATCH_3,KAM_NUMSUBJECT,RCVD_IN_DNSWL_NONE,SPF_PASS autolearn=ham version=3.3.2 spammy=HX-HELO:sk:mail-yw, HX-Received:a81, janus, iso_c_binding X-HELO: mail-yw1-f45.google.com Received: from mail-yw1-f45.google.com (HELO mail-yw1-f45.google.com) (209.85.161.45) by sourceware.org (qpsmtpd/0.93/v0.84-503-g423c35a) with ESMTP; Mon, 03 Sep 2018 19:19:30 +0000 Received: by mail-yw1-f45.google.com with SMTP id 14-v6so473155ywe.2; Mon, 03 Sep 2018 12:19:30 -0700 (PDT) MIME-Version: 1.0 From: Janus Weil Date: Mon, 03 Sep 2018 19:19:00 -0000 Message-ID: Subject: [Patch, Fortran] PR 87172: [9 Regression] Spurious "Derived type 'c_funptr' at (1) has not been declared" error after r263782 To: gfortran , gcc-patches Content-Type: multipart/mixed; boundary="00000000000090cb1a0574fc6b8a" X-IsSubscribed: yes X-SW-Source: 2018-09/txt/msg00011.txt.bz2 --00000000000090cb1a0574fc6b8a Content-Type: text/plain; charset="UTF-8" Content-length: 622 Hi all, attached is a simple patch that fixes a regression which was introduced by one of my recent commits (spotted by Dominique). My first impulse to fix the spurious error was to check for the 'intrinsic' attribute, however it is actually not set (yet?) in resolve_fl_derived, so the next-best thing is to check for 'use_assoc'. That is probably even better, since it's more general. Obviously, if a type has the 'use_assoc' attribute, then it has been declared in another module, so there is no need to complain that it was not declared. The patch regtests cleanly on x86_64-linux-gnu. Ok for trunk? Cheers, Janus --00000000000090cb1a0574fc6b8a Content-Type: text/x-patch; charset="US-ASCII"; name="pr87172.diff" Content-Disposition: attachment; filename="pr87172.diff" Content-Transfer-Encoding: base64 Content-ID: X-Attachment-Id: f_jlmo3tl00 Content-length: 2644 ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL0NoYW5nZUxvZyBiL2djYy9mb3J0 cmFuL0NoYW5nZUxvZwppbmRleCBjMzg2YTY0OTU4My4uOGRhZDlkMzVlYWYg MTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL0NoYW5nZUxvZworKysgYi9nY2Mv Zm9ydHJhbi9DaGFuZ2VMb2cKQEAgLTEsMyArMSwxMCBAQAorMjAxOC0wOS0w MyAgSmFudXMgV2VpbCAgPGphbnVzQGdjYy5nbnUub3JnPgorCisJUFIgZm9y dHJhbi84NzE3MgorCSogcmVzb2x2ZS5jIChyZXNvbHZlX2ZsX2Rlcml2ZWQp OiBJZiBhIHR5cGUgaGFzIHRoZSAndXNlX2Fzc29jJworCWF0dHJpYnV0ZSwg dGhlbiBpdCB3YXMgZGVjbGFyZWQgaW4gYW5vdGhlciBtb2R1bGUsIHNvIHRo ZXJlIHNob3VsZCBiZQorCW5vIGVycm9yIHRoYXQgaXQgaGFzIG5vdCBiZWVu IGRlY2xhcmVkLgorCiAyMDE4LTA4LTMxICBQYXVsIFRob21hcyAgPHBhdWx0 QGdjYy5nbnUub3JnPgogCiAJUFIgZm9ydHJhbi84NjMyOApkaWZmIC0tZ2l0 IGEvZ2NjL2ZvcnRyYW4vcmVzb2x2ZS5jIGIvZ2NjL2ZvcnRyYW4vcmVzb2x2 ZS5jCmluZGV4IGRlZDI3NjI0MjgzLi5lYTBjZTgwMDc0MyAxMDA2NDQKLS0t IGEvZ2NjL2ZvcnRyYW4vcmVzb2x2ZS5jCisrKyBiL2djYy9mb3J0cmFuL3Jl c29sdmUuYwpAQCAtMTQyNDUsNyArMTQyNDUsNyBAQCByZXNvbHZlX2ZsX2Rl cml2ZWQgKGdmY19zeW1ib2wgKnN5bSkKIAkJCSAgJnN5bS0+ZGVjbGFyZWRf YXQpKQogICAgIHJldHVybiBmYWxzZTsKIAotICBpZiAoc3ltLT5jb21wb25l bnRzID09IE5VTEwgJiYgIXN5bS0+YXR0ci56ZXJvX2NvbXApCisgIGlmIChz eW0tPmNvbXBvbmVudHMgPT0gTlVMTCAmJiAhc3ltLT5hdHRyLnplcm9fY29t cCAmJiAhc3ltLT5hdHRyLnVzZV9hc3NvYykKICAgICB7CiAgICAgICBnZmNf ZXJyb3IgKCJEZXJpdmVkIHR5cGUgJXFzIGF0ICVMIGhhcyBub3QgYmVlbiBk ZWNsYXJlZCIsCiAJCSAgc3ltLT5uYW1lLCAmc3ltLT5kZWNsYXJlZF9hdCk7 CmRpZmYgLS1naXQgYS9nY2MvdGVzdHN1aXRlL0NoYW5nZUxvZyBiL2djYy90 ZXN0c3VpdGUvQ2hhbmdlTG9nCmluZGV4IGI0NGM3MTRkN2QyLi5kYTI2N2Rl NjRlZiAxMDA2NDQKLS0tIGEvZ2NjL3Rlc3RzdWl0ZS9DaGFuZ2VMb2cKKysr IGIvZ2NjL3Rlc3RzdWl0ZS9DaGFuZ2VMb2cKQEAgLTEsMyArMSw4IEBACisy MDE4LTA5LTAzICBKYW51cyBXZWlsICA8amFudXNAZ2NjLmdudS5vcmc+CisK KwlQUiBmb3J0cmFuLzg3MTcyCisJKiBnZm9ydHJhbi5kZy9pc29fY19iaW5k aW5nX29ubHlfMi5mOTA6IE5ldyB0ZXN0IGNhc2UuCisKIDIwMTgtMDktMDMg IFJpY2hhcmQgQmllbmVyICA8cmd1ZW50aGVyQHN1c2UuZGU+CiAKIAlQUiB0 cmVlLW9wdGltaXphdGlvbi84NzIwMApkaWZmIC0tZ2l0IGEvZ2NjL3Rlc3Rz dWl0ZS9nZm9ydHJhbi5kZy9pc29fY19iaW5kaW5nX29ubHlfMi5mOTAgYi9n Y2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2lzb19jX2JpbmRpbmdfb25seV8y LmY5MApuZXcgZmlsZSBtb2RlIDEwMDY0NAppbmRleCAwMDAwMDAwMDAwMC4u MDNmYWZlM2Y1Y2IKLS0tIC9kZXYvbnVsbAorKysgYi9nY2MvdGVzdHN1aXRl L2dmb3J0cmFuLmRnL2lzb19jX2JpbmRpbmdfb25seV8yLmY5MApAQCAtMCww ICsxLDE0IEBACishIHsgZGctZG8gY29tcGlsZSB9CishCishIFBSIDg3MTcy OiBbOSBSZWdyZXNzaW9uXSBTcHVyaW91cyAiRGVyaXZlZCB0eXBlICdjX2Z1 bnB0cicgYXQgKDEpIGhhcyBub3QgYmVlbiBkZWNsYXJlZCIgZXJyb3IgYWZ0 ZXIgcjI2Mzc4MgorIQorISBDb250cmlidXRlZCBieSBEb21pbmlxdWUgZCdI dW1pZXJlcyA8ZG9taW5pcUBscHMuZW5zLmZyPgorCittb2R1bGUgbTEKKyAg IHVzZSBpc29fY19iaW5kaW5nLCBvbmx5OiBjX2Z1bnB0cgorZW5kIG1vZHVs ZQorCittb2R1bGUgbTIKKyAgdXNlIG0xCisgIHVzZSBpc29fY19iaW5kaW5n CitlbmQgbW9kdWxlCg== --00000000000090cb1a0574fc6b8a--