diff options
| author | Laurence Kedward <laurence.kedward@bristol.ac.uk> | 2021-11-30 14:23:55 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2021-11-30 14:23:55 +0000 |
| commit | b1b6a7b9bd1d3607dd80d8ba3fd767e88a852855 (patch) | |
| tree | 4f5ab047a10328af6d5139bbae3ae735a8632215 | |
| parent | 0c561b0f76bc6fa7777dec884a16b76694913adf (diff) | |
| download | fpm-b1b6a7b9bd1d3607dd80d8ba3fd767e88a852855.tar.gz fpm-b1b6a7b9bd1d3607dd80d8ba3fd767e88a852855.zip | |
Apply suggestions from code review
Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com>
| -rw-r--r-- | src/fpm_backend.F90 | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/src/fpm_backend.F90 b/src/fpm_backend.F90 index ceba7ac..f899f9d 100644 --- a/src/fpm_backend.F90 +++ b/src/fpm_backend.F90 @@ -44,7 +44,7 @@ public :: build_package, sort_target, schedule_targets interface function c_isatty() bind(C, name = 'c_isatty') use, intrinsic :: iso_c_binding, only: c_int - integer(c_int) :: c_isatty + integer(c_int) :: c_isatty end function end interface #endif @@ -93,7 +93,7 @@ subroutine build_package(targets,model,verbose) ! Check if queue is empty if (.not.verbose .and. size(queue) < 1) then - write(*,*) 'Project is up to date' + write(*, '(a)') 'Project is up to date' return end if @@ -138,7 +138,7 @@ subroutine build_package(targets,model,verbose) ! Check if this schedule region failed: exit with message if failed if (build_failed) then - write(*,*) '' + write(*,*) do j=1,size(stat) if (stat(j) /= 0) Then call print_build_log(queue(j)%ptr) |