From 9ff5922be2bb05efbed339b56d514bb85c564203 Mon Sep 17 00:00:00 2001
From: jakub <jakub@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Fri, 21 Sep 2007 11:17:13 +0000
Subject: [PATCH] 	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
---
 gcc/testsuite/ChangeLog                    |  5 +++
 gcc/testsuite/gfortran.dg/gomp/pr33439.f90 | 38 ++++++++++++++++++++++
 2 files changed, 43 insertions(+)
 create mode 100644 gcc/testsuite/gfortran.dg/gomp/pr33439.f90

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
-- 
2.47.2