[gcc r12-1207] Fortran/OpenMP: omp loop's BIND clause - fix typo

[gcc r12-1207] Fortran/OpenMP: omp loop's BIND clause - fix typo

[Tobias Burnus]

https://gcc.gnu.org/g:848a36032c8876ee45d5c81efeddb1bc657ac95c

commit r12-1207-g848a36032c8876ee45d5c81efeddb1bc657ac95c
Author: Tobias Burnus <tobias@codesourcery.com>
Date:   Fri Jun 4 12:14:14 2021 +0200

    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:
---
 gcc/fortran/openmp.c                      | 2 +-
 gcc/testsuite/gfortran.dg/gomp/loop-2.f90 | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c
index d7136b1e6d7..638a8233604 100644
--- 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 b2a0d1589e1..0cb86612566 100644
--- 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