From 848a36032c8876ee45d5c81efeddb1bc657ac95c Mon Sep 17 00:00:00 2001 From: Tobias Burnus Date: Fri, 4 Jun 2021 12:14:14 +0200 Subject: [PATCH] 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 | 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 d7136b1..638a823 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 b2a0d15..0cb8661 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 -- 2.7.4