1! { dg-do run } 2! This program tests that equivalence only associates variables in 3! the same scope. 4! 5! provided by Paul Thomas - pault@gcc.gnu.org 6! 7program contained_equiv 8 real a 9 a = 1.0 10 call foo () 11 if (a.ne.1.0) call abort () 12contains 13 subroutine foo () 14 real b 15 equivalence (a, b) 16 b = 2.0 17 end subroutine foo 18end program contained_equiv 19