gcc/testsuite/gfortran.dg/typebound_generic_13.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 47710: [OOP] Improve ambiguity check for GENERIC TBP w/ PASS and NOPASS
   4 !
   5 ! Contributed by Janus Weil <janus@gcc.gnu.org>
   6
   7 module m
   8
   9   type base_t
  10   contains
  11     procedure, nopass :: baseproc_nopass => baseproc1
  12     procedure, pass   :: baseproc_pass => baseproc2
  13     generic           :: some_proc => baseproc_pass, baseproc_nopass   ! { dg-error "are ambiguous" }
  14   end type
  15
  16 contains
  17
  18   subroutine baseproc1 (this)
  19     class(base_t) :: this
  20   end subroutine
  21
  22   subroutine baseproc2 (this, that)
  23     class(base_t) :: this, that
  24   end subroutine
  25
  26 end module
  27
  28 ! { dg-final { cleanup-modules "m" } }