26 lines
478 B
Fortran
26 lines
478 B
Fortran
! { 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
|