Subversion Repositories openrisc

! { dg-do compile }

! { dg-do compile }

! Tests the fix for a further regression caused by the

! Tests the fix for a further regression caused by the

! fix for PR28788 and posted as PR28908. The problem was

! fix for PR28788 and posted as PR28908. The problem was

! caused by the patch preventing interface derived types

! caused by the patch preventing interface derived types

! from associating with identical derived types in the

! from associating with identical derived types in the

! containing namespaces.

! containing namespaces.

!

!

! Contributed by HJ Lu  

! Contributed by HJ Lu  

!

!

module bar

module bar

  implicit none

  implicit none

  public

  public

  type ESMF_Time

  type ESMF_Time

    integer :: DD

    integer :: DD

  end type

  end type

end module bar

end module bar

module foo

module foo

  use bar

  use bar

  implicit none

  implicit none

  private

  private

  type ESMF_Clock

  type ESMF_Clock

    type(ESMF_Time)  :: CurrTime

    type(ESMF_Time)  :: CurrTime

  end type

  end type

  interface operator (+)

  interface operator (+)

    function add (x, y)

    function add (x, y)

      use bar

      use bar

      type(ESMF_Time) :: add

      type(ESMF_Time) :: add

      type(ESMF_Time), intent(in) :: x

      type(ESMF_Time), intent(in) :: x

      type(ESMF_Time), intent(in) :: y

      type(ESMF_Time), intent(in) :: y

    end function add

    end function add

  end interface

  end interface

contains

contains

  subroutine ESMF_ClockAdvance(clock)

  subroutine ESMF_ClockAdvance(clock)

    type(ESMF_Clock), intent(inout) :: clock

    type(ESMF_Clock), intent(inout) :: clock

    clock%CurrTime = clock%CurrTime + clock%CurrTime

    clock%CurrTime = clock%CurrTime + clock%CurrTime

  end subroutine ESMF_ClockAdvance

  end subroutine ESMF_ClockAdvance

end module foo

end module foo

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

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