1! { dg-do compile } 2! { dg-options "-fopenmp" } 3 4subroutine foo 5 integer :: i 6 !$omp do simd schedule (simd, simd: static, 5) 7 do i = 0, 64 8 end do 9 !$omp do simd schedule (monotonic, simd: static) 10 do i = 0, 64 11 end do 12 !$omp do simd schedule (simd , monotonic : static, 6) 13 do i = 0, 64 14 end do 15 !$omp do schedule (monotonic, monotonic : static, 7) 16 do i = 0, 64 17 end do 18 !$omp do schedule (nonmonotonic, nonmonotonic : dynamic) 19 do i = 0, 64 20 end do 21 !$omp do simd schedule (nonmonotonic , simd : dynamic, 3) 22 do i = 0, 64 23 end do 24 !$omp do simd schedule (nonmonotonic,simd:guided,4) 25 do i = 0, 64 26 end do 27 !$omp do schedule (monotonic: static, 2) 28 do i = 0, 64 29 end do 30 !$omp do schedule (monotonic : static) 31 do i = 0, 64 32 end do 33 !$omp do schedule (monotonic : dynamic) 34 do i = 0, 64 35 end do 36 !$omp do schedule (monotonic : dynamic, 3) 37 do i = 0, 64 38 end do 39 !$omp do schedule (monotonic : guided) 40 do i = 0, 64 41 end do 42 !$omp do schedule (monotonic : guided, 7) 43 do i = 0, 64 44 end do 45 !$omp do schedule (monotonic : runtime) 46 do i = 0, 64 47 end do 48 !$omp do schedule (monotonic : auto) 49 do i = 0, 64 50 end do 51 !$omp do schedule (nonmonotonic : dynamic) 52 do i = 0, 64 53 end do 54 !$omp do schedule (nonmonotonic : dynamic, 3) 55 do i = 0, 64 56 end do 57 !$omp do schedule (nonmonotonic : guided) 58 do i = 0, 64 59 end do 60 !$omp do schedule (nonmonotonic : guided, 7) 61 do i = 0, 64 62 end do 63end subroutine foo 64