gcc/testsuite/gfortran.dg/g77/19990905-0.f

   1 c { 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