[Bug fortran/45439] [OOP] SELECT TYPE bogus complaint about INTENT

[janus at gcc dot gnu dot org]

------- Comment #3 from janus at gcc dot gnu dot org  2010-08-28 12:49 -------
Here's the fix:


Index: match.c
===================================================================
--- match.c     (revision 163612)
+++ match.c     (working copy)
@@ -4532,6 +4532,7 @@ gfc_match_select_type (void)
        expr1->symtree->n.sym->attr.untyped = 1;
       else
        expr1->symtree->n.sym->ts = expr2->ts;
+      expr1->symtree->n.sym->attr.flavor = FL_VARIABLE;
       expr1->symtree->n.sym->attr.referenced = 1;
       expr1->symtree->n.sym->attr.class_ok = 1;
     }


I'll commit as obvious after a regtest.


-- 

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|NEW                         |ASSIGNED
   Last reconfirmed|2010-08-28 11:27:22         |2010-08-28 12:49:33
               date|                            |


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