diff options
| author | H.J. Lu <hongjiu.lu@intel.com> | 2010-01-04 14:28:30 +0000 |
|---|---|---|
| committer | H.J. Lu <hjl@gcc.gnu.org> | 2010-01-04 06:28:30 -0800 |
| commit | 45de56481a57d261d6bc81439b6ee5053193a696 (patch) | |
| tree | cc2f8c5926a10bcc1aaffa7f2d43a832a8c4cc71 /libgomp | |
| parent | 982198d5114082914b2bce9d3282e5461e812894 (diff) | |
| download | gcc-45de56481a57d261d6bc81439b6ee5053193a696.tar.gz | |
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
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/ChangeLog | 5 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/recursion1.f90 | 1 |
2 files changed, 6 insertions, 0 deletions
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 |