Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51578

!

! Contributed by Billy Backer

!

! Check that indict importing of the symbol "axx" works

! even if renaming prevent the direct import.

!

module mod1

integer :: axx=2

end module mod1

module mod2

use mod1

end module mod2

subroutine sub1

use mod1, oxx=>axx

use mod2

implicit none

print*,axx ! Valid - was working before

end subroutine sub1

subroutine sub2

use mod2

use mod1, oxx=>axx

implicit none

print*,axx ! Valid - was failing before

end subroutine sub2

subroutine test1

  use :: iso_c_binding

  use, intrinsic :: iso_c_binding, only: c_double_orig => c_double

  integer :: c_double

  integer, parameter :: p1 = c_int, p2 = c_double_orig

end subroutine test1

! { dg-final { cleanup-modules "mod1 mod2" } }