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