Subversion Repositories openrisc

! { dg-do run }

! { dg-do run }

! Renaming of operators

! Renaming of operators

module z

module z

  interface operator(.addfive.)

  interface operator(.addfive.)

    module procedure sub2

    module procedure sub2

  end interface

  end interface

contains

contains

function sub2(x)

function sub2(x)

  integer :: sub

  integer :: sub

  integer,intent(in) :: x

  integer,intent(in) :: x

  sub2 = x + 5

  sub2 = x + 5

end function sub2

end function sub2

end module z

end module z

module y

module y

  interface operator(.addfive.)

  interface operator(.addfive.)

    module procedure sub

    module procedure sub

  end interface

  end interface

contains

contains

function sub(x)

function sub(x)

  integer :: sub

  integer :: sub

  integer,intent(in) :: x

  integer,intent(in) :: x

  sub = x + 15

  sub = x + 15

end function sub

end function sub

end module y

end module y

module x

module x

  interface operator(.addfive.)

  interface operator(.addfive.)

    module procedure sub

    module procedure sub

  end interface

  end interface

contains

contains

function sub(x)

function sub(x)

  integer :: sub

  integer :: sub

  integer,intent(in) :: x

  integer,intent(in) :: x

  sub = x + 25

  sub = x + 25

end function sub

end function sub

end module x

end module x

use x, only : operator(.bar.) => operator(.addfive.)

use x, only : operator(.bar.) => operator(.addfive.)

use y, operator(.my.) => operator(.addfive.)

use y, operator(.my.) => operator(.addfive.)

use z

use z

 integer :: i

 integer :: i

 i = 2

 i = 2

 if ((.bar. i) /= 2+25) call abort ()

 if ((.bar. i) /= 2+25) call abort ()

 if ((.my. i) /= 2+15) call abort ()

 if ((.my. i) /= 2+15) call abort ()

 if ((.addfive. i) /= 2+5) call abort ()

 if ((.addfive. i) /= 2+5) call abort ()

end

end

! { dg-final { cleanup-modules "x y z" } }

! { dg-final { cleanup-modules "x y z" } }