From d57c59128ebea30ba29febdf98e739ce12880865 Mon Sep 17 00:00:00 2001 From: LKedward Date: Sat, 28 Nov 2020 16:32:10 +0000 Subject: Changes for review Lowercase openmp pragmas --- fpm/src/fpm_backend.f90 | 5 ++--- 1 file changed, 2 insertions(+), 3 deletions(-) diff --git a/fpm/src/fpm_backend.f90 b/fpm/src/fpm_backend.f90 index ab8a27c..d0843a3 100644 --- a/fpm/src/fpm_backend.f90 +++ b/fpm/src/fpm_backend.f90 @@ -42,13 +42,12 @@ subroutine build_package(model) do i=1,size(schedule_ptr)-1 ! Build targets in schedule region i - !$OMP PARALLEL DO DEFAULT(SHARED) + !$omp parallel do default(shared) do j=schedule_ptr(i),(schedule_ptr(i+1)-1) call build_target(model,queue(j)%ptr) end do - !$OMP END PARALLEL DO end do @@ -56,7 +55,7 @@ end subroutine build_package !> Topologically sort a target for scheduling by -!> recursing over it's dependencies. +!> recursing over its dependencies. !> !> Checks disk-cached source hashes to determine if objects are !> up-to-date. Up-to-date sources are tagged as skipped. -- cgit v1.2.3