This is the mail archive of the
gcc-bugs@gcc.gnu.org
mailing list for the GCC project.
[Bug fortran/50379] ICE in gfc_typenode_for_spec at fortran/trans-types.c
- From: "janus at gcc dot gnu.org" <gcc-bugzilla at gcc dot gnu dot org>
- To: gcc-bugs at gcc dot gnu dot org
- Date: Tue, 13 Sep 2011 14:02:53 +0000
- Subject: [Bug fortran/50379] ICE in gfc_typenode_for_spec at fortran/trans-types.c
- Auto-submitted: auto-generated
- References: <bug-50379-4@http.gcc.gnu.org/bugzilla/>
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);