From e90eee715634a9378b86a111d70613b1eeedd64b Mon Sep 17 00:00:00 2001 From: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> Date: Mon, 27 Sep 2021 13:45:46 +0200 Subject: Apply suggestions from code review Co-authored-by: Laurence Kedward --- src/fpm_backend.f90 | 3 --- src/fpm_targets.f90 | 4 ++-- 2 files changed, 2 insertions(+), 5 deletions(-) (limited to 'src') diff --git a/src/fpm_backend.f90 b/src/fpm_backend.f90 index 1838c3a..6cf4f2d 100644 --- a/src/fpm_backend.f90 +++ b/src/fpm_backend.f90 @@ -55,9 +55,6 @@ subroutine build_package(targets,model) type(string_t) :: temp ! Need to make output directory for include (mod) files - !if (.not.exists(join_path(model%output_directory,model%package_name))) then - !call mkdir(join_path(model%output_directory,model%package_name)) - !end if allocate(build_dirs(0)) do i = 1, size(targets) associate(target => targets(i)%ptr) diff --git a/src/fpm_targets.f90 b/src/fpm_targets.f90 index c7ac8bb..788a5ce 100644 --- a/src/fpm_targets.f90 +++ b/src/fpm_targets.f90 @@ -69,10 +69,10 @@ type build_target_t !> File path of build target object relative to cwd character(:), allocatable :: output_file - !> File path of build target object relative to cwd + !> File path of build target object relative to output_dir character(:), allocatable :: output_name - !> File path of build target object relative to cwd + !> File path of output directory character(:), allocatable :: output_dir !> Primary source for this build target -- cgit v1.2.3