https://gcc.gnu.org/bugzilla/show_bug.cgi?id=107996
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-invalid-code,
| |rejects-valid
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
Moreover, this valid code should print 'a' :
$ cat z2.f90
program p
associate (a => [1])
print *, [character(size(a(:))) :: 'a']
end associate
end
$ cat z3.f90
program p
associate (a => [1])
print *, [character(size(a)) :: 'a']
end associate
end
$ gfortran-13-20221204 -c z3.f90
z3.f90:3:42:
3 | print *, [character(size(a)) :: 'a']
| ^
Error: size of variable 'A.1' is too large
