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