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