gcc/testsuite/gfortran.dg/pr22491.f

   1 ! PR fortran/21730
   2 ! { dg-do run }
   3       character*2 a (1)
   4       character*4 b (1)
   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