1! { dg-do compile } 2! { dg-options "-fopenmp -fno-openmp-simd -fdump-tree-original -O2" } 3 4include 'openmp-simd-1.f90' 5 6! { dg-final { scan-tree-dump-times "pragma omp simd" 6 "original" } } 7! { dg-final { scan-tree-dump-times "pragma omp" 39 "original" } } 8! { dg-final { scan-tree-dump-times "pragma omp for" 6 "original" } } 9! { dg-final { scan-tree-dump-times "pragma omp parallel" 9 "original" } } 10! { dg-final { scan-tree-dump-times "pragma omp taskgroup" 1 "original" } } 11! Includes the above taskgroup 12! { dg-final { scan-tree-dump-times "pragma omp task" 3 "original" } } 13! { dg-final { scan-tree-dump-times "pragma omp critical" 1 "original" } } 14! { dg-final { scan-tree-dump-times "pragma omp atomic" 2 "original" } } 15! { dg-final { scan-tree-dump-times "pragma omp sections" 2 "original" } } 16! Includes the above sections 17! { dg-final { scan-tree-dump-times "pragma omp section" 6 "original" } } 18! { dg-final { scan-tree-dump-times "pragma omp single" 4 "original" } } 19! { dg-final { scan-tree-dump-times "pragma omp ordered" 1 "original" } } 20! { dg-final { scan-tree-dump-times "pragma omp master" 1 "original" } } 21! { dg-final { scan-tree-dump-times "__builtin_GOMP" 5 "original" } } 22! { dg-final { scan-tree-dump-times "__builtin_GOMP_barrier" 1 "original" } } 23! { dg-final { scan-tree-dump-times "__builtin_GOMP_cancellation_point" 1 "original" } } 24! Includes the above cancellation point 25! { dg-final { scan-tree-dump-times "__builtin_GOMP_cancel" 2 "original" } } 26! { dg-final { scan-tree-dump-times "__builtin_GOMP_taskyield" 1 "original" } } 27! { dg-final { scan-tree-dump-times "__builtin_GOMP_taskwait" 1 "original" } } 28