1! { dg-do compile }
2! { dg-options "-O2 -fopenmp -fdump-tree-optimized" }
3! { dg-final { scan-tree-dump-times "__builtin_GOMP_loop_ordered_start \[^\n\r]*, (?:2147483650|-2147483646), 4, " 1 "optimized" } }
4! { dg-final { scan-tree-dump-times "__builtin_GOMP_loop_end " 1 "optimized" } }
5! { dg-final { scan-tree-dump-times "__builtin_GOMP_ordered_start " 1 "optimized" } }
6! { dg-final { scan-tree-dump-times "__builtin_GOMP_ordered_end " 1 "optimized" } }
7! { dg-final { scan-tree-dump-times "__builtin_GOMP_loop_ordered_dynamic_next " 1 "optimized" } }
8! { dg-final { scan-tree-dump-times "__builtin_GOMP_workshare_task_reduction_unregister \\(0\\)" 1 "optimized" } }
9! { dg-final { scan-tree-dump-times "__builtin_GOMP_parallel " 1 "optimized" } }
10
11module m
12  implicit none (type, external)
13  integer :: j
14  interface
15    subroutine bar(i)
16      integer :: i
17    end subroutine
18  end interface
19end module m
20
21subroutine foo(a, b, c)
22  use m
23  implicit none (type, external)
24  integer :: a, b ,c
25  integer :: i
26  !$omp parallel
27  !$omp do ordered reduction (task, *: j) schedule (dynamic, 4)
28  do i = a, b, c
29    call bar (j)
30    !$omp ordered
31    j = j + 1
32    !$omp end ordered
33  end do
34  !$omp end parallel
35end
36