https://gcc.gnu.org/bugzilla/show_bug.cgi?id=89077
--- Comment #11 from Harald Anlauf <anlauf at gmx dot de> ---
I'm currently using the following minimal testcases for further debugging:
==> f1.f90 <==
character(1), parameter :: u = transfer ([('a'(i:i),i=1,1)], 'x')
print *, u
end
==> f2.f90 <==
character(1), save :: v = transfer ([('a'(i:i),i=1,1)], 'x')
print *, v
end
==> f3.f90 <==
character(1), save :: w = transfer ([('a' ,i=1,1)], 'x')
print *, w
end
f1 and f3 work, f2 does ICE.
