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