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