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
2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>
[official-gcc.git]
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990905-0.f
blob
b945b2eb1bd3cd03eedafc36dd4a5156034c04b8
1
* =
foo0
.
f in Burley
's g77 test suite.
2
subroutine sub(a)
3
common /info/ iarray(1000)
4
equivalence (m,iarray(100)), (n,iarray(200))
5
real a(m,n)
6
a(1,1) = a(2,2)
7
end