Sign in
llvm
/
llvm-archive
/
f91d1660b4827134c7666ae9637f21a2741d183f
/
.
/
llvm-gcc-4.0
/
gcc
/
testsuite
/
gfortran.dg
/
pr17164.f90
blob: a0dfff9aa007d0b740a656800a4733108b039dd4 [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
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
)
call abort
end