2 ! Tests the fix for a further regression caused by the
3 ! fix for PR28788 and posted as PR28908. The problem was
4 ! caused by the patch preventing interface derived types
5 ! from associating with identical derived types in the
6 ! containing namespaces.
8 ! Contributed by HJ Lu <hjl@lucon.org>
19 interface operator (+)
24 type(ESMF_Time
) :: add
25 type(ESMF_Time
), intent(in
) :: x
26 type(ESMF_Time
), intent(in
) :: y
37 type(ESMF_Time
) :: CurrTime
40 subroutine ESMF_ClockAdvance(clock
)
42 type(ESMF_Clock
), intent(inout
) :: clock
43 clock
%CurrTime
= clock
%CurrTime
+ clock
%CurrTime
44 end subroutine ESMF_ClockAdvance
46 ! { dg-final { cleanup-modules "foo bar" } }