diff options
Diffstat (limited to 'gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr34020.f90')
-rw-r--r-- | gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr34020.f90 | 19 |
1 files changed, 0 insertions, 19 deletions
diff --git a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr34020.f90 b/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr34020.f90 deleted file mode 100644 index 3bb14f5fe..000000000 --- a/gcc-4.4.3/libgomp/testsuite/libgomp.fortran/pr34020.f90 +++ /dev/null @@ -1,19 +0,0 @@ -! PR fortran/34020 -! { dg-do run } - - subroutine atomic_add(lhs, rhs) - real lhs, rhs -!$omp atomic - lhs = rhs + lhs - end - - real lhs, rhs - integer i - lhs = 0 - rhs = 1 -!$omp parallel do num_threads(8) shared(lhs, rhs) - do i = 1, 300000 - call atomic_add(lhs, rhs) - enddo - if (lhs .ne. 300000) call abort - end |