This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/43945] [OOP] Derived type with GENERIC: resolved to the wrong specific TBP
- From: "janus at gcc dot gnu dot org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: 21 Jun 2010 11:01:23 -0000
- Subject: [Bug fortran/43945] [OOP] Derived type with GENERIC: resolved to the wrong specific TBP
- References: <bug-43945-13404@http.gcc.gnu.org/bugzilla/>
- Reply-to: gcc-bugzilla at gcc dot gnu dot org
------- Comment #20 from janus at gcc dot gnu dot org 2010-06-21 11:01 -------
(In reply to comment #14)
> The attached variation of generic_23 still does not work.
... and the dump shows why:
if (vtab$foo2.get == 0B)
{
vtab$vtype$foo2$get.getit = getit;
vtab$foo2.get = &vtab$vtype$foo2$get;
vtab$foo2.getit = (integer(kind=4) (*<T42b>) (void)) getit2;
vtab$foo2.doit = (void (*<T62>) (void)) doit2;
vtab$vtype$foo2$do.doit = doit;
vtab$foo2.do = &vtab$vtype$foo2$do;
}
The specific PPCs of 'foo2' point to the right procedures, but their generic
counterparts don't.
--
http://gcc.gnu.org/bugzilla/show_bug.cgi?id=43945