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

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

From-SVN: r128649

gcc/testsuite/ChangeLog

+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

gcc/testsuite/gfortran.dg/gomp/pr33439.f90

+! 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