From: Jakub Jelinek <jakub@redhat.com>
Date: Mon, 16 Dec 2013 15:33:42 +0000 (+0100)
Subject: re PR libgomp/59337 (surprising OMP error message)
X-Git-Tag: releases/gcc-4.9.0~2056
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=97a778bdcd1982b33fb73054e565b411893d171a;p=thirdparty%2Fgcc.git

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

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  <jakub@redhat.com>
+
+	PR libgomp/59337
+	* openmp.c (resolve_omp_atomic): Adjust error message.
+
 2013-12-15  Janus Weil  <janus@gcc.gnu.org>
 
 	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  <jakub@redhat.com>
+
+	PR libgomp/59337
+	* gfortran.dg/gomp/pr59337.f90: New test.
+
 2013-12-16  Jakub Jelinek  <jakub@redhat.com>
 
 	PR middle-end/58956