Sign in
gnu
/
gcc
/
14bc1c0e15633ea781d76d0ae4274b2e27d51db5
/
.
/
gcc
/
testsuite
/
g77.f-torture
/
noncompile
/
19990905-1.f
blob: 026d05e4b3ce819aeef9a46c795205ebd4fba542 [
file
] [
log
] [
blame
]
*
=
foo7
.
f
in
Burley
's g77 test suite.
subroutine x
real a(n)
common /foo/n
continue
entry y(a)
call foo(a(1))
end