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() 11end 12