From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 21 Sep 2007 11:17:13 +0000 (+0000)
Subject: 	PR fortran/33439
X-Git-Url: http://git.ipfire.org/?a=commitdiff_plain;h=9ff5922be2bb05efbed339b56d514bb85c564203;p=thirdparty%2Fgcc.git

	PR fortran/33439
	* gfortran.dg/gomp/pr33439.f90: New test.


git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@128649 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a033d1870487..70ec4b7805d8 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,8 @@
+2007-09-21  Jakub Jelinek  <jakub@redhat.com>
+
+	PR fortran/33439
+	* gfortran.dg/gomp/pr33439.f90: New test.
+
 2007-09-21  Tobias Burnus  <burnus@net-b.de>
 
 	PR fortran/33455
diff --git a/gcc/testsuite/gfortran.dg/gomp/pr33439.f90 b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90
new file mode 100644
index 000000000000..f7db7593d77a
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/gomp/pr33439.f90
@@ -0,0 +1,38 @@
+! PR fortran/33439
+! { dg-do compile }
+! { dg-options "-fopenmp" }
+
+subroutine pr33439_1
+  integer :: s, i
+  s = 4
+!$omp parallel default(none)	! { dg-error "enclosing parallel" }
+  call somethingelse
+!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
+  do i = 1, 8
+    call something
+  end do
+!$omp end do
+!$omp end parallel
+end subroutine pr33439_1
+
+subroutine pr33439_2
+  integer :: s, i
+  s = 4
+!$omp parallel default(none)	! { dg-error "enclosing parallel" }
+!$omp do schedule(static, s)	! { dg-error "not specified in enclosing parallel" }
+  do i = 1, 8
+    call something
+  end do
+!$omp end do
+!$omp end parallel
+end subroutine pr33439_2
+
+subroutine pr33439_3
+  integer :: s, i
+  s = 4
+!$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
+  do i = 1, 8
+    call something
+  end do
+!$omp end parallel do
+end subroutine pr33439_3