gcc/testsuite/gfortran.dg/typebound_generic_12.f03

   1 ! { dg-do compile }
   2 !
   3 ! PR 53328: [OOP] Ambiguous check for type-bound GENERIC shall ignore PASSed arguments
   4 !
   5 ! Contributed by Salvatore Filippone <filippone.salvatore@gmail.com>
   6
   7 module m
   8   type t
   9   contains
  10     procedure, pass(this) :: sub1
  11     procedure, pass(this) :: sub2
  12     generic :: gen => sub1, sub2   ! { dg-error "are ambiguous" }
  13   end type t
  14 contains
  15   subroutine sub1 (x, this)
  16     integer :: i
  17     class(t) :: this
  18   end subroutine sub1
  19
  20   subroutine sub2 (this, y)
  21     integer :: i
  22     class(t) :: this
  23   end subroutine sub2
  24 end module m