19990905-1.f   [plain text]

c { dg-do compile }
c
c  g77 gave error
c  19990905-1.f: In subroutine `x':
c  19990905-1.f:15: 
c           common /foo/n
c                   1
c  19990905-1.f:18: (continued):
c           call foo(a(1))
c                2
c  Invalid declaration of or reference to symbol `foo' at (2) [initially seen at (1)]
* =foo7.f in Burley's g77 test suite.
      subroutine x
      real a(n)
      common /foo/n  ! { dg-error "is already being used as a COMMON" }
      continue
      entry y(a)
      call foo(a(1)) ! { dg-error "is already being used as a COMMON" }
      end