diff options
| author | John S. Urban <urbanjost@comcast.net> | 2021-07-18 19:42:58 -0400 |
|---|---|---|
| committer | John S. Urban <urbanjost@comcast.net> | 2021-07-18 19:42:58 -0400 |
| commit | 83f1fc0be44831b32869126be0afc55431791b56 (patch) | |
| tree | 5c5e7d4b624610a39687ab925cc2c57ae645f6e5 /src/fpm_backend.f90 | |
| parent | 1715c04c7e662599d20d2a43e8cc1e9cfbd2fa54 (diff) | |
| download | fpm-83f1fc0be44831b32869126be0afc55431791b56.tar.gz fpm-83f1fc0be44831b32869126be0afc55431791b56.zip | |
remove warnings and fix truncated help text
Diffstat (limited to 'src/fpm_backend.f90')
| -rw-r--r-- | src/fpm_backend.f90 | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/src/fpm_backend.f90 b/src/fpm_backend.f90 index e82d847..4d0c709 100644 --- a/src/fpm_backend.f90 +++ b/src/fpm_backend.f90 @@ -83,7 +83,7 @@ subroutine build_package(targets,model) ! Check if build already failed !$omp atomic read skip_current = build_failed - + if (.not.skip_current) then call build_target(model,queue(j)%ptr,stat(j)) end if @@ -126,8 +126,7 @@ end subroutine build_package recursive subroutine sort_target(target) type(build_target_t), intent(inout), target :: target - integer :: i, j, fh, stat - type(build_target_t), pointer :: exe_obj + integer :: i, fh, stat ! Check if target has already been processed (as a dependency) if (target%sorted .or. target%skip) then @@ -257,8 +256,7 @@ subroutine build_target(model,target,stat) type(build_target_t), intent(in), target :: target integer, intent(out) :: stat - integer :: ilib, fh - character(:), allocatable :: link_flags + integer :: fh if (.not.exists(dirname(target%output_file))) then call mkdir(dirname(target%output_file)) |