19 lines
442 B
Fortran
19 lines
442 B
Fortran
! { dg-do run }
|
|
! Test the fix for a regression caused by the fix for PR33541,
|
|
! in which the second local version of a would not be associated.
|
|
!
|
|
! Contributed by Dominique d'Humieres <dominiq@lps.ens.fr>
|
|
! and Tobias Burnus <burnus@gcc.gnu.org>
|
|
!
|
|
module m
|
|
integer :: a
|
|
end module m
|
|
|
|
use m, local1 => a
|
|
use m, local2 => a
|
|
local1 = 5
|
|
local2 = 3
|
|
if (local1 .ne. local2) call abort ()
|
|
end
|
|
! { dg-final { cleanup-modules "test" } }
|