[PATCH] fortran: [PR78718] Fix ICE in gfc_get_symbol_decl, at fortran/trans-decl.c

This is a multi-part message in MIME format.
--------------YPNp15ljZ2Tvszx8R0VNcgby
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit

See attached patch.

I plan to commit this one as simple.

Also obvious. (Even less than one line)

Regression tested on x86_64.

Best regards,

Jerry

---
     fortran: [PR78718] ICE in gfc_get_symbol_decl, at fortran/trans-decl.c

             PR fortran/78718

     gcc/fortran/ChangeLog:

             * resolve.cc (was_declared): Recognize the RESULT attribute so a
             function's result variable is not mistaken for a host-associated
             symbol of the same name.

     gcc/testsuite/ChangeLog:

             * gfortran.dg/func_result_8.f90: New test.

---
--------------YPNp15ljZ2Tvszx8R0VNcgby
Content-Type: text/x-patch; charset=UTF-8; name="pr78718-submit.diff"
Content-Disposition: attachment; filename="pr78718-submit.diff"
Content-Transfer-Encoding: base64

Y29tbWl0IDdmMzgyZDc5Y2Y2MTk2NGRhNDBjNDY3ZWU1OGM3MTU1Y2JiYmMwNjkKQXV0aG9y
OiBKZXJyeSBEZUxpc2xlIDxqdmRlbGlzbGVAZ2NjLmdudS5vcmc+CkRhdGU6ICAgRnJpIEp1
bCAxMCAyMTo0Nzo1OSAyMDI2IC0wNzAwCgogICAgZm9ydHJhbjogW1BSNzg3MThdIElDRSBp
biBnZmNfZ2V0X3N5bWJvbF9kZWNsLCBhdCBmb3J0cmFuL3RyYW5zLWRlY2wuYwogICAgCiAg
ICAgICAgICAgIFBSIGZvcnRyYW4vNzg3MTgKICAgIAogICAgZ2NjL2ZvcnRyYW4vQ2hhbmdl
TG9nOgogICAgCiAgICAgICAgICAgICogcmVzb2x2ZS5jYyAod2FzX2RlY2xhcmVkKTogUmVj
b2duaXplIHRoZSBSRVNVTFQgYXR0cmlidXRlIHNvIGEKICAgICAgICAgICAgZnVuY3Rpb24n
cyByZXN1bHQgdmFyaWFibGUgaXMgbm90IG1pc3Rha2VuIGZvciBhIGhvc3QtYXNzb2NpYXRl
ZAogICAgICAgICAgICBzeW1ib2wgb2YgdGhlIHNhbWUgbmFtZS4KICAgIAogICAgZ2NjL3Rl
c3RzdWl0ZS9DaGFuZ2VMb2c6CiAgICAKICAgICAgICAgICAgKiBnZm9ydHJhbi5kZy9mdW5j
X3Jlc3VsdF84LmY5MDogTmV3IHRlc3QuCgpkaWZmIC0tZ2l0IGEvZ2NjL2ZvcnRyYW4vcmVz
b2x2ZS5jYyBiL2djYy9mb3J0cmFuL3Jlc29sdmUuY2MKaW5kZXggNWYzZWRiMzdhYTQuLjAz
NmRhOWE5MzllIDEwMDY0NAotLS0gYS9nY2MvZm9ydHJhbi9yZXNvbHZlLmNjCisrKyBiL2dj
Yy9mb3J0cmFuL3Jlc29sdmUuY2MKQEAgLTE2NTUsNyArMTY1NSw3IEBAIHdhc19kZWNsYXJl
ZCAoZ2ZjX3N5bWJvbCAqc3ltKQogICBpZiAoYS5hbGxvY2F0YWJsZSB8fCBhLmRpbWVuc2lv
biB8fCBhLmR1bW15IHx8IGEuZXh0ZXJuYWwgfHwgYS5pbnRyaW5zaWMKICAgICAgIHx8IGEu
b3B0aW9uYWwgfHwgYS5wb2ludGVyIHx8IGEuc2F2ZSB8fCBhLnRhcmdldCB8fCBhLnZvbGF0
aWxlXwogICAgICAgfHwgYS52YWx1ZSB8fCBhLmFjY2VzcyAhPSBBQ0NFU1NfVU5LTk9XTiB8
fCBhLmludGVudCAhPSBJTlRFTlRfVU5LTk9XTgotICAgICAgfHwgYS5hc3luY2hyb25vdXMg
fHwgYS5jb2RpbWVuc2lvbiB8fCBhLnN1YnJvdXRpbmUpCisgICAgICB8fCBhLmFzeW5jaHJv
bm91cyB8fCBhLmNvZGltZW5zaW9uIHx8IGEuc3Vicm91dGluZSB8fCBhLnJlc3VsdCkKICAg
ICByZXR1cm4gMTsKIAogICByZXR1cm4gMDsKZGlmZiAtLWdpdCBhL2djYy90ZXN0c3VpdGUv
Z2ZvcnRyYW4uZGcvZnVuY19yZXN1bHRfOC5mOTAgYi9nY2MvdGVzdHN1aXRlL2dmb3J0cmFu
LmRnL2Z1bmNfcmVzdWx0XzguZjkwCm5ldyBmaWxlIG1vZGUgMTAwNjQ0CmluZGV4IDAwMDAw
MDAwMDAwLi5iYmUwYjI1Mzk1YwotLS0gL2Rldi9udWxsCisrKyBiL2djYy90ZXN0c3VpdGUv
Z2ZvcnRyYW4uZGcvZnVuY19yZXN1bHRfOC5mOTAKQEAgLTAsMCArMSwxNyBAQAorISB7IGRn
LWRvIHJ1biB9CishCishIFBSIGZvcnRyYW4vNzg3MTgKK3Byb2dyYW0gcAorICAgaW50ZWdl
ciA6OiBuLCBtCisgICBuID0gMQorICAgaWYgKGYoKSAvPSAxKSBzdG9wIDEKK2NvbnRhaW5z
CisgICBmdW5jdGlvbiBmKCkgcmVzdWx0KG0pCisgICAgICBjYWxsIHMobiwgbSkKKyAgIGVu
ZCBmdW5jdGlvbgorZW5kIHByb2dyYW0KKworc3Vicm91dGluZSBzKGEsIGIpCisgICBpbnRl
Z2VyIDo6IGEsIGIKKyAgIGIgPSBhCitlbmQgc3Vicm91dGluZQo=

--------------YPNp15ljZ2Tvszx8R0VNcgby--