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