1! { dg-do compile } 2! 3! PR fortran/57549 4! 5! Contributed by Vladimir Fuka 6! 7 type t 8 end type 9 type(t),allocatable :: a(:) 10 a = [t::t()] 11 print *, [ integer :: ] 12end 13 14subroutine invalid() 15 print *, [ type(integer) :: ] ! { dg-error "Syntax error in array constructor" } 16 print *, [ type(tt) :: ] ! { dg-error "Syntax error in array constructor" } 17end subroutine invalid 18