http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54195
Bug #: 54195
Summary: [4.8 Regression][OOP] IMPORT fails with GENERIC TBP:
"is already present in the interface"
Classification: Unclassified
Product: gcc
Version: 4.8.0
Status: UNCONFIRMED
Keywords: rejects-valid
Severity: normal
Priority: P3
Component: fortran
AssignedTo: [email protected]
ReportedBy: [email protected]
CC: [email protected], [email protected]
Reported by Damian at http://gcc.gnu.org/ml/fortran/2012-08/msg00041.html
The following program fails with:
generic :: operator(-) => unary
1
Error: Entity 'unary' at (1) is already present in the interface
It works if one replaces "IMPORT :: foo" by "IMPORT".
module import_clashes_with_generic
type ,abstract :: foo
contains
procedure :: unary
generic :: operator(-) => unary
end type
abstract interface
integer function bar()
import :: foo
end function
end interface
contains
integer function unary(rhs)
class(foo) ,intent(in) :: rhs
end function
end module
