diff options
| author | Harald Anlauf <anlauf@gmx.de> | 2020-06-25 20:34:48 +0200 |
|---|---|---|
| committer | Harald Anlauf <anlauf@gmx.de> | 2020-06-25 20:34:48 +0200 |
| commit | 77d455ee81ec3a23f8b20259a31ab963716f8e82 (patch) | |
| tree | f037fd0dd26fa855ca2af282c2ea47a534cf3a06 /gcc/fortran/resolve.c | |
| parent | 35a335a159216548fc77263ac5df71ff29d3f448 (diff) | |
| download | gcc-77d455ee81ec3a23f8b20259a31ab963716f8e82.zip gcc-77d455ee81ec3a23f8b20259a31ab963716f8e82.tar.gz gcc-77d455ee81ec3a23f8b20259a31ab963716f8e82.tar.bz2 | |
PR fortran/95828 - Buffer overflows with SELECT RANK
With SELECT RANK, name mangling results in long internal symbols that
overflows internal buffers. Fix that.
gcc/fortran/
PR fortran/95828
* match.c (select_rank_set_tmp): Enlarge internal buffer used in
generating a mangled name.
* resolve.c (resolve_select_rank): Likewise.
Diffstat (limited to 'gcc/fortran/resolve.c')
| -rw-r--r-- | gcc/fortran/resolve.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/resolve.c b/gcc/fortran/resolve.c index 8c602da..6fa34ca 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9635,7 +9635,7 @@ resolve_select_rank (gfc_code *code, gfc_namespace *old_ns) gfc_namespace *ns; gfc_code *body, *new_st, *tail; gfc_case *c; - char tname[GFC_MAX_SYMBOL_LEN]; + char tname[GFC_MAX_SYMBOL_LEN + 7]; char name[2 * GFC_MAX_SYMBOL_LEN]; gfc_symtree *st; gfc_expr *selector_expr = NULL; |