From 25253438783f6d1b0494b729ccdfe0836de062dd Mon Sep 17 00:00:00 2001
From: zoziha <zuo.zhihua@qq.com>
Date: Mon, 5 Dec 2022 20:01:50 +0800
Subject: [PATCH] Fix: returns iostat for delete_file, but does not process it.

---
 src/fpm_compiler.f90   | 13 ++++++-------
 src/fpm_filesystem.F90 |  7 +++++--
 2 files changed, 11 insertions(+), 9 deletions(-)

diff --git a/src/fpm_compiler.f90 b/src/fpm_compiler.f90
index f6c02e9845..d6fa570d4c 100644
--- a/src/fpm_compiler.f90
+++ b/src/fpm_compiler.f90
@@ -937,9 +937,9 @@ end subroutine link
 
 
 !> Create an archive
-!> @todo An OMP critical section is added for Windows OS,
-!> which may be related to a bug in Mingw64-openmp and is expected to be resolved in the future,
-!> see issue #707 and #708.
+!> @todo For Windows OS, the `delete_file` returns `iostat`, but we does not process it.
+!> This may be related to a bug in Mingw64-openmp and is expected to be resolved in the future,
+!> see issue #707, #708 and #808.
 subroutine make_archive(self, output, args, log_file, stat)
     !> Instance of the archiver object
     class(archiver_t), intent(in) :: self
@@ -951,14 +951,13 @@ subroutine make_archive(self, output, args, log_file, stat)
     character(len=*), intent(in) :: log_file
     !> Status flag
     integer, intent(out) :: stat
+    integer :: istat
 
     if (self%use_response_file) then
-        !$omp critical
         call write_response_file(output//".resp" , args)
         call run(self%ar // output // " @" // output//".resp", echo=self%echo, &
             &  verbose=self%verbose, redirect=log_file, exitstat=stat)
-        call delete_file(output//".resp")
-        !$omp end critical
+        call delete_file(output//".resp", iostat=istat)
     else
         call run(self%ar // output // " " // string_cat(args, " "), &
             & echo=self%echo, verbose=self%verbose, redirect=log_file, exitstat=stat)
@@ -976,7 +975,7 @@ subroutine write_response_file(name, argv)
 
     integer :: iarg, io
 
-    open(file=name, newunit=io)
+    open(file=name, newunit=io, status='replace')
     do iarg = 1, size(argv)
         write(io, '(a)') unix_path(argv(iarg)%s)
     end do
diff --git a/src/fpm_filesystem.F90 b/src/fpm_filesystem.F90
index e60b2df1f7..3510e6b094 100644
--- a/src/fpm_filesystem.F90
+++ b/src/fpm_filesystem.F90
@@ -681,14 +681,17 @@ end subroutine getline
 
 
 !> delete a file by filename
-subroutine delete_file(file)
+subroutine delete_file(file, iostat)
+    !> file to delete
     character(len=*), intent(in) :: file
+    !> status of operation
+    integer, intent(out), optional :: iostat
     logical :: exist
     integer :: unit
     inquire(file=file, exist=exist)
     if (exist) then
         open(file=file, newunit=unit)
-        close(unit, status="delete")
+        close(unit, status="delete", iostat=iostat)
     end if
 end subroutine delete_file