gcc/testsuite/gfortran.dg/pr21730.f

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