! { dg-do compile } | |
! | |
! PR 55297: [4.8 Regression] [OOP] type-bound operator clashes with abstract interface | |
! | |
! Contributed by Damian Rouson <damian@rouson.net> | |
module athlete_module | |
type athlete | |
contains | |
procedure :: negative | |
generic :: operator(-) => negative | |
end type | |
abstract interface | |
integer function sum_interface(this) | |
import athlete | |
class(athlete) this | |
end function | |
end interface | |
contains | |
integer function negative(this) | |
class(athlete) ,intent(in) :: this | |
end function | |
end module |