1 2 3 4 5 6 7 8 9 10 11
! { dg-do compile } ! ! PR fortran/41600 ! implicit none type t integer :: X = -999.0 end type t class(t), allocatable :: y(:) allocate (t :: y(1)) end