Sign in
gnu
/
gcc
/
refs/tags/basepoints/gcc-13
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_type_3.f03
blob: e8d10bf37f6f3daf3441a3f400560260bdc032d1 [
file
] [
log
] [
blame
]
!
{
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
STOP
1
END
IF
END
PROGRAM test
