re PR fortran/33439 (OpenMP: Incorrect error message for chunksize variable)

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

From-SVN: r128649

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index a033d18..70ec4b7 100644 (file)
--- 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 (file)
index 0000000..f7db759
--- /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