Sign in
llvm
/
llvm-archive
/
67ca873b99b7e631820d261833301c41ad8006b1
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
eoshift.f90
blob: bb1cba4712d15e456589ca511544a6118a31d1fa [
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
,
'(I4)'
)
eoshift
((
/1, 3/
),
3
)
end
program main