https://gcc.gnu.org/bugzilla/show_bug.cgi?id=83975
--- Comment #7 from G. Steinmetz <gs...@t-online.de> ---
Some additional testcases :
$ cat z2.f90
subroutine s(x)
character(*) :: x
associate (y => [x])
print *, size(y), len(y), y
end associate
end
$ cat z3.f90
subroutine s(x)
character(*) :: x
associate (y => [x, x])
print *, y
end associate
end
$ cat z4.f90
subroutine s(x)
character(*) :: x
associate (y => x)
y = 'abc'
print *, y
end associate
end
$ cat z5.f90
subroutine s(x)
character(*) :: x
associate (y => x//x)
print *, y
end associate
end
