Update openmp_sample.f90 (#2371)

oneapi-src · Jun 25, 2024 · bcc0cfe · bcc0cfe
1 parent 6310039
commit bcc0cfe
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/DirectProgramming/Fortran/CombinationalLogic/openmp-primes/src/openmp_sample.f90 b/DirectProgramming/Fortran/CombinationalLogic/openmp-primes/src/openmp_sample.f90
@@ -61,8 +61,8 @@ program ompPrime
 !$omp end single
 
 !$omp do private(factor, limit, prime) &
-   schedule(dynamic,10) &
-   reduction(+:number_of_primes,number_of_41primes,number_of_43primes)
+!$omp&   schedule(dynamic,10) &
+!$omp&   reduction(+:number_of_primes,number_of_41primes,number_of_43primes)
 
 do index = start, end, 2   ! workshared loop