Sign in
chromium
/
chromiumos
/
third_party
/
gcc
/
refs/heads/factory-monroe-5140.B
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
array_constructor_type_3.f03
blob: bebaea5c5d9ce785cc532a4d50f18aea3a8c5cae [
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
CALL abort
()
END
IF
END
PROGRAM test
