From 771084891dc380aa260c562c8ed237b6290d30da Mon Sep 17 00:00:00 2001
From: rguenth <rguenth@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Sun, 3 Jan 2010 22:44:56 +0000
Subject: 2010-01-03  Richard Guenther  <rguenther@suse.de>

	PR testsuite/42583
	* gfortran.dg/gomp/recursion1.f90: Remove.

	libgomp/
	* testsuite/libgomp.fortran/recursion1.f90: New testcase.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@155597 138bc75d-0d04-0410-961f-82ee72b054a4
---
 libgomp/ChangeLog                                |  4 ++++
 libgomp/testsuite/libgomp.fortran/recursion1.f90 | 27 ++++++++++++++++++++++++
 2 files changed, 31 insertions(+)
 create mode 100644 libgomp/testsuite/libgomp.fortran/recursion1.f90

(limited to 'libgomp')

diff --git a/libgomp/ChangeLog b/libgomp/ChangeLog
index e249e325393..2dab2166d30 100644
--- a/libgomp/ChangeLog
+++ b/libgomp/ChangeLog
@@ -1,3 +1,7 @@
+2010-01-03  Richard Guenther  <rguenther@suse.de>
+
+	* testsuite/libgomp.fortran/recursion1.f90: New testcase.
+
 2009-12-23  Sebastian Pop  <sebpop@gmail.com>
 
 	* testsuite/libgomp.graphite/pr4118.c: New.
diff --git a/libgomp/testsuite/libgomp.fortran/recursion1.f90 b/libgomp/testsuite/libgomp.fortran/recursion1.f90
new file mode 100644
index 00000000000..0b7b2715fdd
--- /dev/null
+++ b/libgomp/testsuite/libgomp.fortran/recursion1.f90
@@ -0,0 +1,27 @@
+! { 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
+    s = s + n
+    print '(A,i3)',"loop =",n
+  end subroutine
+
+end
-- 
cgit v1.2.1