[Bug fortran/50752] [4.7 Regression] ICE in match_kind_param

[janus at gcc dot gnu.org]

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

janus at gcc dot gnu.org changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
             Status|UNCONFIRMED                 |ASSIGNED
           Keywords|                            |ice-on-invalid-code
   Last reconfirmed|                            |2011-10-17
                 CC|                            |janus at gcc dot gnu.org
         AssignedTo|unassigned at gcc dot       |janus at gcc dot gnu.org
                   |gnu.org                     |
     Ever Confirmed|0                           |1

--- Comment #1 from janus at gcc dot gnu.org 2011-10-17 08:08:59 UTC ---
This is clearly due to

http://gcc.gnu.org/viewcvs?view=revision&revision=180062

which was my fix for PR47023. It's easy to fix this, however. To offending line
should just came a bit too soon:


Index: gcc/fortran/primary.c
===================================================================
--- gcc/fortran/primary.c    (revision 180062)
+++ gcc/fortran/primary.c    (working copy)
@@ -57,11 +57,11 @@ match_kind_param (int *kind, int *is_iso_c)
   if (gfc_find_symbol (name, NULL, 1, &sym))
     return MATCH_ERROR;

-  *is_iso_c = sym->attr.is_iso_c;
-
   if (sym == NULL)
     return MATCH_NO;

+  *is_iso_c = sym->attr.is_iso_c;
+
   if (sym->attr.flavor != FL_PARAMETER)
     return MATCH_NO;


Sorry for the breakage. Will commit as obvious.