Subversion Repositories openrisc

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