diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-03-22 09:49:48 +0100 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-03-22 09:50:50 +0100 |
| commit | 0e792ee11aa6ebb6f61e9ed33eb06e260f0ec703 (patch) | |
| tree | fa23c3ed334ae9d39aff259fdd462667e0c3e6e4 /gcc/fortran/resolve.c | |
| parent | fc9c4e5fc50c7fcbd27d6cb3dd372f7da8216954 (diff) | |
| download | gcc-0e792ee11aa6ebb6f61e9ed33eb06e260f0ec703.zip gcc-0e792ee11aa6ebb6f61e9ed33eb06e260f0ec703.tar.gz gcc-0e792ee11aa6ebb6f61e9ed33eb06e260f0ec703.tar.bz2 | |
Fortran: Fix 'name' bound size [PR99688]
gcc/fortran/ChangeLog:
PR fortran/99688
* match.c (select_type_set_tmp, gfc_match_select_type,
gfc_match_select_rank): Fix 'name' buffersize to avoid out of bounds.
* resolve.c (resolve_select_type): 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 32015c2..715fecd 100644 --- a/gcc/fortran/resolve.c +++ b/gcc/fortran/resolve.c @@ -9246,7 +9246,7 @@ resolve_select_type (gfc_code *code, gfc_namespace *old_ns) gfc_code *class_is = NULL, *default_case = NULL; gfc_case *c; gfc_symtree *st; - char name[GFC_MAX_SYMBOL_LEN]; + char name[GFC_MAX_SYMBOL_LEN + 12 + 1]; gfc_namespace *ns; int error = 0; int rank = 0; |