From 48ca2185bfb5126baacab812b3f14c80123ccb88 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Sun, 28 Feb 2021 11:16:33 +0100 Subject: [PATCH] fortran: Fix up wording of 3 OpenMP diagnostic messages [PR99303] As reported in the PR, some diagnostic messages need wording improvements. 2021-02-28 Jakub Jelinek PR fortran/99303 * openmp.c (gfc_omp_requires_add_clause): Fix up diagnostic message wordings. (resolve_omp_clauses): Likewise. --- gcc/fortran/openmp.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index bf01790..1f1920c 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -3788,11 +3788,11 @@ gfc_omp_requires_add_clause (gfc_omp_requires_kind clause, if (clause & OMP_REQ_ATOMIC_MEM_ORDER_MASK) gfc_error ("!$OMP REQUIRES clause % " "specified via module %qs use at %L but same clause is " - "not set at for the program unit", clause_name, module_name, - loc); + "not specified for the program unit", clause_name, + module_name, loc); else gfc_error ("!$OMP REQUIRES clause %qs specified via module %qs use at " - "%L but same clause is not set at for the program unit", + "%L but same clause is not specified for the program unit", clause_name, module_name, loc); return false; } @@ -5411,7 +5411,7 @@ resolve_omp_clauses (gfc_code *code, gfc_omp_clauses *omp_clauses, if (has_inscan && has_notinscan && is_reduction) { gfc_error ("% and non-% % " - "clauses on the same construct %L", + "clauses on the same construct at %L", &n->where); break; } -- 2.7.4