Sign in
gnu
/
gcc
/
refs/heads/devel/omp/gcc-9
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
pr43996.f90
blob: d0a4daf3cc37b1ba6dbebe49782ee0d3ce3880bc [
file
] [
log
] [
blame
]
!
{
dg
-
do
compile
}
!
PR fortran
/
43996
!
real
,
parameter
::
a
(
720
,
360
)
=
spread
((
/(j, j=1,720) /
),
dim
=
2
,
ncopies
=
360
)
!
{
dg
-
error
"number of elements"
}
real x
x
=
a
(
720
,
360
)
end