gcc/testsuite/gfortran.dg/typebound_generic_15.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 60231: [4.8/4.9 Regression] ICE on undefined generic
   4 !
   5 ! Contributed by Antony Lewis <antony@cosmologist.info>
   6
   7 module Objects
   8
   9   Type TObjectList
  10   contains
  11     procedure :: Add1             ! { dg-error "must be a module procedure" }
  12     procedure :: Add2             ! { dg-error "must be a module procedure" }
  13     generic :: Add => Add1, Add2  ! { dg-error "are ambiguous" }
  14   end Type
  15
  16 end module