xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.5.1.f90 (revision f2da64fbbbf1b03f09f390ab01267c93dfd77c4c) 
1! { dg-do run }
2      PROGRAM A5
3        INCLUDE "omp_lib.h"      ! or USE OMP_LIB
4        CALL OMP_SET_DYNAMIC(.TRUE.)
5!$OMP PARALLEL NUM_THREADS(10)
6            ! do work here
7!$OMP END PARALLEL
8      END PROGRAM A5
9