gcc/testsuite/gfortran.dg/array_constructor_type_11.f03

   1 ! { dg-do run }
   2 !
   3 ! PR fortran/27997
   4 !
   5 ! Empty array constructor with typespec.
   6 !
   7  integer :: i(3)
   8  i(3:2) = (/ integer :: /)
   9  if (len((/ character(5) :: /)) /= 5) call abort()
  10  if (kind((/ integer(8) :: /)) /= 8) call abort()
  11 end