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