diff options
| author | Martin Liska <mliska@suse.cz> | 2020-08-17 10:37:24 +0200 |
|---|---|---|
| committer | Martin Liska <mliska@suse.cz> | 2020-08-17 11:02:36 +0200 |
| commit | 5625b2c56acdcce9733b970b1fd2ff1349ebe657 (patch) | |
| tree | ae2ef074a357264df67f38bc6eec79d853fe31f5 /gcc/fortran/openmp.c | |
| parent | 9a5381f749ee2cef51af67895de182113e45f642 (diff) | |
| download | gcc-5625b2c56acdcce9733b970b1fd2ff1349ebe657.zip gcc-5625b2c56acdcce9733b970b1fd2ff1349ebe657.tar.gz gcc-5625b2c56acdcce9733b970b1fd2ff1349ebe657.tar.bz2 | |
openmp: fix UBSAN error at gcc/fortran/openmp.c:4737
Since 21cfe724cbdc30612bf1ef59b26f19ada2210832 there's a new
OMP_LIST_NONTEMPORAL value, but it was missing in
resolve_omp_clauses static array that is defined at the function
beginning:
./xgcc -B. /home/marxin/Programming/gcc/gcc/testsuite/gfortran.dg/gomp/nontemporal-1.f90 -fopenmp -c
../../gcc/fortran/openmp.c:4737:28: runtime error: index 21 out of bounds for type 'char *[21]'
#0 0xbdb956 in resolve_omp_clauses ../../gcc/fortran/openmp.c:4737
#1 0xbeb076 in resolve_omp_do ../../gcc/fortran/openmp.c:6139
#2 0xbf029a in gfc_resolve_omp_directive(gfc_code*, gfc_namespace*) ../../gcc/fortran/openmp.c:6792
#3 0xcb6363 in gfc_resolve_code(gfc_code*, gfc_namespace*) ../../gcc/fortran/resolve.c:12185
#4 0xcef8cf in resolve_codes ../../gcc/fortran/resolve.c:17303
gcc/fortran/ChangeLog:
* openmp.c (resolve_omp_clauses): Add NONTEMPORAL to clause
names.
Diffstat (limited to 'gcc/fortran/openmp.c')
| -rw-r--r-- | gcc/fortran/openmp.c | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index c44a253..60d8e55 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -4369,7 +4369,8 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, = { "PRIVATE", "FIRSTPRIVATE", "LASTPRIVATE", "COPYPRIVATE", "SHARED", "COPYIN", "UNIFORM", "ALIGNED", "LINEAR", "DEPEND", "MAP", "TO", "FROM", "REDUCTION", "DEVICE_RESIDENT", "LINK", "USE_DEVICE", - "CACHE", "IS_DEVICE_PTR", "USE_DEVICE_PTR", "USE_DEVICE_ADDR" }; + "CACHE", "IS_DEVICE_PTR", "USE_DEVICE_PTR", "USE_DEVICE_ADDR", + "NONTEMPORAL" }; if (omp_clauses == NULL) return; |