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