http://gcc.gnu.org/bugzilla/show_bug.cgi?id=55297
Bug #: 55297
Summary: 4.8 Regression: type-bound operator clashes with
abstract interface
Classification: Unclassified
Product: gcc
Version: 4.8.0
Status: UNCONFIRMED
Severity: normal
Priority: P3
Component: fortran
AssignedTo: unassig...@gcc.gnu.org
ReportedBy: dam...@rouson.net
$ cat athlete.f90
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
$ gfortran-mp-4.7 -c athlete.f90
$ gfortran-mp-4.8 -c athlete.f90
athlete.f90:5.29:
generic :: operator(-) => negative
1
Error: Entity 'negative' at (1) is already present in the interface
wlan-clients-2916:gnu rouson$ gfortran-mp-4.8 --version
GNU Fortran (MacPorts gcc48 4.8-20121021_0) 4.8.0 20121021 (experimental)
