! { 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"} } |