From 39b3a9ecb27d7edd97a9fa77d4fd15031740d760 Mon Sep 17 00:00:00 2001 From: hjl Date: Mon, 4 Jan 2010 14:28:30 +0000 Subject: Make 's' atomic 2010-01-04 H.J. Lu 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 + + PR libgomp/42602 + * libgomp.fortran/recursion1.f90 (sub): Make 's' atomic. + 2010-01-03 Richard Guenther * 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