1! { dg-do compile } 2! PR fortran/82049 3! Original code contributed by John Harper <john dot harper at vuw dot ac dot nz> 4program ice ! f2003 5 implicit none 6 character(*), parameter:: a = 'ice', b = '*' 7 character(*), parameter:: c(2) = [character(len(a)) :: a, b] 8 print "(2A4)",adjustr(c) 9end program ice 10