3 ! PR 60853: [OOP] Failure to disambiguate generic with unlimited polymorphic
5 ! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
12 procedure
:: copyFromScalar
13 procedure
:: copyFromArray
14 generic
:: assignment(=) => copyFromScalar
, copyFromArray
19 subroutine copyFromScalar(this
, scalar
)
20 class (Vector
), intent(inout
) :: this
21 type (Vector
), intent(in
) :: scalar
24 subroutine copyFromArray(this
, array
)
25 class (Vector
), intent(inout
) :: this
26 class (*), intent(in
) :: array(:)