https://gcc.gnu.org/bugzilla/show_bug.cgi?id=95707
anlauf at gcc dot gnu.org changed:
What |Removed |Added
----------------------------------------------------------------------------
Last reconfirmed| |2020-06-16
Ever confirmed|0 |1
CC| |anlauf at gcc dot gnu.org
Status|UNCONFIRMED |NEW
Priority|P3 |P4
--- Comment #1 from anlauf at gcc dot gnu.org ---
The ICE is fixed by the patch:
diff --git a/gcc/fortran/gfortran.h b/gcc/fortran/gfortran.h
index c12a8bef277..836e0b3063d 100644
--- a/gcc/fortran/gfortran.h
+++ b/gcc/fortran/gfortran.h
@@ -1677,8 +1677,8 @@ typedef struct gfc_common_head
char use_assoc, saved, threadprivate;
unsigned char omp_declare_target : 1;
unsigned char omp_declare_target_link : 1;
- /* Provide sufficient space to hold "symbol.eq.1234567890". */
- char name[GFC_MAX_SYMBOL_LEN + 1 + 14];
+ /* Provide sufficient space to hold "symbol.symbol.eq.1234567890". */
+ char name[2*GFC_MAX_SYMBOL_LEN + 1 + 14 + 1];
struct gfc_symbol *head;
const char* binding_label;
int is_bind_c;
However, I then get a possibly unrelated error:
pr95707.f90:8:73:
8 |
n2345678901234567890123456789012345678901234567890123456789_123
|
1
Warning: Named COMMON block
'm2345678901234567890123456789012345678901234567890123456789_123.n2345678901234567890123456789012345678901234567890123456789_123.eq.1'
at (1) shall be of the same size as elsewhere (24 vs 32 bytes)
