1! PR fortran/21730 2! { dg-do run } 3! { dg-options "-std=legacy" } 4! 5 character*2 a (1) 6 character*4 b (1) 7 character*6 c 8 parameter (a="12") 9 parameter (b = a) 10 write (c,'("#",A,"#")') b 11 if (c .ne. '#12 #') STOP 1 12 end 13 14