gcc/testsuite/gfortran.dg/typebound_generic_16.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 77501: [F03] ICE in gfc_match_generic, at fortran/decl.c:9429
   4 !
   5 ! Contributed by Gerhard Steinmetz <gerhard.steinmetz.fortran@t-online.de>
   6
   7 module m1
   8   type t
   9   contains
  10     generic :: f => g  ! { dg-error "must target a specific binding" }
  11     generic :: g => h  ! { dg-error "Undefined specific binding" }
  12   end type
  13 end
  14
  15 module m2
  16   type t
  17   contains
  18     generic :: f => g  ! { dg-error "must target a specific binding" }
  19     generic :: g => f  ! { dg-error "Undefined specific binding" }
  20   end type
  21 end