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