------- Comment #14 from janus at gcc dot gnu dot org 2009-12-10 21:21 ------- Comparing the dump of the test case in comment #9 with and without the patch in comment #11 shows that with the patch the following is missing:
@@ -25,10 +25,6 @@ MAIN__ () integer(kind=4) itmp; extern struct vtype$t1 vtab$t1; - if (vtab$t1.prod == 0B) - { - vtab$t1.prod = (integer(kind=4) (*<T41d>) (void)) i_m_j; - } a.$vptr = &vtab$t1; a.$data = &b; itmp = a.$vptr->prod (&a); -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=42274