OpenCores
URL https://opencores.org/ocsvn/scarts/scarts/trunk

Subversion Repositories scarts

[/] [scarts/] [trunk/] [toolchain/] [scarts-gcc/] [gcc-4.1.1/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990905-1.f] - Rev 12

Compare with Previous | Blame | View Log

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

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.