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.
7 equivalence (m,iarray(100))
8 common /info/ iarray(1000)
9 equivalence (n,iarray(200))