diff options
| author | Tobias Burnus <tobias@codesourcery.com> | 2021-06-04 12:14:14 +0200 |
|---|---|---|
| committer | Tobias Burnus <tobias@codesourcery.com> | 2021-06-04 12:14:14 +0200 |
| commit | 848a36032c8876ee45d5c81efeddb1bc657ac95c (patch) | |
| tree | c8763030d151da7e881e93051d4901a588e569a2 /gcc | |
| parent | 178191e1dfafd8db149edcdef7a39e9e2c00f216 (diff) | |
| download | gcc-848a36032c8876ee45d5c81efeddb1bc657ac95c.zip gcc-848a36032c8876ee45d5c81efeddb1bc657ac95c.tar.gz gcc-848a36032c8876ee45d5c81efeddb1bc657ac95c.tar.bz2 | |
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.
Diffstat (limited to 'gcc')
| -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 |