From 44d5246bae8013e34f0fb2ff500d93e27f14f91f Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Tue, 30 Aug 2022 21:51:36 +0200 Subject: [PATCH] Fortran: Fix OpenMP clause name in error message gcc/fortran/ChangeLog: * openmp.cc (gfc_check_omp_requires): Fix clause name in error. Co-authored-by: Chung-Lin Tang (cherry picked from commit 8af266501795dd76d05faef498dbd3472a01b305) --- gcc/fortran/ChangeLog.omp | 8 ++++++++ gcc/fortran/openmp.cc | 2 +- 2 files changed, 9 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp index b7ccae31907c..f623b7201bbe 100644 --- a/gcc/fortran/ChangeLog.omp +++ b/gcc/fortran/ChangeLog.omp @@ -1,3 +1,11 @@ +2022-08-30 Tobias Burnus + + Backport from mainline: + 2022-05-27 Tobias Burnus + Chung-Lin Tang + + * openmp.cc (gfc_check_omp_requires): Fix clause name in error. + 2022-08-23 Tobias Burnus Backport from mainline: diff --git a/gcc/fortran/openmp.cc b/gcc/fortran/openmp.cc index 771aa83979bc..5b30238a8bbf 100644 --- a/gcc/fortran/openmp.cc +++ b/gcc/fortran/openmp.cc @@ -6135,7 +6135,7 @@ gfc_check_omp_requires (gfc_namespace *ns, int ref_omp_requires) if ((ref_omp_requires & OMP_REQ_REVERSE_OFFLOAD) && !(ns->omp_requires & OMP_REQ_REVERSE_OFFLOAD)) gfc_error ("Program unit at %L has OpenMP device constructs/routines " - "but does not set !$OMP REQUIRES REVERSE_OFFSET but other " + "but does not set !$OMP REQUIRES REVERSE_OFFLOAD but other " "program units do", &ns->proc_name->declared_at); if ((ref_omp_requires & OMP_REQ_UNIFIED_ADDRESS) && !(ns->omp_requires & OMP_REQ_UNIFIED_ADDRESS)) -- 2.47.2