Sign in
gnu
/
gcc
/
501b3b9ef5be64294f6e51e1e2323b8c9a60adef
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
spread_zerosize_1.f90
blob: 98a28484cf7ce23638109a6e2d409a74bbe7b9f8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
33298
-
zero
-
sized arrays
for
spread were handled
!
incorrectly
.
program main
real
::
x
(
0
,
3
),
y
(
0
)
x
=
spread
(
y
,
2
,
3
)
end