From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from impout001.msg.chrl.nc.charter.net (impout001aa.msg.chrl.nc.charter.net [47.43.20.25]) by sourceware.org (Postfix) with ESMTPS id 4F1123858022; Wed, 17 Feb 2021 03:02:38 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.3.2 sourceware.org 4F1123858022 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=charter.net Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=jvdelisle@charter.net Received: from [192.168.1.9] ([96.41.221.129]) by cmsmtp with ESMTPA id CD6ql1qRmSG5rCD6qlC2w6; Wed, 17 Feb 2021 03:02:37 +0000 Authentication-Results: charter.net; none X-Authority-Analysis: v=2.3 cv=a+6ECnaF c=1 sm=1 tr=0 a=07pILqX15KmGv9ZXTMmBNA==:117 a=07pILqX15KmGv9ZXTMmBNA==:17 a=r77TgQKjGQsHNAKrUKIA:9 a=yIG6QUXBZfRjFse784AA:9 a=QEXdDO2ut3YA:10 a=_EByWWZmb12sHerRaTsA:9 a=De_Ol2h6w80A:10 a=Z5ABNNGmrOfJ6cZ5bIyy:22 a=jd6J4Gguk5HxikPWLKER:22 To: gfortran Cc: gcc-patches From: Jerry DeLisle Subject: [patch, fortran] PR96686 Namelist group objects shall be defined before appearing in namelist Message-ID: <61fc2d13-04fc-0262-578a-b3f48d130589@charter.net> Date: Tue, 16 Feb 2021 19:02:35 -0800 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:78.0) Gecko/20100101 Thunderbird/78.7.0 MIME-Version: 1.0 Content-Type: multipart/mixed; boundary="------------E46C6E1B647978A9AAEDAB1C" Content-Language: en-US X-CMAE-Envelope: MS4wfNrnFX8HGdDL+GC6h6e1qI7UeGd+3qKlRfdQ3bNv16OF5rMs6miWowQNdjiZsuvwrygFBCJ7ET6qfrY31RdgbBYeRuQ7H16yxEOMLBub7Fznkn49cccG SkNBNyRAJvUTbN25FnVhD01N8J7+g8ZtUaC/9Ze5zf7B69+1MFNRxxVoPBvCcFe2FFS+Lakk2JXeaYIFLaZxki4+QlwAkSJJLnw= X-Spam-Status: No, score=-9.1 required=5.0 tests=BAYES_00, FREEMAIL_FROM, GIT_PATCH_0, KAM_DMARC_STATUS, RCVD_IN_DNSWL_LOW, SPF_HELO_NONE, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.2 X-Spam-Checker-Version: SpamAssassin 3.4.2 (2018-09-13) on server2.sourceware.org X-BeenThere: fortran@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Fortran mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Wed, 17 Feb 2021 03:02:40 -0000 This is a multi-part message in MIME format. --------------E46C6E1B647978A9AAEDAB1C Content-Type: text/plain; charset=utf-8; format=flowed Content-Transfer-Encoding: 8bit Hi all, Attached patch adds to checks.  In the case of IMPLICIT typing it checks to see if the objects listed in the NAMELIST have defined types andf if not, sets them to the default implicit types. In the case of IMPLICIT NONE, the types are required be declared before the NAMELIST.   If an object type is found to not be declared already, an error is issued. One new test case added and one modified to pass. Regression tested. OK for trunk? Regards, Jerry fortran: Object types should be declared before use in NAMELIST. gcc/fortran/ChangeLog:     PR fortran/98686     * match.c (gfc_match_namelist): Add checks for IMPLICIT NONE and     whether the type for each namelist object has been defined before     the namelist declaration.  For IMPLICIT, set the types so that     any subsequent use of objects will have their types confirmed. gcc/testsuite/ChangeLog:     PR fortran/98686     * gfortran.dg/namelist_4.f90: Modify.     * gfortran.dg/namelist_98.f90: New test. --------------E46C6E1B647978A9AAEDAB1C Content-Type: text/x-patch; name="pr98686.diff" Content-Transfer-Encoding: base64 Content-Disposition: attachment; filename="pr98686.diff" ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL21hdGNoLmMgYi9nY2MvZm9ydHJhbi9tYXRjaC5j CmluZGV4IDJkZjYxOTFkN2U2Li4zYTA2ZjMwODgxMiAxMDA2NDQKLS0tIGEvZ2NjL2ZvcnRy YW4vbWF0Y2guYworKysgYi9nY2MvZm9ydHJhbi9tYXRjaC5jCkBAIC01NTM2LDYgKzU1MzYs MjcgQEAgZ2ZjX21hdGNoX25hbWVsaXN0ICh2b2lkKQogCSAgaWYgKG0gPT0gTUFUQ0hfRVJS T1IpCiAJICAgIGdvdG8gZXJyb3I7CiAKKwkgIGlmICghZ2ZjX2N1cnJlbnRfbnMtPnNlZW5f aW1wbGljaXRfbm9uZSkKKwkgICAgeworCSAgICAgIC8qIElmIHRoZSB0eXBlIGlzIG5vdCBz ZXQgYWxyZWFkeSwgd2Ugc2V0IGl0IGhlcmUgdG8gdGhlCisJCSBpbXBsaWNpdCBkZWZhdWx0 IHR5cGUuICBJdCBpcyBub3QgYWxsb3dlZCB0byBzZXQgaXQKKwkJIGxhdGVyIHRvIGFueSBv dGhlciB0eXBlLiAgKi8KKwkgICAgICBpZiAoc3ltLT50cy50eXBlID09IEJUX1VOS05PV04p CisJCWdmY19zZXRfZGVmYXVsdF90eXBlIChzeW0sIDAsIGdmY19jdXJyZW50X25zKTsKKwkg ICAgfQorCSAgZWxzZQorCSAgICB7CisJICAgICAgLyogSXQgaXMgcmVxdWlyZWQgdGhhdCBt ZW1iZXJzIG9mIGEgbmFtZWxpc3QgYmUgZGVjbGFyZWQKKwkJIGJlZm9yZSB0aGUgbmFtZWxp c3QuICBXZSBjaGVjayB0aGlzIGJ5IGNoZWNraW5nIGlmIHRoZQorCQkgc3ltYm9sIGhhcyBh IGRlZmluZWQgdHlwZSBmb3IgSU1QTElDSVQgTk9ORS4gICovCisJICAgICAgaWYgKHN5bS0+ dHMudHlwZSA9PSBCVF9VTktOT1dOKQorCQl7CisJCSAgZ2ZjX2Vycm9yICgiU3ltYm9sICVx cyBpbiBuYW1lbGlzdCAlcXMgYXQgJUMgbXVzdCBiZSAiCisJCQkgICAgICJkZWNsYXJlZCBi ZWZvcmUgdGhlIG5hbWVsaXN0IGlzIGRlY2xhcmVkLiIsCisJCQkgICAgIHN5bS0+bmFtZSwg Z3JvdXBfbmFtZS0+bmFtZSk7CisJCSAgZ2ZjX2Vycm9yX2NoZWNrICgpOworCQl9CisJICAg IH0KIAkgIGlmIChzeW0tPmF0dHIuaW5fbmFtZWxpc3QgPT0gMAogCSAgICAgICYmICFnZmNf YWRkX2luX25hbWVsaXN0ICgmc3ltLT5hdHRyLCBzeW0tPm5hbWUsIE5VTEwpKQogCSAgICBn b3RvIGVycm9yOwpkaWZmIC0tZ2l0IGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9uYW1l bGlzdF80LmY5MCBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvbmFtZWxpc3RfNC5mOTAK aW5kZXggNTM4YmNlYWE0YjYuLjRlMDIxMjUzZjAxIDEwMDY0NAotLS0gYS9nY2MvdGVzdHN1 aXRlL2dmb3J0cmFuLmRnL25hbWVsaXN0XzQuZjkwCisrKyBiL2djYy90ZXN0c3VpdGUvZ2Zv cnRyYW4uZGcvbmFtZWxpc3RfNC5mOTAKQEAgLTI3LDE0ICsyNywxNCBAQCBFTkQgbW9kdWxl IE0xCiBwcm9ncmFtIFAxDQogQ09OVEFJTlMNCiAhIFRoaXMgaGFzIHRoZSBhZGRpdGlvbmFs IHdyaW5rbGUgb2YgYSByZWZlcmVuY2UgdG8gdGhlIG9iamVjdC4NCisgIElOVEVHRVIgRlVO Q1RJT04gRjIoKQ0KKyAgICBGMj0xDQorICBFTkQgRlVOQ1RJT04NCiAgIElOVEVHRVIgRlVO Q1RJT04gRjEoKQ0KICAgICBOQU1FTElTVCAvTk1MMy8gRjIgISB7IGRnLWVycm9yICJQUk9D RURVUkUgYXR0cmlidXRlIGNvbmZsaWN0cyIgfQogISBVc2VkIHRvIElDRSBoZXJlDQotICAg IGYyID0gMSAgICAgICAgICAgICAhIHsgZGctZXJyb3IgImlzIG5vdCBhIFZBTFVFIiB9DQor ICAgIGYyID0gMSAgICAgICAgICAgICAhIHsgZGctZXJyb3IgImlzIG5vdCBhIHZhcmlhYmxl IiB9DQogICAgIEYxPTENCiAgIEVORCBGVU5DVElPTg0KLSAgSU5URUdFUiBGVU5DVElPTiBG MigpDQotICAgIEYyPTENCi0gIEVORCBGVU5DVElPTg0KIEVORAogDQpkaWZmIC0tZ2l0IGEv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9uYW1lbGlzdF85OC5mOTAgYi9nY2MvdGVzdHN1 aXRlL2dmb3J0cmFuLmRnL25hbWVsaXN0Xzk4LmY5MApuZXcgZmlsZSBtb2RlIDEwMDY0NApp bmRleCAwMDAwMDAwMDAwMC4uMTlhN2U4NjlmOTIKLS0tIC9kZXYvbnVsbAorKysgYi9nY2Mv dGVzdHN1aXRlL2dmb3J0cmFuLmRnL25hbWVsaXN0Xzk4LmY5MApAQCAtMCwwICsxLDExIEBA CishIHsgZGctZG8gY29tcGlsZSB9CishIHByOTg2ODYKKyAgaW1wbGljaXQgbm9uZQorICBy ZWFsICAgIDo6IHgsIG0KKyAgbmFtZWxpc3QgL05NTC8geCwgbSwgcSAhIHsgZGctZXJyb3Ig Im11c3QgYmUgZGVjbGFyZWQgYmVmb3JlIHRoZSBuYW1lbGlzdCoiIH0KKyAgaW50ZWdlciA6 OiBxCisgIHggPSAxLjAKKyAgbSA9IDIuMAorICBxID0gMworICB3cml0ZSgqLCBubWw9Tk1M KQorZW5kCg== --------------E46C6E1B647978A9AAEDAB1C--