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.

Reply via email to