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