OpenCores

URL https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk

Subversion Repositories openrisc_2011-10-31

[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [g77/] [19990905-0.f] - Rev 302

Go to most recent revision | Compare with Previous | Blame | View Log

c { dg-do compile }
* =foo0.f in Burley's g77 test suite.
! Used to give "Variable 'm' cannot appear" "Variable 'm' cannot appear"
! after REAL a(m,n), as described in PR 16511.
!
      subroutine sub(a)
      equivalence (m,iarray(100))
      common /info/ iarray(1000)
      equivalence (n,iarray(200))
      real a(m,n)
      a(1,1) = a(2,2)
      end

Go to most recent revision | 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.