1! { dg-do run } 2! 3! PR fortran/89077 - ICE using * as len specifier for character parameter 4 5program test 6 implicit none 7 integer :: i 8 character(*), parameter :: s = 'abcdef' 9 character(*), parameter :: t = transfer ([(s(i:i), i=1,len(s))], s) 10 if (len (t) /= len (s) .or. t /= s) stop 1 11end 12