gcc/testsuite/gfortran.dg/gomp/pr40878-2.f90

   1 ! PR fortran/40878
   2 ! { dg-do compile }
   3 ! { dg-options "-fopenmp" }
   4
   5 subroutine test1
   6   integer :: j, k
   7   integer, parameter :: m = 2
   8 !$omp parallel do collapse(m) schedule (static,1)
   9   do k = 1, 2
  10     do j = 1, 6
  11     enddo
  12   enddo
  13 !$omp end parallel do
  14 end
  15 subroutine test2
  16   integer :: j, k
  17 !$omp parallel do collapse(2) schedule (static,1)
  18   do k = 1, 2
  19     do j = 1, 6
  20     enddo
  21   enddo
  22 !$omp end parallel do
  23 end