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!
8module m
9  integer :: a
10end module m
11
12use m, local1 => a
13use m, local2 => a
14local1 = 5
15local2 = 3
16if (local1 .ne. local2) call abort ()
17end
18