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  <jakub@redhat.com>

	PR fortran/99303
	* openmp.c (gfc_omp_requires_add_clause): Fix up diagnostic message
	wordings.
	(resolve_omp_clauses): Likewise.

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index bf01790..1f1920c 100644 (file)
--- 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 %<atomic_default_mem_order(%s)%> "
                   "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 ("%<inscan%> and non-%<inscan%> %<reduction%> "
-                              "clauses on the same construct %L",
+                              "clauses on the same construct at %L",
                               &n->where);
                    break;
                  }