From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from mout.gmx.net (mout.gmx.net [212.227.17.20]) by sourceware.org (Postfix) with ESMTPS id D4F9F385702B; Wed, 26 Jul 2023 19:33:24 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.2 sourceware.org D4F9F385702B Authentication-Results: sourceware.org; dmarc=pass (p=none dis=none) header.from=gmx.de Authentication-Results: sourceware.org; spf=pass smtp.mailfrom=gmx.de DKIM-Signature: v=1; a=rsa-sha256; c=relaxed/simple; d=gmx.de; s=s31663417; t=1690400003; x=1691004803; i=anlauf@gmx.de; bh=RnIXOm0PDwp3pcJ53WY6zNaQwToBFiNFqTeOWZcC6mk=; h=X-UI-Sender-Class:Date:Subject:To:References:From:In-Reply-To; b=DQiTbJMuGMiaviUrZiajDETd/101x2YZJvJz7yauvr1AA94gnbTHHnxeHMZc1R4jdyzON45 0thHFLkRCBBxqwPnBDYF6ObvRz5yhY3asTLxBGgIs9sPjakK50QBaICJ9apn+3hWCkZrM3qOD aw8GLa/X926kvgFVo72V0ESLsIfswqukQ6mrG9vDKGOrkAExTyWQoZT4b9hcUlTRFnBJQZUB8 dwGJuoUINVuaUVmbQCmyv+GpyirnmsSZf0ydUUdecsd9R0JaL4RbR40BN3P134hCRWo4y/HfO ONv6SluslTqITf+kro4a6S+EHFGEpXv88s3XN71MtZvD2ft8y3lg== X-UI-Sender-Class: 724b4f7f-cbec-4199-ad4e-598c01a50d3a Received: from [192.168.178.29] ([79.251.5.69]) by mail.gmx.net (mrgmx105 [212.227.17.168]) with ESMTPSA (Nemesis) id 1MybGX-1pfQdy0z3l-00ywal; Wed, 26 Jul 2023 21:33:23 +0200 Content-Type: multipart/mixed; boundary="------------hWMSzmkYOIkiM4S3AVYUJUyS" Message-ID: <6e5a6a56-776a-1994-ffd3-f57e9d40ee20@gmx.de> Date: Wed, 26 Jul 2023 21:33:22 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:102.0) Gecko/20100101 Thunderbird/102.12.0 Subject: [PATCH, v3] Fortran: diagnose strings of non-constant length in DATA statements [PR68569] To: fortran , gcc-patches Newsgroups: gmane.comp.gcc.patches,gmane.comp.gcc.fortran References: Content-Language: en-US From: Harald Anlauf In-Reply-To: X-Provags-ID: V03:K1:wHHvlUFXGll1QH9Gg5VWUwboAVpNjc1O/9pLniebMYJK7RF1ZzW I+LLzUyjRatiRrkqAS0bhsgxddeIpmZBNn+x3V4ZtaBoEsqOwOJzMw4G80BcqHgcAUePe2o cH4Q7cr8psuJpwJvkcQnpY3DbgJHtjwK6C05GNAjdsGHlFxHFVTzIMvBhxmRmRHn7lhoN62 bd+5yMycyaZHEtHJ8nI5Q== UI-OutboundReport: notjunk:1;M01:P0:Lfw0cWQ5UgQ=;gm8fE5nAbb7jmri/8kG36XRvh7H rjTvOZY9nrcBed6GjJN+D71KRjpKnbrr7RWGK2MSiKw75ZDKL7SbdlqN1Vx+b2+wL9GnrInn2 SaeYiSBWHAvIFN+HncQa3se0HhdOADtws3e/sdZ4hNUobdyFvDd0wHdPyaUMY4EB3U9DCJs6O yDJOpr/lZGGT1qAhPO0f5N3HxyVw/e9GXbM76czCUVrax4qYITtjfvDg0CaGaIZM7Zj/OJCjO hznBoJaX94TqNXF+hnmeYa8hHbJoX+BOOaWkj5QWaNkX6UCnSYKJSwyku4hXVvcDhBAFv+AFe kABAm9akS09fQOFMK52dkaxq3e0+qmCIGOIxwXISRAnk4pANxDfvnO3sCDjX9Pw2SEcspydaL 7h35kswpvE8YF32QtJN1mlnwZRriGqtoHy0uEd+msdU72b9/8p1wCBPUN5qD/unRTq5T6Hrwc iJNWfeiFdIHXhSQkZo9WyDFwew5JHnVtzxVUgHarqtOWDCYEeOsh0amsypLEvxtTLnRkqCovW /AEvjASB4bO+fAzTRox/Ym7myHBfGhF/K3GocBytNLF6K8H09LUWLqZV/2vi5sUe45e6Wwr+8 wX77IPIkxUZ/5/2Lhgx4U2DNLOpodw5V+uS/K8vLO7Uo/oCsBdAn9fb1Oo0kvtMCeeGaGifX/ Jk9iBv1nP3zrF9Xtn5cD59nWZuc8bbnqPSiHz3Nf71IvxvcMOVUgl81Q0gGNBNC96OuT3gpE3 JpmBrZO7yVlQBsHJ6znzM5e15TJw1CXtTgp7gymxVXBSy/6Hhq9GtJSSTFev9dnwERRh6oEWv NSETdBDAgHw6bmG7v0Ego+BCRbONbxqkdBRJiOBcZaJGfXRnUK8m1EOI/4RZGFqXYKMF9Gw1i DKXPDZE3l8Wq3MGpdH5yH1LpS7V2Hsngdmy8Um9WslzWmSuLhvPSsbxVA9k5fyvV5CycCeqja H3jPkg== X-Spam-Status: No, score=-12.0 required=5.0 tests=BAYES_00,DKIM_SIGNED,DKIM_VALID,DKIM_VALID_AU,DKIM_VALID_EF,FREEMAIL_FROM,GIT_PATCH_0,RCVD_IN_DNSWL_LOW,SPF_HELO_NONE,SPF_PASS,TXREP,T_SCC_BODY_TEXT_LINE autolearn=ham autolearn_force=no version=3.4.6 X-Spam-Checker-Version: SpamAssassin 3.4.6 (2021-04-09) on server2.sourceware.org List-Id: This is a multi-part message in MIME format. --------------hWMSzmkYOIkiM4S3AVYUJUyS Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: quoted-printable I am going to get the brown bag for today... This is now the right corrected patch. Sorry for all the noise! Harald Am 26.07.23 um 21:17 schrieb Harald Anlauf via Gcc-patches: > Dear all, > > the original submission missed the adjustments of the expected > patterns of 2 tests.=C2=A0 This is corrected in the new attachments. > > Am 26.07.23 um 21:10 schrieb Harald Anlauf via Gcc-patches: >> Dear all, >> >> the attached patch fixes an ICE-on-invalid after use of strings of >> non-constant length in DATA statements. >> >> Regtested on x86_64-pc-linux-gnu.=C2=A0 OK for mainline? >> >> Thanks, >> Harald >> > > Thanks, > Harald > --------------hWMSzmkYOIkiM4S3AVYUJUyS Content-Type: text/x-patch; charset=UTF-8; name="pr68569-v2.diff" Content-Disposition: attachment; filename="pr68569-v2.diff" Content-Transfer-Encoding: base64 RnJvbSBkODcyYjhmZmMxMjFmZDU3ZDQ3YWE3ZDNkMTJkOWJhODYzODlmMDkyIE1vbiBTZXAg MTcgMDA6MDA6MDAgMjAwMQpGcm9tOiBIYXJhbGQgQW5sYXVmIDxhbmxhdWZAZ214LmRlPgpE YXRlOiBXZWQsIDI2IEp1bCAyMDIzIDIxOjEyOjQ1ICswMjAwClN1YmplY3Q6IFtQQVRDSF0g Rm9ydHJhbjogZGlhZ25vc2Ugc3RyaW5ncyBvZiBub24tY29uc3RhbnQgbGVuZ3RoIGluIERB VEEKIHN0YXRlbWVudHMgW1BSNjg1NjldCgpnY2MvZm9ydHJhbi9DaGFuZ2VMb2c6CgoJUFIg Zm9ydHJhbi82ODU2OQoJKiByZXNvbHZlLmNjIChjaGVja19kYXRhX3ZhcmlhYmxlKTogRG8g bm90IGFjY2VwdCBzdHJpbmdzIHdpdGgKCWRlZmVycmVkIGxlbmd0aCBvciBub24tY29uc3Rh bnQgbGVuZ3RoIGluIGEgREFUQSBzdGF0ZW1lbnQuCglSZWplY3QgYWxzbyBzdWJzdHJpbmdz IG9mIHN0cmluZyB2YXJpYWJsZXMgb2Ygbm9uLWNvbnN0YW50IGxlbmd0aC4KCmdjYy90ZXN0 c3VpdGUvQ2hhbmdlTG9nOgoKCVBSIGZvcnRyYW4vNjg1NjkKCSogZ2ZvcnRyYW4uZGcvZGF0 YV9jaGFyXzQuZjkwOiBBZGp1c3QgZXhwZWN0ZWQgZGlhZ25vc3RpYy4KCSogZ2ZvcnRyYW4u ZGcvZGF0YV9jaGFyXzUuZjkwOiBMaWtld2lzZS4KCSogZ2ZvcnRyYW4uZGcvZGF0YV9jaGFy XzYuZjkwOiBOZXcgdGVzdC4KLS0tCiBnY2MvZm9ydHJhbi9yZXNvbHZlLmNjICAgICAgICAg ICAgICAgICAgICB8IDIyICsrKysrKysrKysrKysrKysrKy0KIGdjYy90ZXN0c3VpdGUvZ2Zv cnRyYW4uZGcvZGF0YV9jaGFyXzQuZjkwIHwgIDIgKy0KIGdjYy90ZXN0c3VpdGUvZ2ZvcnRy YW4uZGcvZGF0YV9jaGFyXzUuZjkwIHwgIDggKysrLS0tLQogZ2NjL3Rlc3RzdWl0ZS9nZm9y dHJhbi5kZy9kYXRhX2NoYXJfNi5mOTAgfCAyNiArKysrKysrKysrKysrKysrKysrKysrKwog NCBmaWxlcyBjaGFuZ2VkLCA1MiBpbnNlcnRpb25zKCspLCA2IGRlbGV0aW9ucygtKQogY3Jl YXRlIG1vZGUgMTAwNjQ0IGdjYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZGF0YV9jaGFyXzYu ZjkwCgpkaWZmIC0tZ2l0IGEvZ2NjL2ZvcnRyYW4vcmVzb2x2ZS5jYyBiL2djYy9mb3J0cmFu L3Jlc29sdmUuY2MKaW5kZXggZjdjZmRmYzEzM2YuLjNjZDQ3MGRkY2NhIDEwMDY0NAotLS0g YS9nY2MvZm9ydHJhbi9yZXNvbHZlLmNjCisrKyBiL2djYy9mb3J0cmFuL3Jlc29sdmUuY2MK QEAgLTE2NzcxLDcgKzE2NzcxLDYgQEAgY2hlY2tfZGF0YV92YXJpYWJsZSAoZ2ZjX2RhdGFf dmFyaWFibGUgKnZhciwgbG9jdXMgKndoZXJlKQogICAgIHJldHVybiBmYWxzZTsKIAogICBh ciA9IE5VTEw7Ci0gIG1wel9pbml0X3NldF9zaSAob2Zmc2V0LCAwKTsKICAgZSA9IHZhci0+ ZXhwcjsKIAogICBpZiAoZS0+ZXhwcl90eXBlID09IEVYUFJfRlVOQ1RJT04gJiYgZS0+dmFs dWUuZnVuY3Rpb24uaXN5bQpAQCAtMTY4MzgsOCArMTY4MzcsMjQgQEAgY2hlY2tfZGF0YV92 YXJpYWJsZSAoZ2ZjX2RhdGFfdmFyaWFibGUgKnZhciwgbG9jdXMgKndoZXJlKQogCQkgICAg ICJhdHRyaWJ1dGUiLCByZWYtPnUuYy5jb21wb25lbnQtPm5hbWUsICZlLT53aGVyZSk7CiAJ ICByZXR1cm4gZmFsc2U7CiAJfQorCisgICAgICAvKiBSZWplY3Qgc3Vic3RyaW5ncyBvZiBz dHJpbmdzIG9mIG5vbi1jb25zdGFudCBsZW5ndGguICAqLworICAgICAgaWYgKHJlZi0+dHlw ZSA9PSBSRUZfU1VCU1RSSU5HCisJICAmJiByZWYtPnUuc3MubGVuZ3RoCisJICAmJiByZWYt PnUuc3MubGVuZ3RoLT5sZW5ndGgKKwkgICYmICFnZmNfaXNfY29uc3RhbnRfZXhwciAocmVm LT51LnNzLmxlbmd0aC0+bGVuZ3RoKSkKKwlnb3RvIGJhZF9jaGFybGVuOwogICAgIH0KIAor ICAvKiBSZWplY3Qgc3RyaW5ncyB3aXRoIGRlZmVycmVkIGxlbmd0aCBvciBub24tY29uc3Rh bnQgbGVuZ3RoLiAgKi8KKyAgaWYgKGUtPnRzLnR5cGUgPT0gQlRfQ0hBUkFDVEVSCisgICAg ICAmJiAoZS0+dHMuZGVmZXJyZWQKKwkgIHx8IChlLT50cy51LmNsLT5sZW5ndGgKKwkgICAg ICAmJiAhZ2ZjX2lzX2NvbnN0YW50X2V4cHIgKGUtPnRzLnUuY2wtPmxlbmd0aCkpKSkKKyAg ICBnb3RvIGJhZF9jaGFybGVuOworCisgIG1wel9pbml0X3NldF9zaSAob2Zmc2V0LCAwKTsK KwogICBpZiAoZS0+cmFuayA9PSAwIHx8IGhhc19wb2ludGVyKQogICAgIHsKICAgICAgIG1w el9pbml0X3NldF91aSAoc2l6ZSwgMSk7CkBAIC0xNjk2Nyw2ICsxNjk4MiwxMSBAQCBjaGVj a19kYXRhX3ZhcmlhYmxlIChnZmNfZGF0YV92YXJpYWJsZSAqdmFyLCBsb2N1cyAqd2hlcmUp CiAgIG1wel9jbGVhciAob2Zmc2V0KTsKIAogICByZXR1cm4gdDsKKworYmFkX2NoYXJsZW46 CisgIGdmY19lcnJvciAoIk5vbi1jb25zdGFudCBjaGFyYWN0ZXIgbGVuZ3RoIGF0ICVMIGlu IERBVEEgc3RhdGVtZW50IiwKKwkgICAgICZlLT53aGVyZSk7CisgIHJldHVybiBmYWxzZTsK IH0KIAogCmRpZmYgLS1naXQgYS9nY2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2RhdGFfY2hh cl80LmY5MCBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZGF0YV9jaGFyXzQuZjkwCmlu ZGV4IGVkMDc4MmNlOGEwLi5mYTVlMGEwMTM0YSAxMDA2NDQKLS0tIGEvZ2NjL3Rlc3RzdWl0 ZS9nZm9ydHJhbi5kZy9kYXRhX2NoYXJfNC5mOTAKKysrIGIvZ2NjL3Rlc3RzdWl0ZS9nZm9y dHJhbi5kZy9kYXRhX2NoYXJfNC5mOTAKQEAgLTQsNyArNCw3IEBACiAKIHByb2dyYW0gcAog ICBjaGFyYWN0ZXIobCkgOjogYygyKSAhIHsgZGctZXJyb3IgIm11c3QgaGF2ZSBjb25zdGFu dCBjaGFyYWN0ZXIgbGVuZ3RoIiB9Ci0gIGRhdGEgYyAvJ2EnLCAnYicvCisgIGRhdGEgYyAv J2EnLCAnYicvICAgICEgeyBkZy1lcnJvciAiTm9uLWNvbnN0YW50IGNoYXJhY3RlciBsZW5n dGgiIH0KICAgY29tbW9uIGMKIGVuZAogCmRpZmYgLS1naXQgYS9nY2MvdGVzdHN1aXRlL2dm b3J0cmFuLmRnL2RhdGFfY2hhcl81LmY5MCBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcv ZGF0YV9jaGFyXzUuZjkwCmluZGV4IGVhMjY2ODdlM2Q1Li43NTU2ZTYzYzAxYiAxMDA2NDQK LS0tIGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9kYXRhX2NoYXJfNS5mOTAKKysrIGIv Z2NjL3Rlc3RzdWl0ZS9nZm9ydHJhbi5kZy9kYXRhX2NoYXJfNS5mOTAKQEAgLTQsMTIgKzQs MTIgQEAKIHN1YnJvdXRpbmUgc3ViICgpCiAgIGludGVnZXIgOjogbGwgPSA0CiAgIGJsb2Nr Ci0gICAgY2hhcmFjdGVyKGxsKSA6OiBjKDIpICEgeyBkZy1lcnJvciAibm9uLWNvbnN0YW50 IiB9Ci0gICAgZGF0YSBjIC8nYScsICdiJy8KKyAgICBjaGFyYWN0ZXIobGwpIDo6IGMoMikK KyAgICBkYXRhIGMgLydhJywgJ2InLyAgICAgISB7IGRnLWVycm9yICJOb24tY29uc3RhbnQg Y2hhcmFjdGVyIGxlbmd0aCIgfQogICBlbmQgYmxvY2sKIGNvbnRhaW5zCiAgIHN1YnJvdXRp bmUgc3ViMSAoKQotICAgIGNoYXJhY3RlcihsbCkgOjogZCgyKSAhIHsgZGctZXJyb3IgIm5v bi1jb25zdGFudCIgfQotICAgIGRhdGEgZCAvJ2EnLCAnYicvCisgICAgY2hhcmFjdGVyKGxs KSA6OiBkKDIpCisgICAgZGF0YSBkIC8nYScsICdiJy8gICAgICEgeyBkZy1lcnJvciAiTm9u LWNvbnN0YW50IGNoYXJhY3RlciBsZW5ndGgiIH0KICAgZW5kIHN1YnJvdXRpbmUgc3ViMQog ZW5kIHN1YnJvdXRpbmUgc3ViCmRpZmYgLS1naXQgYS9nY2MvdGVzdHN1aXRlL2dmb3J0cmFu LmRnL2RhdGFfY2hhcl82LmY5MCBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcvZGF0YV9j aGFyXzYuZjkwCm5ldyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAwMDAwMDAwMDAwLi40ZTMy YzY0N2Q0ZAotLS0gL2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUvZ2ZvcnRyYW4uZGcv ZGF0YV9jaGFyXzYuZjkwCkBAIC0wLDAgKzEsMjYgQEAKKyEgeyBkZy1kbyBjb21waWxlIH0K KyEgUFIgZm9ydHJhbi82ODU2OSAtIElDRSB3aXRoIGF1dG9tYXRpYyBjaGFyYWN0ZXIgb2Jq ZWN0IGFuZCBEQVRBIAorISBDb250cmlidXRlZCBieSBHLiBTdGVpbm1ldHoKKworc3Vicm91 dGluZSBzMSAobikKKyAgaW1wbGljaXQgbm9uZQorICBpbnRlZ2VyLCBpbnRlbnQoaW4pIDo6 IG4KKyAgY2hhcmFjdGVyKG4pIDo6IHgKKyAgZGF0YSB4IC8nYScvICAgICAgICAgISB7IGRn LWVycm9yICJOb24tY29uc3RhbnQgY2hhcmFjdGVyIGxlbmd0aCIgfQorZW5kCisKK3N1YnJv dXRpbmUgczIgKG4pCisgIGltcGxpY2l0IG5vbmUKKyAgaW50ZWdlciwgaW50ZW50KGluKSA6 OiBuCisgIGNoYXJhY3RlcihuKSA6OiB4CisgIGRhdGEgeCgxOjEpIC8nYScvICAgICEgeyBk Zy1lcnJvciAiTm9uLWNvbnN0YW50IGNoYXJhY3RlciBsZW5ndGgiIH0KK2VuZAorCitzdWJy b3V0aW5lIHMzICgpCisgIGltcGxpY2l0IG5vbmUKKyAgdHlwZSB0CisgICAgIGNoYXJhY3Rl cig6KSA6OiBjICEgeyBkZy1lcnJvciAibXVzdCBiZSBhIFBPSU5URVIgb3IgQUxMT0NBVEFC TEUiIH0KKyAgZW5kIHR5cGUgdAorICB0eXBlKHQpIDo6IHRwCisgIGRhdGEgdHAlYyAvJ2En LyAgICAgICEgeyBkZy1lcnJvciAiTm9uLWNvbnN0YW50IGNoYXJhY3RlciBsZW5ndGgiIH0K K2VuZAotLSAKMi4zNS4zCgo= --------------hWMSzmkYOIkiM4S3AVYUJUyS--