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.