Sign in
gnu
/
gcc
/
4a0fed0c0c7241562eaa5f1a4c916b689429ad86
/
.
/
gcc
/
testsuite
/
gfortran.dg
/
eoshift.f90
blob: ae7643bfd8f86c4819b3a8889c744d61c372e6e8 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
PR
18958
:
We
used to segfault
for
eoshifting off the
end
of an array
.
program main
character
(
len
=
20
)
line
write
(
line
,
'(2I4)'
)
eoshift
((
/1, 3/
),
3
)
end
program main