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

   1 ! PR fortran/33439
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4
   5 subroutine pr33439_1
   6   integer :: s, i
   7   s = 4
   8 !$omp parallel default(none)    ! { dg-error "enclosing parallel" }
   9   call somethingelse
  10 !$omp do schedule(static, s)    ! { dg-error "not specified in enclosing parallel" }
  11   do i = 1, 8
  12     call something
  13   end do
  14 !$omp end do
  15 !$omp end parallel
  16 end subroutine pr33439_1
  17
  18 subroutine pr33439_2
  19   integer :: s, i
  20   s = 4
  21 !$omp parallel default(none)    ! { dg-error "enclosing parallel" }
  22 !$omp do schedule(static, s)    ! { dg-error "not specified in enclosing parallel" }
  23   do i = 1, 8
  24     call something
  25   end do
  26 !$omp end do
  27 !$omp end parallel
  28 end subroutine pr33439_2
  29
  30 subroutine pr33439_3
  31   integer :: s, i
  32   s = 4
  33 !$omp parallel do default(none) schedule(static, s) ! { dg-error "enclosing parallel" }
  34   do i = 1, 8
  35     call something
  36   end do
  37 !$omp end parallel do
  38 end subroutine pr33439_3