[Bug fortran/50379] ICE in gfc_typenode_for_spec at fortran/trans-types.c

[janus at gcc dot gnu.org]

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

--- Comment #4 from janus at gcc dot gnu.org 2011-09-13 14:02:53 UTC ---
Or better:


Index: gcc/fortran/symbol.c
===================================================================
--- gcc/fortran/symbol.c    (revision 178778)
+++ gcc/fortran/symbol.c    (working copy)
@@ -373,7 +373,7 @@ check_conflict (symbol_attribute *attr, const char
     *volatile_ = "VOLATILE", *is_protected = "PROTECTED",
     *is_bind_c = "BIND(C)", *procedure = "PROCEDURE",
     *asynchronous = "ASYNCHRONOUS", *codimension = "CODIMENSION",
-    *contiguous = "CONTIGUOUS";
+    *contiguous = "CONTIGUOUS", *generic = "GENERIC";
   static const char *threadprivate = "THREADPRIVATE";

   const char *a1, *a2;
@@ -490,8 +490,6 @@ check_conflict (symbol_attribute *attr, const char
   conf (in_common, codimension);
   conf (in_common, result);

-  conf (dummy, result);
-
   conf (in_equivalence, use_assoc);
   conf (in_equivalence, codimension);
   conf (in_equivalence, dummy);
@@ -503,7 +501,9 @@ check_conflict (symbol_attribute *attr, const char
   conf (in_equivalence, allocatable);
   conf (in_equivalence, threadprivate);

+  conf (dummy, result);
   conf (entry, result);
+  conf (generic, result);

   conf (function, subroutine);