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