! { dg-do compile } | |
! | |
! PR 54594: [OOP] Type-bound ASSIGNMENTs (elemental + array version) rejected as ambiguous | |
! | |
! Contributed by James van Buskirk | |
module a_mod | |
type :: a | |
contains | |
procedure, NOPASS :: a_ass, a_ass_sv | |
generic :: ass => a_ass, a_ass_sv | |
end type | |
contains | |
impure elemental subroutine a_ass (out) | |
class(a), intent(out) :: out | |
end subroutine | |
subroutine a_ass_sv (out) | |
class(a), intent(out) :: out(:) | |
end subroutine | |
end module |