gcc/testsuite/gfortran.dg/gomp/parallel-master-1.f90

! { dg-additional-options "-fdump-tree-original" }
  implicit none
  integer :: k, p, s, r, nth, t, f
  logical(kind=2) l2
  !$omp threadprivate (t)
  
  external bar
  !$omp parallel master default(none) private (k)
    call bar (k)
  !$omp end parallel master

  !$omp parallel master private (p) firstprivate (f) if (parallel: l2) default(shared) &
  !$omp& shared(s) reduction(+:r) num_threads (nth) proc_bind(spread) copyin(t)
     !
  !$omp end parallel master
end

! { dg-final { scan-tree-dump "omp parallel private\\(k\\) default\\(none\\)" "original" } }
! { dg-final { scan-tree-dump-times "#pragma omp master" 1 "original" } }
! { dg-final { scan-tree-dump "D.\[0-9\]+ = l2;" "original" } }
! { dg-final { scan-tree-dump "D.\[0-9\]+ = nth;" "original" } }
! { dg-final { scan-tree-dump "#pragma omp parallel private\\(p\\) firstprivate\\(f\\) shared\\(s\\) copyin\\(t\\) reduction\\(\\+:r\\) if\\(parallel:D.\[0-9\]+\\) num_threads\\(D.\[0-9\]+\\) default\\(shared\\) proc_bind\\(spread\\)" "original" } }