xref: /openbsd-src/gnu/gcc/libgomp/testsuite/libgomp.fortran/appendix-a/a.5.1.f90 (revision 404b540a9034ac75a6199ad1a32d1bbc7a0d4210) 
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