repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Merge to HEAD at tree-cleanup-merge-20041024 .
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
claus.f
blob
bccef7f4090b287775b27bc35b9e617f0cf6e23d
1
PROGRAM
TEST
2
REAL
AB
(
3
)
3
do
i
=
1
,
3
4
AB
(
i
)=
i
5
enddo
6
k
=
1
7
n
=
2
8
ind
=
k
-
n
+
2
9
if
(
ind
/=
1
)
call
abort
10
if
(
ab
(
ind
) /=
1
)
call
abort
11
if
(
k
-
n
+
2
/=
1
)
call
abort
12
if
(
ab
(
k
-
n
+
2
) /=
1
)
call
abort
13
END