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