Sign in
llvm
/
llvm-test-suite
/
refs/tags/llvmorg-19.1.2
/
.
/
Fortran
/
gfortran
/
regression
/
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
