Sign in
llvm
/
llvm-test-suite
/
refs/heads/main
/
.
/
Fortran
/
gfortran
/
regression
/
pr17164.f90
blob: 92632efbbef3944beba02b0bc5e605d52633661a [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
{
dg
-
options
"-std=legacy"
}
!
!
pr17164
!
index aborts
when
substring
is
longer than
string
implicit
none
character
*
5
x
integer i
x
=
'12345'
i
=
index
(
x
,
'blablabl'
)
if
(
i
.
ne
.
0
)
STOP
1
end