[Bug fortran/45456] [4.6 Regression] [OOP] Bogus pointer initialization error on pointer-valued TBP

[janus at gcc dot gnu dot org]

------- Comment #1 from janus at gcc dot gnu dot org  2010-08-30 20:36 -------
Here' the fix:

Index: resolve.c
===================================================================
--- resolve.c   (revision 163648)
+++ resolve.c   (working copy)
@@ -1083,7 +1083,8 @@
                     comp->name);
        }

-      if (!comp->attr.pointer || cons->expr->expr_type == EXPR_NULL)
+      if (!comp->attr.pointer || comp->attr.proc_pointer
+         || cons->expr->expr_type == EXPR_NULL)
        continue;

       a = gfc_expr_attr (cons->expr);


-- 

janus at gcc dot gnu dot org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
         AssignedTo|unassigned at gcc dot gnu   |janus at gcc dot gnu dot org
                   |dot org                     |
             Status|UNCONFIRMED                 |ASSIGNED
     Ever Confirmed|0                           |1
   Last reconfirmed|0000-00-00 00:00:00         |2010-08-30 20:36:16
               date|                            |


http://gcc.gnu.org/bugzilla/show_bug.cgi?id=45456