mirror of
https://github.com/autc04/Retro68.git
synced 2024-08-18 12:29:08 +00:00
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
|