diff options
| -rw-r--r-- | gcc/fortran/openmp.c | 2 | ||||
| -rw-r--r-- | 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 |