1! { dg-do run }
2!
3! PR 60357: [F08] structure constructor with unspecified values for allocatable components
4!
5! Contributed by Antony Lewis <antony@cosmologist.info>
6
7Type A
8  integer :: X = 1
9  integer, allocatable :: y
10  integer, allocatable :: z(:)
11end type
12
13Type(A) :: Me = A(X=1)
14
15if (allocated(Me%y)) STOP 1
16if (allocated(Me%z)) STOP 2
17
18end
19