Mercurial > hg > CbC > CbC_gcc

diff libgomp/testsuite/libgomp.fortran/recursion1.f90 @ 63:b7f97abdc517 gcc-4.6-20100522
update gcc from gcc-4.5.0 to gcc-4.6
author: ryoma <e075725@ie.u-ryukyu.ac.jp>
date: Mon, 24 May 2010 12:47:05 +0900
children: 04ced10e8804
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libgomp/testsuite/libgomp.fortran/recursion1.f90	Mon May 24 12:47:05 2010 +0900
@@ -0,0 +1,28 @@
+! { dg-do run }
+! { dg-options "-fopenmp -fcheck=recursion" }
+!
+! PR 42517: Bogus runtime error with -fopenmp -fcheck=recursion
+!
+! Contributed by Janus Weil <janus@gcc.gnu.org>
+
+implicit none
+integer :: i,s
+
+s=0
+!$omp parallel do private(i) shared(s)
+do i=1,10
+  call sub(i)
+end do
+!$omp end parallel do
+if (s/=55) call abort()
+
+contains
+
+  subroutine sub (n)
+    integer :: n
+!$omp atomic
+    s = s + n
+    print '(A,i3)',"loop =",n
+  end subroutine
+
+end