gcc/testsuite/gfortran.dg/use_11.f90

   1 ! { dg-do run }
   2 ! Test the fix for a regression caused by the fix for PR33541,
   3 ! in which the second local version of a would not be associated.
   4 !
   5 ! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
   6 !            and Tobias Burnus <burnus@gcc.gnu.org>
   7 !
   8 module m
   9   integer :: a
  10 end module m
  11
  12 use m, local1 => a
  13 use m, local2 => a
  14 local1 = 5
  15 local2 = 3
  16 if (local1 .ne. local2) call abort ()
  17 end
  18 ! { dg-final { cleanup-modules "test" } }