gcc/testsuite/gfortran.dg/contained_equivalence_1.f90

   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 !
   7 program contained_equiv
   8   real a
   9   a = 1.0
  10   call foo ()
  11   if (a.ne.1.0) call abort ()
  12 contains
  13   subroutine foo ()
  14     real b
  15     equivalence (a, b)
  16     b = 2.0
  17   end subroutine foo
  18 end program contained_equiv