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.

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;
 		}

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