Update concepts branch to revision 131834
[official-gcc.git] / gcc / testsuite / gfortran.dg / array_constructor_type_3.f03
blobbebaea5c5d9ce785cc532a4d50f18aea3a8c5cae
1 ! { dg-do run }
3 ! PR fortran/27997
5 ! Test empty array constructor with typespec.
7 PROGRAM test
8   IMPLICIT NONE
9   INTEGER :: array(2)
11   array = (/ 5, [INTEGER ::], 6 /)
13   IF (array(1) /= 5 .OR. array(2) /= 6) THEN
14       CALL abort()
15   END IF
16 END PROGRAM test