1! { dg-do compile }
2!
3! PR 54594: [OOP] Type-bound ASSIGNMENTs (elemental + array version) rejected as ambiguous
4!
5! Contributed by James van Buskirk
6
7module a_mod
8
9  type :: a
10   contains
11     procedure, NOPASS :: a_ass, a_ass_sv
12     generic :: ass => a_ass, a_ass_sv
13  end type
14
15contains
16
17  impure elemental subroutine a_ass (out)
18    class(a), intent(out) :: out
19  end subroutine
20
21  subroutine a_ass_sv (out)
22    class(a), intent(out) :: out(:)
23  end subroutine
24
25end module
26