Skip to content

Commit b1b6a7b

Browse files
LKedwardawvwgk
andauthored
Apply suggestions from code review
Co-authored-by: Sebastian Ehlert <[email protected]>
1 parent 0c561b0 commit b1b6a7b

File tree

1 file changed

+3
-3
lines changed

1 file changed

+3
-3
lines changed

src/fpm_backend.F90

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -44,7 +44,7 @@ module fpm_backend
4444
interface
4545
function c_isatty() bind(C, name = 'c_isatty')
4646
use, intrinsic :: iso_c_binding, only: c_int
47-
integer(c_int) :: c_isatty
47+
integer(c_int) :: c_isatty
4848
end function
4949
end interface
5050
#endif
@@ -93,7 +93,7 @@ subroutine build_package(targets,model,verbose)
9393

9494
! Check if queue is empty
9595
if (.not.verbose .and. size(queue) < 1) then
96-
write(*,*) 'Project is up to date'
96+
write(*, '(a)') 'Project is up to date'
9797
return
9898
end if
9999

@@ -138,7 +138,7 @@ subroutine build_package(targets,model,verbose)
138138

139139
! Check if this schedule region failed: exit with message if failed
140140
if (build_failed) then
141-
write(*,*) ''
141+
write(*,*)
142142
do j=1,size(stat)
143143
if (stat(j) /= 0) Then
144144
call print_build_log(queue(j)%ptr)

0 commit comments

Comments
 (0)