Subversion Repositories openrisc

! { dg-do compile }

!

! PR fortran/51816

!

! Contributed by Harald Anlauf

!

module foo

  implicit none

  type t

     integer :: i

  end type t

  interface operator (*)

     module procedure mult

  end interface

contains

  function mult (i, j)

    type(t), intent(in) :: i, j

    integer             :: mult

    mult = i%i * j%i

  end function mult

end module foo

module bar

  implicit none

  type t2

     integer :: i

  end type t2

  interface operator (>)

     module procedure gt

  end interface

contains

  function gt (i, j)

    type(t2), intent(in) :: i, j

    logical             :: gt

    gt = i%i > j%i

  end function gt

end module bar

use bar, only : t2, operator(>) , operator(>)

use foo, only : t

use foo, only : operator (*)

use foo, only : t

use foo, only : operator (*)

implicit none

type(t) :: i = t(1), j = t(2)

type(t2) :: k = t2(1), l = t2(2)

print *, i*j

print *, k > l

end

! { dg-final { cleanup-modules "foo bar" } }