Skip to content

Commit 21a71de

Browse files
committed
Do not initialize stat
1 parent 533c9ea commit 21a71de

File tree

1 file changed

+2
-2
lines changed

1 file changed

+2
-2
lines changed

src/fpm_filesystem.F90

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -1152,7 +1152,7 @@ subroutine execute_and_read_output(cmd, output, error, verbose)
11521152
!> Print additional information if true.
11531153
logical, intent(in), optional :: verbose
11541154

1155-
integer :: exitstat, unit, stat = 0
1155+
integer :: exitstat, unit, stat
11561156
character(len=:), allocatable :: cmdmsg, tmp_file, output_line
11571157
logical :: is_verbose
11581158

@@ -1175,7 +1175,7 @@ subroutine execute_and_read_output(cmd, output, error, verbose)
11751175
output = output//output_line//' '
11761176
end do
11771177
if (is_verbose) print *, output
1178-
close(unit, status='delete', iostat=stat)
1178+
close(unit, status='delete')
11791179
end
11801180

11811181
!> Ensure a windows path is converted to an 8.3 DOS path if it contains spaces

0 commit comments

Comments
 (0)