gcc/testsuite/gfortran.dg/typebound_generic_14.f03

   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
   7 module 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
  15 contains
  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
  25 end module