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>
23 type(ESMF_Time
) :: CurrTime
25 interface operator (+)
28 type(ESMF_Time
) :: add
29 type(ESMF_Time
), intent(in
) :: x
30 type(ESMF_Time
), intent(in
) :: y
34 subroutine ESMF_ClockAdvance(clock
)
35 type(ESMF_Clock
), intent(inout
) :: clock
36 clock
%CurrTime
= clock
%CurrTime
+ clock
%CurrTime
37 end subroutine ESMF_ClockAdvance