From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: from smtp.smtpout.orange.fr (smtp01.smtpout.orange.fr [80.12.242.123]) by sourceware.org (Postfix) with ESMTPS id 930F63858C54 for ; Tue, 26 Apr 2022 19:10:46 +0000 (GMT) DMARC-Filter: OpenDMARC Filter v1.4.1 sourceware.org 930F63858C54 Authentication-Results: sourceware.org; dmarc=none (p=none dis=none) header.from=orange.fr Authentication-Results: sourceware.org; spf=none smtp.mailfrom=orange.fr Received: from [192.168.1.17] ([86.253.179.215]) by smtp.orange.fr with ESMTPA id jQa6ncN4HiK8njQa6n57F9; Tue, 26 Apr 2022 21:10:45 +0200 X-ME-Helo: [192.168.1.17] X-ME-Auth: MDU4MTIxYWM4YWI0ZGE4ZTUwZWZmNTExZmI2ZWZlMThkM2ZhYiE5OWRkOGM= X-ME-Date: Tue, 26 Apr 2022 21:10:45 +0200 X-ME-IP: 86.253.179.215 Content-Type: multipart/mixed; boundary="------------pjrN1mME6YD26rhffukgjTe6" Message-ID: Date: Tue, 26 Apr 2022 21:10:38 +0200 MIME-Version: 1.0 User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:91.0) Gecko/20100101 Thunderbird/91.8.0 From: Mikael Morin Subject: [PATCH v2] fortran: Avoid infinite self-recursion [PR105381] To: Jakub Jelinek , Tobias Burnus Cc: gcc-patches , Harald Anlauf , gfortran References: <8f082ce4-a6a9-72c1-a882-4663426adaff@orange.fr> <4567d0f0-3077-d582-e2d2-b0169c322009@codesourcery.com> <737d7a95-33f0-4264-4ba7-caed687c3092@orange.fr> Content-Language: fr In-Reply-To: <737d7a95-33f0-4264-4ba7-caed687c3092@orange.fr> X-Spam-Status: No, score=-8.2 required=5.0 tests=BAYES_00, BODY_8BITS, FREEMAIL_FROM, GIT_PATCH_0, KAM_DMARC_STATUS, KAM_LAZY_DOMAIN_SECURITY, RCVD_IN_DNSWL_NONE, RCVD_IN_MSPIKE_H2, SPF_HELO_NONE, SPF_NONE, 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: 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: Tue, 26 Apr 2022 19:10:48 -0000 This is a multi-part message in MIME format. --------------pjrN1mME6YD26rhffukgjTe6 Content-Type: text/plain; charset=UTF-8; format=flowed Content-Transfer-Encoding: 8bit Le 26/04/2022 à 19:12, Mikael Morin a écrit : > Le 26/04/2022 à 15:32, Jakub Jelinek a écrit : >> or one can repeat it like: >>      if (DECL_P (expr) >>     && DECL_LANG_SPECIFIC (expr) >>     && GFC_DECL_SAVED_DESCRIPTOR (expr) >>     && GFC_DECL_SAVED_DESCRIPTOR (expr) != expr) >>        return non_negative_strides_array_p (GFC_DECL_SAVED_DESCRIPTOR >> (expr)); > > I think I’ll use that. Here it comes. Regression tested again. OK? --------------pjrN1mME6YD26rhffukgjTe6 Content-Type: text/x-patch; charset=UTF-8; name="0001-fortran-Avoid-infinite-self-recursion-PR105381.patch" Content-Disposition: attachment; filename*0="0001-fortran-Avoid-infinite-self-recursion-PR105381.patch" Content-Transfer-Encoding: base64 RnJvbSA5ZGE2OTY0Nzg4MzJiYjNmZTVhYzI1NTQyYWQ5MjI2Y2UzMjM1MzY4IE1vbiBTZXAg MTcgMDA6MDA6MDAgMjAwMQpGcm9tOiBNaWthZWwgTW9yaW4gPG1pa2FlbEBnY2MuZ251Lm9y Zz4KRGF0ZTogVHVlLCAyNiBBcHIgMjAyMiAxMzowNTozMiArMDIwMApTdWJqZWN0OiBbUEFU Q0ggdjJdIGZvcnRyYW46IEF2b2lkIGluZmluaXRlIHNlbGYtcmVjdXJzaW9uIFtQUjEwNTM4 MV0KCkR1bW15IGFycmF5IGRlY2xzIGFyZSBsb2NhbCBkZWNscyBkaWZmZXJlbnQgZnJvbSB0 aGUgYXJndW1lbnQgZGVjbAphY2Nlc3NpYmxlIHRocm91Z2ggR0ZDX0RFQ0xfU0FWRURfREVT Q1JJUFRPUi4gIElmIHRoZSBhcmd1bWVudCBkZWNsIGhhcwphIERFQ0xfTEFOR19TUEVDSUZJ QyBzZXQsIGl0IGlzIGNvcGllZCBvdmVyIHRvIHRoZSBsb2NhbCBkZWNsIGF0IHRoZQp0aW1l IHRoZSBsYXR0ZXIgaXMgY3JlYXRlZCwgc28gdGhhdCB0aGUgREVDTF9MQU5HX1NQRUNJRklD IG9iamVjdCBpcwpzaGFyZWQgYmV0d2VlbiBsb2NhbCBkdW1teSBkZWNsIGFuZCBhcmd1bWVu dCBkZWNsLCBhbmQgdGh1cyB0aGUKR0ZDX0RFQ0xfU0FWRURfREVTQ1JJUFRPUiBvZiB0aGUg YXJndW1lbnQgZGVjbCBpcyB0aGUgYXJndW1lbnQgZGVjbAppdHNlbGYuCgpUaGUgcjEyLTgy MzAtZzc5NjRhYjZjMzY0YzQxMGMzNGVmZTdjYTJlYmE3OTdkMzY1MjUzNDkgY2hhbmdlIGlu dHJvZHVjZWQKdGhlIG5vbl9uZWdhdGl2ZV9zdHJpZGVzX2FycmF5X3AgcHJlZGljYXRlIHdo aWNoIHJlY3Vyc2VzIHRocm91Z2gKR0ZDX0RFQ0xfU0FWRURfREVTQ1JJUFRPUiB0byBhdm9p ZCBzZWVpbmcgZHVtbXkgZGVjbHMgYXMgcHVyZWx5IGxvY2FsCmRlY2xzLiAgQXMgdGhlIEdG Q19ERUNMX1NBVkVEX0RFU0NSSVBUT1Igb2YgdGhlIGFyZ3VtZW50IGRlY2wgaXMgaXRzZWxm LAp0aGlzIGNhbiBjYXVzZSBpbmZpbml0ZSByZWN1cnNpb24uCgpUaGlzIGNoYW5nZSBhZGRz IGEgY2hlY2sgdG8gYXZvaWQgaW5maW5pdGUgcmVjdXJzaW9uLgoKCVBSIGZvcnRyYW4vMTAy MDQzCglQUiBmb3J0cmFuLzEwNTM4MQoKZ2NjL2ZvcnRyYW4vQ2hhbmdlTG9nOgoKCSogdHJh bnMtYXJyYXkuY2MgKG5vbl9uZWdhdGl2ZV9zdHJpZGVzX2FycmF5X3ApOiBJbmxpbmUgdmFy aWFibGUKCW9yaWdfZGVjbCBhbmQgbWVyZ2UgbmVzdGVkIGlmIGNvbmRpdGlvbnMuICBBZGQg Y29uZGl0aW9uIHRvIG5vdAoJcmVjdXJzZSBpZiB0aGUgbmV4dCBhcmd1bWVudCBpcyB0aGUg c2FtZSBhcyB0aGUgY3VycmVudC4KCmdjYy90ZXN0c3VpdGUvQ2hhbmdlTG9nOgoKCSogZ2Zv cnRyYW4uZGcvY2hhcmFjdGVyX2FycmF5X2R1bW15XzEuZjkwOiBOZXcgdGVzdC4KLS0tCiBn Y2MvZm9ydHJhbi90cmFucy1hcnJheS5jYyAgICAgICAgICAgICAgICAgICAgfCAgNyArKysr LS0tCiAuLi4vZ2ZvcnRyYW4uZGcvY2hhcmFjdGVyX2FycmF5X2R1bW15XzEuZjkwICAgfCAy MSArKysrKysrKysrKysrKysrKysrCiAyIGZpbGVzIGNoYW5nZWQsIDI1IGluc2VydGlvbnMo KyksIDMgZGVsZXRpb25zKC0pCiBjcmVhdGUgbW9kZSAxMDA2NDQgZ2NjL3Rlc3RzdWl0ZS9n Zm9ydHJhbi5kZy9jaGFyYWN0ZXJfYXJyYXlfZHVtbXlfMS5mOTAKCmRpZmYgLS1naXQgYS9n Y2MvZm9ydHJhbi90cmFucy1hcnJheS5jYyBiL2djYy9mb3J0cmFuL3RyYW5zLWFycmF5LmNj CmluZGV4IGU0YjYyNzBjY2Y4Li4wNTEzNDk1MmRiNCAxMDA2NDQKLS0tIGEvZ2NjL2ZvcnRy YW4vdHJhbnMtYXJyYXkuY2MKKysrIGIvZ2NjL2ZvcnRyYW4vdHJhbnMtYXJyYXkuY2MKQEAg LTM2OTYsOSArMzY5NiwxMCBAQCBub25fbmVnYXRpdmVfc3RyaWRlc19hcnJheV9wICh0cmVl IGV4cHIpCiAgIC8qIElmIHRoZSBhcnJheSB3YXMgb3JpZ2luYWxseSBhIGR1bW15IHdpdGgg YSBkZXNjcmlwdG9yLCBzdHJpZGVzIGNhbiBiZQogICAgICBuZWdhdGl2ZS4gICovCiAgIGlm IChERUNMX1AgKGV4cHIpCi0gICAgICAmJiBERUNMX0xBTkdfU1BFQ0lGSUMgKGV4cHIpKQot ICAgIGlmICh0cmVlIG9yaWdfZGVjbCA9IEdGQ19ERUNMX1NBVkVEX0RFU0NSSVBUT1IgKGV4 cHIpKQotICAgICAgcmV0dXJuIG5vbl9uZWdhdGl2ZV9zdHJpZGVzX2FycmF5X3AgKG9yaWdf ZGVjbCk7CisgICAgICAmJiBERUNMX0xBTkdfU1BFQ0lGSUMgKGV4cHIpCisgICAgICAmJiBH RkNfREVDTF9TQVZFRF9ERVNDUklQVE9SIChleHByKQorICAgICAgJiYgR0ZDX0RFQ0xfU0FW RURfREVTQ1JJUFRPUiAoZXhwcikgIT0gZXhwcikKKyAgICByZXR1cm4gbm9uX25lZ2F0aXZl X3N0cmlkZXNfYXJyYXlfcCAoR0ZDX0RFQ0xfU0FWRURfREVTQ1JJUFRPUiAoZXhwcikpOwog CiAgIHJldHVybiB0cnVlOwogfQpkaWZmIC0tZ2l0IGEvZ2NjL3Rlc3RzdWl0ZS9nZm9ydHJh bi5kZy9jaGFyYWN0ZXJfYXJyYXlfZHVtbXlfMS5mOTAgYi9nY2MvdGVzdHN1aXRlL2dmb3J0 cmFuLmRnL2NoYXJhY3Rlcl9hcnJheV9kdW1teV8xLmY5MApuZXcgZmlsZSBtb2RlIDEwMDY0 NAppbmRleCAwMDAwMDAwMDAwMC4uZGE1ZWQ2MzZmNGYKLS0tIC9kZXYvbnVsbAorKysgYi9n Y2MvdGVzdHN1aXRlL2dmb3J0cmFuLmRnL2NoYXJhY3Rlcl9hcnJheV9kdW1teV8xLmY5MApA QCAtMCwwICsxLDIxIEBACishIHsgZGctZG8gY29tcGlsZSB9CishCishIFBSIGZvcnRyYW4v MTA1MzgxCishIEluZmluaXRlIHJlY3Vyc2lvbiB3aXRoIGFycmF5IHJlZmVyZW5jZXMgb2Yg Y2hhcmFjdGVyIGR1bW15IGFyZ3VtZW50cy4KKyEKKyEgQ29udHJpYnV0ZWQgYnkgSGFyYWxk IEFubGF1ZiA8YW5sYXVmQGdteC5kZT4KKworTU9EVUxFIG0KKyAgaW1wbGljaXQgbm9uZQor ICBpbnRlZ2VyLCAgcGFyYW1ldGVyIDo6IG5jcml0ICA9ICA4CisgIGludGVnZXIsICBwYXJh bWV0ZXIgOjogbnRlcm0gID0gIDcKK2NvbnRhaW5zCisKKyAgc3Vicm91dGluZSBuZXdfdGhp bl9ydWxlIChydWxlMSkKKyAgICBjaGFyYWN0ZXIoKiksaW50ZW50KGluKSAsb3B0aW9uYWwg OjogcnVsZTEobmNyaXQpCisgICAgY2hhcmFjdGVyKGxlbj04KSA6OiBydWxlcyAobmNyaXQs bnRlcm0pCisgICAgcnVsZXMgPSAnJworICAgIGlmIChwcmVzZW50IChydWxlMSkpIHJ1bGVz KDosMSkgPSBydWxlMSAgISA8LS0gY29tcGlsZSB0aW1lIGhvZworICBlbmQgc3Vicm91dGlu ZSBuZXdfdGhpbl9ydWxlCisKK2VuZCBtb2R1bGUgbQotLSAKMi4zNS4xCgo= --------------pjrN1mME6YD26rhffukgjTe6--