used_types_7.f90

来自「用于进行gcc测试」· F90 代码 · 共 40 行

! { dg-do compile }
! Tests the fix for a further regression caused by the
! fix for PR28788 and posted as PR28908. The problem was
! caused by the patch preventing interface derived types
! from associating with identical derived types in the
! containing namespaces.
!
! Contributed by HJ Lu  <[e-mail]>
!
module bar
  implicit none
  public
  type ESMF_Time
    integer :: DD
  end type
end module bar

module foo
  use bar
  implicit none
  private
  type ESMF_Clock
    type(ESMF_Time)  :: CurrTime
  end type
  interface operator (+)
    function add (x, y)
      use bar
      type(ESMF_Time) :: add
      type(ESMF_Time), intent(in) :: x
      type(ESMF_Time), intent(in) :: y
    end function add
  end interface
contains
  subroutine ESMF_ClockAdvance(clock)
    type(ESMF_Clock), intent(inout) :: clock
    clock%CurrTime = clock%CurrTime + clock%CurrTime
  end subroutine ESMF_ClockAdvance
end module foo
! { dg-final { cleanup-modules "foo bar" } }