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