------- Comment #4 from janus at gcc dot gnu dot org 2009-11-04 20:13 -------
Reduced test case:
implicit none
type, abstract :: inner_product_class
contains
procedure(dot), public, nopass, deferred :: dot_g_g
end type
abstract interface
real function dot ()
end function
end interface
contains
subroutine cg (ipmin)
class(inner_product_class) :: ipmin
print *, ipmin%dot_g_g ()
end subroutine
end
Triggers the same error message as comment #0, which, in addition to being
bogus, appears twice.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=41873
