mirror of
https://review.haiku-os.org/buildtools
synced 2025-02-12 08:47:41 +01:00
a84f174425
git-svn-id: file:///srv/svn/repos/haiku/buildtools/trunk@29033 a95241bf-73f2-0310-859d-f6bbb57e9c96
9 lines
218 B
Fortran
9 lines
218 B
Fortran
! { dg-do run }
|
|
PROGRAM A5
|
|
INCLUDE "omp_lib.h" ! or USE OMP_LIB
|
|
CALL OMP_SET_DYNAMIC(.TRUE.)
|
|
!$OMP PARALLEL NUM_THREADS(10)
|
|
! do work here
|
|
!$OMP END PARALLEL
|
|
END PROGRAM A5
|