|
|
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.