mirror of
https://github.com/autc04/Retro68.git
synced 2025-02-26 13:29:28 +00:00
15 lines
471 B
Fortran
15 lines
471 B
Fortran
! { 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"} }
|