Subversion Repositories scarts

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