gcc/testsuite/gfortran.dg/constant_substring.f

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