From 39b3a9ecb27d7edd97a9fa77d4fd15031740d760 Mon Sep 17 00:00:00 2001
From: hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Mon, 4 Jan 2010 14:28:30 +0000
Subject: Make 's' atomic
2010-01-04 H.J. Lu <hongjiu.lu@intel.com>
PR libgomp/42602
* libgomp.fortran/recursion1.f90 (sub): Make 's' atomic.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155615 138bc75d-0d04-0410-961f-82ee72b054a4
---
libgomp/ChangeLog | 5 +++++
libgomp/testsuite/libgomp.fortran/recursion1.f90 | 1 +
2 files changed, 6 insertions(+)
(limited to 'libgomp')
diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index 2dab2166d30..2a5d3aeee76 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 0b7b2715fdd..35cb8786e09 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
--
cgit v1.2.1