From b1b6a7b9bd1d3607dd80d8ba3fd767e88a852855 Mon Sep 17 00:00:00 2001 From: Laurence Kedward Date: Tue, 30 Nov 2021 14:23:55 +0000 Subject: Apply suggestions from code review Co-authored-by: Sebastian Ehlert <28669218+awvwgk@users.noreply.github.com> --- src/fpm_backend.F90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'src/fpm_backend.F90') 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) -- cgit v1.2.3