gcc/testsuite/gfortran.dg/array_constructor_48.f90

   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 :: ]
  12 end
  13
  14 subroutine invalid()
  15     print *, [ type(integer) :: ] ! { dg-error "Syntax error in array constructor" }
  16     print *, [ type(tt) :: ]      ! { dg-error "Syntax error in array constructor" }
  17 end subroutine invalid