gcc/testsuite/gfortran.dg/pr22491.f

   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  #') call abort
  12       end
  13