[Bug fortran/50550] does not recognize pointer variable at initialization (r178939)

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
           Keywords|                            |rejects-valid
             Status|NEW                         |ASSIGNED
           Assignee|unassigned at gcc dot gnu.org      |janus at gcc dot gnu.org

--- Comment #3 from janus at gcc dot gnu.org ---
Here is a simple patch to accept the code in comment 0:


Index: gcc/fortran/decl.c
===================================================================
--- gcc/fortran/decl.c    (revision 200258)
+++ gcc/fortran/decl.c    (working copy)
@@ -1197,6 +1197,9 @@ build_sym (const char *name, gfc_charlen *cl, bool

   sym->attr.implied_index = 0;

+  /* Update current_attr with merged symbol attributes.  */
+  current_attr = sym->attr;
+
   if (sym->ts.type == BT_CLASS)
     return gfc_build_class_symbol (&sym->ts, &sym->attr, &sym->as, false);



For cases like the one in comment 1, more work is required (which probably
involves moving the corresponding check to resolution stage). Provided it is
valid at all.