1! { dg-do compile }
2!
3! PR 60853: [OOP] Failure to disambiguate generic with unlimited polymorphic
4!
5! Contributed by tlcclt <Thomas.L.Clune@nasa.gov>
6
7module foo_mod
8   implicit none
9
10   type Vector
11   contains
12      procedure :: copyFromScalar
13      procedure :: copyFromArray
14      generic :: assignment(=) => copyFromScalar, copyFromArray
15   end type
16
17contains
18
19   subroutine copyFromScalar(this, scalar)
20      class (Vector), intent(inout) :: this
21      type  (Vector), intent(in) :: scalar
22   end subroutine
23
24   subroutine copyFromArray(this, array)
25      class (Vector), intent(inout) :: this
26      class (*), intent(in) :: array(:)
27   end subroutine
28
29end module
30