diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2020-06-20 16:14:00 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2020-06-20 16:14:00 +0200 |
| commit | cd6546ac0e8fb2f4ff2a4bb2db2363ca02bdb7ba (patch) | |
| tree | 98e6bbd62d868a981adef29de6918002e471047f /gcc/fortran/iresolve.c | |
| parent | ac932bfcd21e9523fa2b880ae8138aef79da7f54 (diff) | |
| download | gcc-cd6546ac0e8fb2f4ff2a4bb2db2363ca02bdb7ba.zip gcc-cd6546ac0e8fb2f4ff2a4bb2db2363ca02bdb7ba.tar.gz gcc-cd6546ac0e8fb2f4ff2a4bb2db2363ca02bdb7ba.tar.bz2 | |
PR fortran/95688 - ICE in gfc_get_string, at fortran/iresolve.c:70
With submodules, name mangling of character pointer declarations produces long
internal symbols that overflowed a static internal buffer. Adjust the buffer
size.
gcc/fortran/
PR fortran/95688
* iresolve.c (gfc_get_string): Enlarge static buffer size.
Diffstat (limited to 'gcc/fortran/iresolve.c')
| -rw-r--r-- | gcc/fortran/iresolve.c | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/gcc/fortran/iresolve.c b/gcc/fortran/iresolve.c index df4f226..aa9bb32 100644 --- a/gcc/fortran/iresolve.c +++ b/gcc/fortran/iresolve.c @@ -47,8 +47,8 @@ along with GCC; see the file COPYING3. If not see const char * gfc_get_string (const char *format, ...) { - /* Provide sufficient space to hold "_F.caf_token__symbol_MOD_symbol". */ - char temp_name[14 + GFC_MAX_SYMBOL_LEN + 5 + GFC_MAX_SYMBOL_LEN + 1]; + /* Provide sufficient space to hold "_F.symbol.symbol_MOD_symbol". */ + char temp_name[4 + 2*GFC_MAX_SYMBOL_LEN + 5 + GFC_MAX_SYMBOL_LEN + 1]; const char *str; va_list ap; tree ident; |