gcc/testsuite/gfortran.dg/constant_substring.f

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