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