Sign in
llvm
/
llvm-archive
/
8a078a762a98ba34ad83dc2c15e5ff2b86792d78
/
.
/
llvm-gcc-4.2
/
llvmgcc42-2326.9
/
libgomp
/
testsuite
/
libgomp.fortran
/
appendix-a
/
a.5.1.f90
blob: 13e451e506a7dcd48062669f1884289bbc768d82 [
file
] [
log
] [
blame
]
!
{
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