+! { dg-do compile }
+!
+! PR 60853: [OOP] Failure to disambiguate generic with unlimited polymorphic
+!
+! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
+
+module foo_mod
+ implicit none
+
+ type Vector
+ contains
+ procedure :: copyFromScalar
+ procedure :: copyFromArray
+ generic :: assignment(=) => copyFromScalar, copyFromArray
+ end type
+
+contains
+
+ subroutine copyFromScalar(this, scalar)
+ class (Vector), intent(inout) :: this
+ type (Vector), intent(in) :: scalar
+ end subroutine
+
+ subroutine copyFromArray(this, array)
+ class (Vector), intent(inout) :: this
+ class (*), intent(in) :: array(:)
+ end subroutine
+
+end module