From 97a778bdcd1982b33fb73054e565b411893d171a Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Mon, 16 Dec 2013 16:33:42 +0100 Subject: [PATCH] re PR libgomp/59337 (surprising OMP error message) PR libgomp/59337 * openmp.c (resolve_omp_atomic): Adjust error message. * gfortran.dg/gomp/pr59337.f90: New test. From-SVN: r206017 --- gcc/fortran/ChangeLog | 5 +++++ gcc/fortran/openmp.c | 2 +- gcc/testsuite/ChangeLog | 5 +++++ 3 files changed, 11 insertions(+), 1 deletion(-) diff --git a/gcc/fortran/ChangeLog b/gcc/fortran/ChangeLog index a7d2ff8a8a40..4f3a8e16a0ee 100644 --- a/gcc/fortran/ChangeLog +++ b/gcc/fortran/ChangeLog @@ -1,3 +1,8 @@ +2013-12-16 Jakub Jelinek + + PR libgomp/59337 + * openmp.c (resolve_omp_atomic): Adjust error message. + 2013-12-15 Janus Weil PR fortran/59493 diff --git a/gcc/fortran/openmp.c b/gcc/fortran/openmp.c index 6c4dccbed10c..f4b8d908f920 100644 --- a/gcc/fortran/openmp.c +++ b/gcc/fortran/openmp.c @@ -1279,7 +1279,7 @@ resolve_omp_atomic (gfc_code *code) alt_op = INTRINSIC_EQV; break; default: - gfc_error ("!$OMP ATOMIC assignment operator must be " + gfc_error ("!$OMP ATOMIC assignment operator must be binary " "+, *, -, /, .AND., .OR., .EQV. or .NEQV. at %L", &expr2->where); return; diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index e7c54bc2898f..1e0db5b85391 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2013-12-16 Jakub Jelinek + + PR libgomp/59337 + * gfortran.dg/gomp/pr59337.f90: New test. + 2013-12-16 Jakub Jelinek PR middle-end/58956 -- 2.47.3