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-message "note: 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-message "note: 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-message "note: enclosing 'parallel'" }
  34 !                                                       ! { dg-error "'s' not specified in enclosing 'parallel'" "" { target *-*-* } .-1 }
  35   do i = 1, 8
  36     call something
  37   end do
  38 !$omp end parallel do
  39 end subroutine pr33439_3