| ! { dg-do compile } | |
| ! PR93685 - ICE in gfc_constructor_append_expr, at fortran/constructor.c:135 | |
| program p | |
| implicit none | |
| type t | |
| character :: a | |
| end type t | |
| type u | |
| integer :: i | |
| end type u | |
| type(t) :: x | |
| type(u) :: y | |
| character, target :: c = 'c' | |
| integer , target :: i = 10 | |
| data x%a /c/ ! { dg-error "non-constant initialization expression" } | |
| data y%i /i/ ! { dg-error "non-constant initialization expression" } | |
| end |