diff options
| author | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-04 14:28:30 +0000 |
|---|---|---|
| committer | hjl <hjl@138bc75d-0d04-0410-961f-82ee72b054a4> | 2010-01-04 14:28:30 +0000 |
| commit | 39b3a9ecb27d7edd97a9fa77d4fd15031740d760 (patch) | |
| tree | cc2f8c5926a10bcc1aaffa7f2d43a832a8c4cc71 /libgomp/testsuite | |
| parent | 639d12cd5da7af6782ee73a0a352300f7031fdf6 (diff) | |
| download | gcc-39b3a9ecb27d7edd97a9fa77d4fd15031740d760.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.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155615 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'libgomp/testsuite')
| -rw-r--r-- | libgomp/testsuite/libgomp.fortran/recursion1.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
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 |