From: H.J. Lu <hongjiu.lu@intel.com>
Date: Mon, 4 Jan 2010 14:28:30 +0000 (+0000)
Subject: Make 's' atomic
X-Git-Tag: releases/gcc-4.5.0~1413
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=45de56481a57d261d6bc81439b6ee5053193a696;p=thirdparty%2Fgcc.git

Make 's' atomic

2010-01-04  H.J. Lu  <hongjiu.lu@intel.com>

	PR libgomp/42602
	* libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.

From-SVN: r155615
---

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 2dab2166d30d..2a5d3aeee769 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,8 @@
+2010-01-04  H.J. Lu  <hongjiu.lu@intel.com>
+
+	PR libgomp/42602
+	* libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.
+
 2010-01-03  Richard Guenther  <rguenther@suse.de>
 
 	* testsuite/libgomp.fortran/recursion1.f90: New testcase.
diff --git a/libgomp/testsuite/libgomp.fortran/recursion1.f90 b/libgomp/testsuite/libgomp.fortran/recursion1.f90
index 0b7b2715fdd1..35cb8786e097 100644
--- a/libgomp/testsuite/libgomp.fortran/recursion1.f90
+++ b/libgomp/testsuite/libgomp.fortran/recursion1.f90
@@ -20,6 +20,7 @@ contains
 
   subroutine sub (n)
     integer :: n
+!$omp atomic
     s = s + n
     print '(A,i3)',"loop =",n
   end subroutine