| ! { dg-do run } | |
| ! | |
| ! PR 60357: [F08] structure constructor with unspecified values for allocatable components | |
| ! | |
| ! Contributed by Antony Lewis <antony@cosmologist.info> | |
| Type A | |
| integer :: X = 1 | |
| integer, allocatable :: y | |
| integer, allocatable :: z(:) | |
| end type | |
| Type(A) :: Me = A(X=1) | |
| if (allocated(Me%y)) STOP 1 | |
| if (allocated(Me%z)) STOP 2 | |
| end |