Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
compile
/
19990905-0.f
blob: b945b2eb1bd3cd03eedafc36dd4a5156034c04b8 [
file
] [
log
] [
blame
]
*
=
foo0
.
f
in
Burley
's g77 test suite.
subroutine sub(a)
common /info/ iarray(1000)
equivalence (m,iarray(100)), (n,iarray(200))
real a(m,n)
a(1,1) = a(2,2)
end