gcc/testsuite/gfortran.dg/typebound_operator_18.f90

   1 ! { dg-do compile }
   2 !
   3 ! PR 55297: [4.8 Regression] [OOP] type-bound operator clashes with abstract interface
   4 !
   5 ! Contributed by Damian Rouson <damian@rouson.net>
   6
   7 module athlete_module
   8   type athlete
   9   contains
  10     procedure :: negative
  11     generic :: operator(-) => negative
  12   end type
  13   abstract interface
  14     integer function sum_interface(this)
  15       import athlete
  16       class(athlete) this
  17     end function
  18   end interface
  19 contains
  20   integer function negative(this)
  21     class(athlete) ,intent(in) :: this
  22   end function
  23 end module
  24
  25 ! { dg-final { cleanup-modules "athlete_module" } }