1! { dg-do run }
2!
3! PR fortran/27997
4!
5! Test empty array constructor with typespec.
6!
7PROGRAM test
8  IMPLICIT NONE
9  INTEGER :: array(2)
10
11  array = (/ 5, [INTEGER ::], 6 /)
12
13  IF (array(1) /= 5 .OR. array(2) /= 6) THEN
14      CALL abort()
15  END IF
16END PROGRAM test
17