|
|
1.1 root 1: subroutine foo(f, g)
2: external f
3: double precision g
4: call goo(f,g(3))
5: end
6: logical function f(n)
7: f = n .gt. 3
8: end
9: external f, g
10: call foo(f, g)
11: end
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.