Sign in
llvm
/
llvm-archive
/
3698204cb8af2c80b326ae84c9a9e6a4bccbdedc
/
.
/
llvm-gcc-4.2
/
gcc
/
testsuite
/
gfortran.dg
/
g77
/
7388.f
blob: 0b8374646b053258f68700638080247bb0bfb4cf [
file
] [
log
] [
blame
]
C
{
dg
-
do
run
}
C
{
dg
-
options
"-fbounds-check"
}
character
*
25
buff
(
0
:
10
)
character
*
80
line
integer i
,
m1
,
m2
i
=
1
m1
=
1
m2
=
7
buff
(
i
)
=
'tcase0a'
write
(
line
,*)
buff
(
i
)(
m1
:
m2
)
if
(
line
.
ne
.
' tcase0a'
)
call abort
end