Sign in
llvm
/
llvm-archive
/
4c0eaea2f24bb29c9834811d33e29a33d888873d
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
substr_3.f
blob: 3bb71972ff171b9893cf448d440230e8efba8f6f [
file
] [
log
] [
blame
]
!
{
dg
-
do
run
}
!
Check
that substrings behave correctly even
when
zero
-
sized
implicit
none
character
(
len
=
10
)
::
s
,
t
integer
::
i
,
j
s
=
"abcdefghij"
t
(:
10
)
=
s
(
1
:)
s
(
16
:
15
)
=
"foo"
s
(
0
:-
1
)
=
"foo"
if
(
s
/=
t
)
call abort
end