19990905-1.f

来自「gcc3.2.1源代码」· F 代码 · 共 9 行

* =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