| ! { 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 |