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