[patch, Fortran, committed] Showing ALLOCATE typespecs and walking character lengths in code walker.

Thomas Koenig <[email protected]> Sun, 19 Jul 2026 16:26:36 +0200
Newsgroups gmane.comp.gcc.patches,gmane.comp.gcc.fortran
Message-ID <[email protected]>
This is a multi-part message in MIME format.
--------------0hkwQk7fU04CX919uhtODWQn
Content-Type: text/plain; charset=UTF-8; format=flowed
Content-Transfer-Encoding: 7bit

Hello world,

like it says in the ChangeLog. Regression-tested, no user impact,
obvious and simple.

Best regards

	Thomas

Showing ALLOCATE typespecs and walking character lengths in code walker.

This dumps the typespec of an ALLOCATE statement and also walks the charlen
of a character espression and an array if present.

gcc/fortran/ChangeLog:

	* dump-parse-tree.cc (show_code_node): Show typespec for
	ALLOCATE if present.
	* frontend-passes.cc (gfc_expr_walker): Walk the character
	typespec length for array expressions.
	(gfc_code_walker): Walk the typespec for ALLOCATE if present.
--------------0hkwQk7fU04CX919uhtODWQn
Content-Type: text/x-patch; charset=UTF-8; name="p-dump.diff"
Content-Disposition: attachment; filename="p-dump.diff"
Content-Transfer-Encoding: base64

ZGlmZiAtLWdpdCBhL2djYy9mb3J0cmFuL2R1bXAtcGFyc2UtdHJlZS5jYyBiL2djYy9mb3J0
cmFuL2R1bXAtcGFyc2UtdHJlZS5jYwppbmRleCBlYWY2NTY1ZDBlMC4uNWYwNThjZGM4MzAg
MTAwNjQ0Ci0tLSBhL2djYy9mb3J0cmFuL2R1bXAtcGFyc2UtdHJlZS5jYworKysgYi9nY2Mv
Zm9ydHJhbi9kdW1wLXBhcnNlLXRyZWUuY2MKQEAgLTM0MDcsNiArMzQwNywxMyBAQCBzaG93
X2NvZGVfbm9kZSAoaW50IGxldmVsLCBnZmNfY29kZSAqYykKIAogICAgIGNhc2UgRVhFQ19B
TExPQ0FURToKICAgICAgIGZwdXRzICgiQUxMT0NBVEUgIiwgZHVtcGZpbGUpOworCisgICAg
ICBpZiAoYy0+ZXh0LmFsbG9jLnRzLnR5cGUgIT0gQlRfVU5LTk9XTikKKwl7CisJICBzaG93
X3R5cGVzcGVjICgmYy0+ZXh0LmFsbG9jLnRzKTsKKwkgIGZwdXRzICgiOjogIiwgZHVtcGZp
bGUpOworCX0KKwogICAgICAgaWYgKGMtPmV4cHIxKQogCXsKIAkgIGZwdXRzICgiIFNUQVQ9
IiwgZHVtcGZpbGUpOwpkaWZmIC0tZ2l0IGEvZ2NjL2ZvcnRyYW4vZnJvbnRlbmQtcGFzc2Vz
LmNjIGIvZ2NjL2ZvcnRyYW4vZnJvbnRlbmQtcGFzc2VzLmNjCmluZGV4IDg3YWM2ZTBhNGU3
Li45MjY3ODMxMGZmZCAxMDA2NDQKLS0tIGEvZ2NjL2ZvcnRyYW4vZnJvbnRlbmQtcGFzc2Vz
LmNjCisrKyBiL2djYy9mb3J0cmFuL2Zyb250ZW5kLXBhc3Nlcy5jYwpAQCAtNTMwNiw4ICs1
MzA2LDE0IEBAIGdmY19leHByX3dhbGtlciAoZ2ZjX2V4cHIgKiplLCB3YWxrX2V4cHJfZm5f
dCBleHByZm4sIHZvaWQgKmRhdGEpCiAJICAgICAgV0FMS19TVUJFWFBSIChhLT5leHByKTsK
IAkgICAgYnJlYWs7CiAKLQkgIGNhc2UgRVhQUl9TVFJVQ1RVUkU6CiAJICBjYXNlIEVYUFJf
QVJSQVk6CisJICAgIGlmICgoKmUpLT50cy50eXBlID09IEJUX0NIQVJBQ1RFUikKKwkgICAg
ICBXQUxLX1NVQkVYUFIgKCgqZSktPnRzLnUuY2wtPmxlbmd0aCk7CisKKwkgICAgZ2NjX2Zh
bGx0aHJvdWdoICgpOworCisJICBjYXNlIEVYUFJfU1RSVUNUVVJFOgorCiAJICAgIGZvciAo
YyA9IGdmY19jb25zdHJ1Y3Rvcl9maXJzdCAoKCplKS0+dmFsdWUuY29uc3RydWN0b3IpOyBj
OwogCQkgYyA9IGdmY19jb25zdHJ1Y3Rvcl9uZXh0IChjKSkKIAkgICAgICB7CkBAIC01NDgw
LDYgKzU0ODYsMTEgQEAgZ2ZjX2NvZGVfd2Fsa2VyIChnZmNfY29kZSAqKmMsIHdhbGtfY29k
ZV9mbl90IGNvZGVmbiwgd2Fsa19leHByX2ZuX3QgZXhwcmZuLAogCSAgICAgIGNvbnRpbnVl
OwogCiAJICAgIGNhc2UgRVhFQ19BTExPQ0FURToKKwkgICAgICBpZiAoY28tPmV4dC5hbGxv
Yy50cy50eXBlID09IEJUX0NIQVJBQ1RFUikKKwkJV0FMS19TVUJFWFBSIChjby0+ZXh0LmFs
bG9jLnRzLnUuY2wtPmxlbmd0aCk7CisKKwkgICAgICBnY2NfZmFsbHRocm91Z2goKTsKKwog
CSAgICBjYXNlIEVYRUNfREVBTExPQ0FURToKIAkgICAgICB7CiAJCWdmY19hbGxvYyAqYTsK


--------------0hkwQk7fU04CX919uhtODWQn--