! { 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 m | |
use m | |
character(4) :: b | |
b = a | |
end |