Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
zero_sized_6.f90
blob: f944fd91444309a3596763be0beac8e630bbf34f [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR38709
-
ICE
-
on
-
invalid on zero
-
sized array
in
init
-
expr
.
INTEGER
,
PARAMETER
::
a
(
1
)
=
(
/ 1 /
)
INTEGER
,
PARAMETER
::
i
=
a
(
shape
(
1
))
!
{
dg
-
error
"Incompatible ranks"
}
END