1! { dg-additional-options "-fdump-tree-original" }
2program main
3  use omp_lib
4  implicit none (type, external)
5  integer :: p, a(20)
6  !$omp parallel master num_threads(4) private (p) shared(a)
7    p = omp_get_thread_num ();
8    if (p /= 0) stop 1
9    a = 0
10  !$omp end parallel master
11end
12
13! { dg-final { scan-tree-dump "#pragma omp parallel private\\(p\\) shared\\(a\\) num_threads\\(4\\)" "original"} }
14! { dg-final { scan-tree-dump "#pragma omp master" "original"} }
15