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