5 ! Contributed by Damian Rouson
10 procedure(t_interface
) ,deferred
:: t
11 procedure(assign_interface
) ,deferred
:: assign
12 procedure(multiply_interface
) ,deferred
:: multiply
13 generic
:: operator(*) => multiply
14 generic
:: assignment(=) => assign
17 function t_interface(this
)
20 class(foo
), allocatable
::t_interface
22 function multiply_interface(lhs
,rhs
)
24 class(foo
), allocatable
:: multiply_interface
25 class(foo
), intent(in
) :: lhs
26 real, intent(in
) :: rhs
28 subroutine assign_interface(lhs
,rhs
)
30 class(foo
), intent(in
) :: rhs
31 class(foo
), intent(inout
) :: lhs
37 real, intent(in
) :: dt