From dcaa067ea507d61dbd6ce3f4dc1b7c05beb68781 Mon Sep 17 00:00:00 2001
From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sat, 10 Nov 2007 07:51:55 +0000
Subject: 	PR fortran/34020 	* gimplify.c (goa_lhs_expr_p): Inside
 INDIRECT_REF handle unshared 	nops.

	* testsuite/libgomp.fortran/pr34020.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@130069 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgomp/testsuite/libgomp.fortran/pr34020.f90 | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 libgomp/testsuite/libgomp.fortran/pr34020.f90

(limited to 'libgomp/testsuite')

diff --git a/libgomp/testsuite/libgomp.fortran/pr34020.f90 b/libgomp/testsuite/libgomp.fortran/pr34020.f90
new file mode 100644
index 00000000000..3bb14f5fe3d
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/pr34020.f90
@@ -0,0 +1,19 @@
+! 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
-- 
cgit v1.2.1