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