https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95541
G. Steinmetz <gs...@t-online.de> changed:
What |Removed |Added
----------------------------------------------------------------------------
Keywords| |ice-on-valid-code
--- Comment #1 from G. Steinmetz <gs...@t-online.de> ---
This variant works :
$ cat z2.f90
program p
type t(n)
integer, len :: n
integer :: a(n)
end type
type(t(3)) :: x(2)
x(1)%a = [1, 2, 3]
x(2)%a = [4, 5, 6]
associate (y => x(2)%a(3))
print *, y
end associate
associate (y => x(2)%a)
print *, y
end associate
end
$ gfortran-11-20200531 z2.f90 && ./a.out
6
4 5 6
$
