Fortran/OpenMP: omp loop's BIND clause - fix typo

Missed a 'git add' after fixing this typo pointed out during review.

	PR middle-end/99928

gcc/fortran/ChangeLog:

	* openmp.c (gfc_match_omp_clauses): Fix typo in error message.

gcc/testsuite/ChangeLog:

	* gfortran.dg/gomp/loop-2.f90: Update for typo fix.

(cherry picked from commit 848a36032c8876ee45d5c81efeddb1bc657ac95c)

diff --git a/gcc/fortran/ChangeLog.omp b/gcc/fortran/ChangeLog.omp
index d99cf76af313af69fcced6aa45360ea0496efe6d..e9e050ff15b692542c93bee159b60fe091f0037e 100644 (file)
--- a/gcc/fortran/ChangeLog.omp
+++ b/gcc/fortran/ChangeLog.omp
@@ -1,3 +1,11 @@
+2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+       Backported from master:
+       2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+       PR middle-end/99928
+       * openmp.c (gfc_match_omp_clauses): Fix typo in error message.
+
 2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
 
        Backported from master:

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index a68700dcaf08a7763fd0cce5edf4589f19777bb2..6696e89abaed7b4b157984f5ef067da0301ebd22 100644 (file)
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -1442,7 +1442,7 @@ gfc_match_omp_clauses (gfc_omp_clauses **cp, const omp_mask mask,
                c->bind = OMP_BIND_THREAD;
              else
                {
-                 gfc_error ("Expected TEAMS, PARALLEL or THEAD as binding in "
+                 gfc_error ("Expected TEAMS, PARALLEL or THREAD as binding in "
                             "BIND at %C");
                  break;
                }

diff --git a/gcc/testsuite/ChangeLog.omp b/gcc/testsuite/ChangeLog.omp
index b446534ebce9c1117d063da0ce4cfc1b70342f4a..63a6a36d69173180134be23eda49d25f52f2985b 100644 (file)
--- a/gcc/testsuite/ChangeLog.omp
+++ b/gcc/testsuite/ChangeLog.omp
@@ -1,3 +1,11 @@
+2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+       Backported from master:
+       2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
+
+       PR middle-end/99928
+       * gfortran.dg/gomp/loop-2.f90: Update for typo fix.
+
 2021-06-04  Tobias Burnus  <tobias@codesourcery.com>
 
        Backported from master:

diff --git a/gcc/testsuite/gfortran.dg/gomp/loop-2.f90 b/gcc/testsuite/gfortran.dg/gomp/loop-2.f90
index b2a0d1589e1c97ee05d89535b903ae7476fc0fbc..0cb86612566169b1a8b82b346632dc749d603345 100644 (file)
--- a/gcc/testsuite/gfortran.dg/gomp/loop-2.f90
+++ b/gcc/testsuite/gfortran.dg/gomp/loop-2.f90
@@ -33,7 +33,7 @@ end do
 do i = 1, 64
 end do
 
-!$omp loop bind(target)  ! { dg-error "17: Expected TEAMS, PARALLEL or THEAD as binding in BIND" }
+!$omp loop bind(target)  ! { dg-error "17: Expected TEAMS, PARALLEL or THREAD as binding in BIND" }
 do i = 1, 64
 end do