gcc/testsuite/gfortran.dg/g77/19990905-1.f

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