2003-12-26 Guilhem Lavaux <guilhem@kaffe.org>

[official-gcc.git] / gcc / testsuite / g77.f-torture / noncompile / 19990905-1.f

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