! { dg-do run } | |
! PR93685 - ICE in gfc_constructor_append_expr, at fortran/constructor.c:135 | |
program p | |
implicit none | |
type t | |
character, pointer :: a | |
end type t | |
type u | |
integer, pointer :: i | |
end type u | |
type(t) :: x | |
type(u) :: y | |
character, target :: c = 'c' | |
integer , target :: i = 10 | |
data x%a /c/ | |
data y%i /i/ | |
if (x% a /= "c") stop 1 | |
if (y% i /= 10) stop 2 | |
end |