! { dg-do compile }! we used to save the wrong components of a gfc_expr describing a! substring of a constant string.  This yielded a segfault on! translating the expressions read from the module.module m  character (*), parameter :: a = "AABBCC"(1:4)end module muse mcharacter(4) :: bb = aend