Does the following code conform to the standard considering the
assignment interface as well as a type-bound generic?
module m
type :: t
contains
procedure :: assign_class_t
generic :: assignment(=) => assign_class_t
end type
interface assignment(=)
module procedure assign_t
end interface
contains
subroutine assign_t( this, rhs )
type(t), intent(out), allocatable :: this
type(t), intent(in) :: rhs
end subroutine
subroutine assign_class_t( this, rhs )
class(t), intent(inout) :: this
type(t), intent(in) :: rhs
end subroutine
end module m
Two processors I tried compiled the code with no errors.
Thanks,
Vipul Parekh
|