From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from esa2.mentor.iphmx.com (esa2.mentor.iphmx.com [68.232.141.98]) by sourceware.org (Postfix) with ESMTPS id 93F6C3858405; Fri, 15 Oct 2021 21:18:47 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 93F6C3858405 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=codesourcery.com Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=mentor.com IronPort-SDR: dBS9KDF6Lxl7C2yQW6KeI6GIe0l3hQiGbkYeYT2T8zvjnnISW7YxYglWOTIsOIph+irasK0pcJ 1dAU2SjetGpl4FLk3qiZ2Cp/DlEw4xAh3hAm34H/274tYekHIEqnvqX1IupmJdKiSTiMTIawJQ 34R5FQbA6YHWY/viEHlYEfuRGUEieD65hn7r6YlFPSv7YPL2Ac3G8CPzwtfhvI6EBiE7Javlxi dhgK1LGKsSkuh+PkdHygiPzcPH97AdVGlmQZdTt1p5yeglAJJtW5DtXHpzggYC+bE1SiUmhnnO TWK9scEdTR8xBpuh2zIApENm X-IronPort-AV: E=Sophos;i="5.85,376,1624348800"; d="diff'?scan'208";a="67258715" Received: from orw-gwy-02-in.mentorg.com ([192.94.38.167]) by esa2.mentor.iphmx.com with ESMTP; 15 Oct 2021 13:18:46 -0800 IronPort-SDR: tImy+QF0TQjTMewKYiv5qVrLXAYqrpIgpOa1yM1OKXd1r+KP5Y+8VTAWrmzrCpkl+5MEds6sYF Dg3Qn3aC0caecLaDA59Rw9+0jD2uMw2JmTrhIWzZftGsfVvDjzJGs2IQOvtGU96i/Nwbuh5cfU xeQvz1pIkF7WqBFoNTp6nUg1/o6h/ZtjPWZSG+CDjzc4UWcxkgQxuXTQZkFZmWkdwz/M3+aDNI pkeIbZCHJQaBPFT6N/MChlA1mJOXzX08v7OfVXjRClqhjmJSTywRoftZQCFFfLHe2/cBH/2adc ERo= Content-Type: multipart/mixed; boundary="------------0XA0WjGIX3l2bso7XhlaV85t" Message-ID: <408af1f1-0348-6032-7de7-a8cd33b7d6ed@codesourcery.com> Date: Fri, 15 Oct 2021 23:18:39 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.2.0 Content-Language: en-US To: gcc-patches , fortran From: Tobias Burnus Subject: [Patch] Fortran: Fix CLASS conversion check [PR102745] X-Originating-IP: [137.202.0.90] X-ClientProxiedBy: SVR-IES-MBX-07.mgc.mentorg.com (139.181.222.7) To svr-ies-mbx-01.mgc.mentorg.com (139.181.222.1) X-Spam-Status: No, score=-11.6 required=5.0 tests=BAYES_00, GIT_PATCH_0, HEADER_FROM_DIFFERENT_DOMAINS, KAM_DMARC_STATUS, SPF_HELO_PASS, SPF_PASS, TXREP autolearn=ham autolearn_force=no version=3.4.4 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on server2.sourceware.org X-BeenThere: gcc-patches@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-patches mailing list List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , X-List-Received-Date: Fri, 15 Oct 2021 21:18:49 -0000 --------------0XA0WjGIX3l2bso7XhlaV85t Content-Type: text/plain; charset="UTF-8"; format=flowed Content-Transfer-Encoding: quoted-printable This patch fixes two issues: First, to print 'CLASS(t2)' instead of: Error: Type mismatch in argument =E2=80=98x=E2=80=99 at (1); passed CLASS(_= _class_MAIN___T2_a) to TYPE(t) Additionally, class(t2) =3D class(t) ! 't2' extends 't' class(t2) =3D class(any) was wrongly accepted. OK? Tobias ----------------- Siemens Electronic Design Automation GmbH; Anschrift: Arnulfstra=C3=9Fe 201= , 80634 M=C3=BCnchen; Gesellschaft mit beschr=C3=A4nkter Haftung; Gesch=C3= =A4ftsf=C3=BChrer: Thomas Heurung, Frank Th=C3=BCrauf; Sitz der Gesellschaf= t: M=C3=BCnchen; Registergericht M=C3=BCnchen, HRB 106955 --------------0XA0WjGIX3l2bso7XhlaV85t Content-Type: text/x-patch; charset="UTF-8"; name="class-check.diff" Content-Disposition: attachment; filename="class-check.diff" Content-Transfer-Encoding: base64 Rm9ydHJhbjogRml4IENMQVNTIGNvbnZlcnNpb24gY2hlY2sgW1BSMTAyNzQ1XQoKCVBSIGZv cnRyYW4vMTAyNzQ1CmdjYy9mb3J0cmFuL0NoYW5nZUxvZwoJKiBpbnRyaW5zaWMuYyAoZ2Zj X2NvbnZlcnRfdHlwZV93YXJuKTogRml4IGNoZWNrcyBieSBjaGVja2luZyBDTEFTUwoJYW5k IGRvIHR5cGNoZWNrIGluIGNvcnJlY3Qgb3JkZXIgZm9yIHR5cGUgZXh0ZW5zaW9uLgoJKiBt aXNjLmMgKGdmY190eXBlbmFtZSk6IFByaW50IHByb3BlciBub3QgaW50ZXJuYWwgQ0xBU1Mg dHlwZSBuYW1lLgoKZ2NjL3Rlc3RzdWl0ZS9DaGFuZ2VMb2cKCSogZ2ZvcnRyYW4uZGcvY2xh c3NfNzIuZjkwOiBOZXcuCgogZ2NjL2ZvcnRyYW4vaW50cmluc2ljLmMgICAgICAgICAgICAg ICAgfCAgNyArLS0KIGdjYy9mb3J0cmFuL21pc2MuYyAgICAgICAgICAgICAgICAgICAgIHwg MTAgKystLQogZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9jbGFzc183Mi5mOTAgfCA4MyAr KysrKysrKysrKysrKysrKysrKysrKysrKysrKysrKysrCiAzIGZpbGVzIGNoYW5nZWQsIDky IGluc2VydGlvbnMoKyksIDggZGVsZXRpb25zKC0pCgpkaWZmIC0tZ2l0IGEvZ2NjL2ZvcnRy YW4vaW50cmluc2ljLmMgYi9nY2MvZm9ydHJhbi9pbnRyaW5zaWMuYwppbmRleCAyMTlmMDRm MjMxNy4uZjVjODhkOThjYzkgMTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL2ludHJpbnNpYy5j CisrKyBiL2djYy9mb3J0cmFuL2ludHJpbnNpYy5jCkBAIC01MjM3LDEyICs1MjM3LDEzIEBA IGdmY19jb252ZXJ0X3R5cGVfd2FybiAoZ2ZjX2V4cHIgKmV4cHIsIGdmY190eXBlc3BlYyAq dHMsIGludCBlZmxhZywgaW50IHdmbGFnLAogICAvKiBJbiBidWlsZGluZyBhbiBhcnJheSBj b25zdHJ1Y3RvciwgZ2ZvcnRyYW4gY2FuIGVuZCB1cCBoZXJlIHdoZW4gbm8KICAgICAgY29u dmVyc2lvbiBpcyByZXF1aXJlZCBmb3IgYW4gaW50cmluc2ljIHR5cGUuICBXZSBuZWVkIHRv IGxldCBkZXJpdmVkCiAgICAgIHR5cGVzIGRyb3AgdGhyb3VnaC4gICovCi0gIGlmIChmcm9t X3RzLnR5cGUgIT0gQlRfREVSSVZFRAorICBpZiAoZnJvbV90cy50eXBlICE9IEJUX0RFUklW RUQgJiYgZnJvbV90cy50eXBlICE9IEJUX0NMQVNTCiAgICAgICAmJiAoZnJvbV90cy50eXBl ID09IHRzLT50eXBlICYmIGZyb21fdHMua2luZCA9PSB0cy0+a2luZCkpCiAgICAgcmV0dXJu IHRydWU7CiAKLSAgaWYgKGV4cHItPnRzLnR5cGUgPT0gQlRfREVSSVZFRCAmJiB0cy0+dHlw ZSA9PSBCVF9ERVJJVkVECi0gICAgICAmJiBnZmNfY29tcGFyZV90eXBlcyAoJmV4cHItPnRz LCB0cykpCisgIGlmICgoZXhwci0+dHMudHlwZSA9PSBCVF9ERVJJVkVEIHx8IGV4cHItPnRz LnR5cGUgPT0gQlRfQ0xBU1MpCisgICAgICAmJiAodHMtPnR5cGUgPT0gQlRfREVSSVZFRCB8 fCB0cy0+dHlwZSA9PSBCVF9DTEFTUykKKyAgICAgICYmIGdmY19jb21wYXJlX3R5cGVzICh0 cywgJmV4cHItPnRzKSkKICAgICByZXR1cm4gdHJ1ZTsKIAogICAvKiBJZiBhcnJheSBpcyB0 cnVlIHRoZW4gY29udmVyc2lvbiBpcyBpbiBhbiBhcnJheSBjb25zdHJ1Y3RvciB3aGVyZQpk aWZmIC0tZ2l0IGEvZ2NjL2ZvcnRyYW4vbWlzYy5jIGIvZ2NjL2ZvcnRyYW4vbWlzYy5jCmlu ZGV4IDNkNDQ5YWUxN2ZlLi5lNjQwMmU4ODFlMyAxMDA2NDQKLS0tIGEvZ2NjL2ZvcnRyYW4v bWlzYy5jCisrKyBiL2djYy9mb3J0cmFuL21pc2MuYwpAQCAtMTMwLDcgKzEzMCw2IEBAIGdm Y190eXBlbmFtZSAoZ2ZjX3R5cGVzcGVjICp0cywgYm9vbCBmb3JfaGFzaCkKICAgc3RhdGlj IGNoYXIgYnVmZmVyMltHRkNfTUFYX1NZTUJPTF9MRU4gKyA4XTsKICAgc3RhdGljIGludCBm bGFnID0gMDsKICAgY2hhciAqYnVmZmVyOwotICBnZmNfdHlwZXNwZWMgKnRzMTsKICAgZ2Zj X2NoYXJsZW5fdCBsZW5ndGggPSAwOwogCiAgIGJ1ZmZlciA9IGZsYWcgPyBidWZmZXIxIDog YnVmZmVyMjsKQEAgLTE4MCwxNiArMTc5LDE3IEBAIGdmY190eXBlbmFtZSAoZ2ZjX3R5cGVz cGVjICp0cywgYm9vbCBmb3JfaGFzaCkKICAgICAgIHNwcmludGYgKGJ1ZmZlciwgIlRZUEUo JXMpIiwgdHMtPnUuZGVyaXZlZC0+bmFtZSk7CiAgICAgICBicmVhazsKICAgICBjYXNlIEJU X0NMQVNTOgotICAgICAgaWYgKHRzLT51LmRlcml2ZWQgPT0gTlVMTCkKKyAgICAgIGlmICgh dHMtPnUuZGVyaXZlZCB8fCAhdHMtPnUuZGVyaXZlZC0+Y29tcG9uZW50cworCSAgfHwgIXRz LT51LmRlcml2ZWQtPmNvbXBvbmVudHMtPnRzLnUuZGVyaXZlZCkKIAl7CiAJICBzcHJpbnRm IChidWZmZXIsICJpbnZhbGlkIGNsYXNzIik7CiAJICBicmVhazsKIAl9Ci0gICAgICB0czEg PSB0cy0+dS5kZXJpdmVkLT5jb21wb25lbnRzID8gJnRzLT51LmRlcml2ZWQtPmNvbXBvbmVu dHMtPnRzIDogTlVMTDsKLSAgICAgIGlmICh0czEgJiYgdHMxLT51LmRlcml2ZWQgJiYgdHMx LT51LmRlcml2ZWQtPmF0dHIudW5saW1pdGVkX3BvbHltb3JwaGljKQorICAgICAgaWYgKHRz LT51LmRlcml2ZWQtPmNvbXBvbmVudHMtPnRzLnUuZGVyaXZlZC0+YXR0ci51bmxpbWl0ZWRf cG9seW1vcnBoaWMpCiAJc3ByaW50ZiAoYnVmZmVyLCAiQ0xBU1MoKikiKTsKICAgICAgIGVs c2UKLQlzcHJpbnRmIChidWZmZXIsICJDTEFTUyglcykiLCB0cy0+dS5kZXJpdmVkLT5uYW1l KTsKKwlzcHJpbnRmIChidWZmZXIsICJDTEFTUyglcykiLAorCQkgdHMtPnUuZGVyaXZlZC0+ Y29tcG9uZW50cy0+dHMudS5kZXJpdmVkLT5uYW1lKTsKICAgICAgIGJyZWFrOwogICAgIGNh c2UgQlRfQVNTVU1FRDoKICAgICAgIHNwcmludGYgKGJ1ZmZlciwgIlRZUEUoKikiKTsKZGlm ZiAtLWdpdCBhL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvY2xhc3NfNzIuZjkwIGIvZ2Nj L3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9jbGFzc183Mi5mOTAKbmV3IGZpbGUgbW9kZSAxMDA2 NDQKaW5kZXggMDAwMDAwMDAwMDAuLjBmZDZlYzAxMGY1Ci0tLSAvZGV2L251bGwKKysrIGIv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9jbGFzc183Mi5mOTAKQEAgLTAsMCArMSw4MyBA QAorISBQUiBmb3J0cmFuLzEwMjc0NQorCitpbXBsaWNpdCBub25lCisKK3R5cGUgdAorZW5k IHR5cGUgdAorCit0eXBlLCBleHRlbmRzKHQpIDo6IHQyCitlbmQgdHlwZSB0MgorCit0eXBl IHQzCitlbmQgdHlwZSB0MworCit0eXBlKHQpLCBhbGxvY2F0YWJsZSA6OiB2YXIKK3R5cGUo dDIpLCBhbGxvY2F0YWJsZSA6OiB2MmFyCit0eXBlKHQzKSwgYWxsb2NhdGFibGUgOjogdjNh cgorY2xhc3ModCksIGFsbG9jYXRhYmxlIDo6IGN2YXIKK2NsYXNzKHQyKSwgYWxsb2NhdGFi bGUgOjogYzJ2YXIKK2NsYXNzKHQzKSwgYWxsb2NhdGFibGUgOjogYzN2YXIKKworY2FsbCBm KHZhcikKK2NhbGwgZih2MmFyKSAgICEgeyBkZy1lcnJvciAicGFzc2VkIFRZUEUudDIuIHRv IFRZUEUudC4iIH0KK2NhbGwgZih2MmFyJXQpCitjYWxsIGYoY3ZhcikKK2NhbGwgZihjMnZh cikgICEgeyBkZy1lcnJvciAicGFzc2VkIENMQVNTLnQyLiB0byBUWVBFLnQuIiB9CitjYWxs IGYoYzJ2YXIldCkKKworY2FsbCBmMih2YXIpICAgISB7IGRnLWVycm9yICJwYXNzZWQgVFlQ RS50LiB0byBUWVBFLnQyLiIgfQorY2FsbCBmMih2MmFyKQorY2FsbCBmMihjdmFyKSAgISB7 IGRnLWVycm9yICJwYXNzZWQgQ0xBU1MudC4gdG8gVFlQRS50Mi4iIH0KK2NhbGwgZjIoYzJ2 YXIpCisKKwordmFyID0gdmFyCit2YXIgPSB2MmFyICAhIHsgZGctZXJyb3IgIlRZUEUudDIu IHRvIFRZUEUudC4iIH0KK3ZhciA9IGN2YXIKK3ZhciA9IGMydmFyICEgeyBkZy1lcnJvciAi VFlQRS50Mi4gdG8gVFlQRS50LiIgfQorCit2MmFyID0gdmFyICAhIHsgZGctZXJyb3IgIkNh bm5vdCBjb252ZXJ0IFRZUEUudC4gdG8gVFlQRS50Mi4iIH0KK3YyYXIgPSB2MmFyCit2MmFy ID0gY3ZhciAhIHsgZGctZXJyb3IgIkNhbm5vdCBjb252ZXJ0IFRZUEUudC4gdG8gVFlQRS50 Mi4iIH0KK3YyYXIgPSBjMnZhcgorCitjdmFyID0gdmFyCitjdmFyID0gdjJhcgorY3ZhciA9 IGN2YXIKK2N2YXIgPSBjMnZhcgorCitjMnZhciA9IHZhciAgICEgeyBkZy1lcnJvciAiQ2Fu bm90IGNvbnZlcnQgVFlQRS50LiB0byBDTEFTUy50Mi4iIH0KK2MydmFyID0gdjNhciAgISB7 IGRnLWVycm9yICJDYW5ub3QgY29udmVydCBUWVBFLnQzLiB0byBDTEFTUy50Mi4iIH0KK2My dmFyID0gdjJhcgorYzJ2YXIgPSBjdmFyICAhIHsgZGctZXJyb3IgIkNhbm5vdCBjb252ZXJ0 IENMQVNTLnQuIHRvIENMQVNTLnQyLiIgfQorYzJ2YXIgPSBjM3ZhciAhIHsgZGctZXJyb3Ig IkNhbm5vdCBjb252ZXJ0IENMQVNTLnQzLiB0byBDTEFTUy50Mi4iIH0KK2MydmFyID0gYzJ2 YXIKKworYWxsb2NhdGUgKHZhciwgc291cmNlPXZhcikKK2FsbG9jYXRlICh2YXIsIHNvdXJj ZT12MmFyKSAgICEgeyBkZy1lcnJvciAiaW5jb21wYXRpYmxlIHdpdGggc291cmNlLWV4cHIi IH0KK2FsbG9jYXRlICh2YXIsIHNvdXJjZT1jdmFyKQorYWxsb2NhdGUgKHZhciwgc291cmNl PWMydmFyKSAgISB7IGRnLWVycm9yICJpbmNvbXBhdGlibGUgd2l0aCBzb3VyY2UtZXhwciIg fQorCithbGxvY2F0ZSAodjJhciwgc291cmNlPXZhcikgICAhIHsgZGctZXJyb3IgImluY29t cGF0aWJsZSB3aXRoIHNvdXJjZS1leHByIiB9CithbGxvY2F0ZSAodjJhciwgc291cmNlPXYy YXIpCithbGxvY2F0ZSAodjJhciwgc291cmNlPWN2YXIpICAhIHsgZGctZXJyb3IgImluY29t cGF0aWJsZSB3aXRoIHNvdXJjZS1leHByIiB9CithbGxvY2F0ZSAodjJhciwgc291cmNlPWMy dmFyKQorCithbGxvY2F0ZSAoY3Zhciwgc291cmNlPXZhcikKK2FsbG9jYXRlIChjdmFyLCBz b3VyY2U9djJhcikKK2FsbG9jYXRlIChjdmFyLCBzb3VyY2U9Y3ZhcikKK2FsbG9jYXRlIChj dmFyLCBzb3VyY2U9YzJ2YXIpCisKK2FsbG9jYXRlIChjMnZhciwgc291cmNlPXZhcikgICEg eyBkZy1lcnJvciAiaW5jb21wYXRpYmxlIHdpdGggc291cmNlLWV4cHIiIH0KK2FsbG9jYXRl IChjMnZhciwgc291cmNlPXYyYXIpCithbGxvY2F0ZSAoYzJ2YXIsIHNvdXJjZT1jdmFyKSAh IHsgZGctZXJyb3IgImluY29tcGF0aWJsZSB3aXRoIHNvdXJjZS1leHByIiB9CithbGxvY2F0 ZSAoYzJ2YXIsIHNvdXJjZT1jMnZhcikKKworY29udGFpbnMKKyBzdWJyb3V0aW5lIGYoeCkK KyAgIHR5cGUodCkgOjogeAorIGVuZAorIHN1YnJvdXRpbmUgZjIoeCkKKyAgIHR5cGUodDIp IDo6IHgKKyBlbmQKK2VuZAo= --------------0XA0WjGIX3l2bso7XhlaV85t--