1! { dg-do run } 2! 3! PR fortran/27997 4! 5! Simple array constructor with typespec. 6! 7PROGRAM test 8 IMPLICIT NONE 9 INTEGER :: array(5) 10 11 array = (/ INTEGER :: 18, 12, 31, 3, 42.4 /) 12 13 IF (array(1) /= 18 .OR. array(2) /= 12 .OR. & 14 array(3) /= 31 .OR. array(4) /= 3 .OR. array(5) /= 42) THEN 15 STOP 1 16 END IF 17END PROGRAM test 18