mirror of
https://github.com/autc04/Retro68.git
synced 2024-07-14 17:30:21 +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
|