gcc/testsuite/gfortran.dg/substr_1.f90

   1 ! { dg-do compile }
   2 ! we used to save the wrong components of a gfc_expr describing a
   3 ! substring of a constant string.  This yielded a segfault on
   4 ! translating the expressions read from the module.
   5 module m
   6   character (*), parameter :: a = "AABBCC"(1:4)
   7 end module m
   8
   9 use m
  10 character(4) :: b
  11 b = a
  12 end
  13
  14 ! { dg-final { cleanup-modules "m" } }