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.
5module m
6  character (*), parameter :: a = "AABBCC"(1:4)
7end module m
8
9use m
10character(4) :: b
11b = a
12end
13