1! { dg-do compile } 2! { dg-options "-O -fopenmp -fdump-tree-omplower -std=legacy" } 3 4subroutine foo (i, j, k, s, a) 5 integer :: i, j, k, s, a(100), l 6!$omp parallel do schedule (dynamic, s * 2) 7 do 100, l = j, k 8100 a(l) = i 9!$omp parallel do schedule (dynamic, s * 2) 10 do 101, l = j, k, 3 11101 a(l) = i + 1 12end subroutine foo 13 14subroutine bar (i, j, k, s, a) 15 integer :: i, j, k, s, a(100), l 16!$omp parallel do schedule (guided, s * 2) 17 do 100, l = j, k 18100 a(l) = i 19!$omp parallel do schedule (guided, s * 2) 20 do 101, l = j, k, 3 21101 a(l) = i + 1 22end subroutine bar 23 24! { dg-final { scan-tree-dump-times "GOMP_parallel_loop_dynamic_start" 2 "omplower" { xfail *-*-* } } } 25! { dg-final { scan-tree-dump-times "GOMP_parallel_loop_guided_start" 2 "omplower" { xfail *-*-* } } } 26