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.

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index d7136b1e6d75df7f31b918464d2af35f9119cc78..638a82336044201df4b2aa9da40b8d4645a94eb5 100644 (file)
--- a/gcc/fortran/openmp.c
+++ b/gcc/fortran/openmp.c
@@ -1440,7 +1440,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/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