libgomp/testsuite/libgomp.fortran/parallel-master.f90


1
2
3
4
5
6
7
8
9
10
11
12
13
14

! { dg-additional-options "-fdump-tree-original" }
program main
  use omp_lib
  implicit none (type, external)
  integer :: p, a(20)
  !$omp parallel master num_threads(4) private (p) shared(a)
    p = omp_get_thread_num ();
    if (p /= 0) stop 1
    a = 0
  !$omp end parallel master
end

! { dg-final { scan-tree-dump "#pragma omp parallel private\\(p\\) shared\\(a\\) num_threads\\(4\\)" "original"} }
! { dg-final { scan-tree-dump "#pragma omp master" "original"} }