Check for existence again

fortran-lang · Sep 20, 2024 · 0642aff · 0642aff
1 parent 84f36f1
commit 0642aff
Showing 1 changed file with 6 additions and 9 deletions.
diff --git a/src/stdlib_io_filesystem.F90 b/src/stdlib_io_filesystem.F90
@@ -68,16 +68,13 @@ subroutine list_dir(dir, files, iostat, iomsg)
 
         stat = 0
 
-        if (is_windows()) then
+        if (.not. exists(temp_dir)) then
             call run('mkdir '//temp_dir, stat)
-        else
-            call run('mkdir -p '//temp_dir, stat)
-        end if
-
-        if (stat /= 0) then
-            if (present(iostat)) iostat = stat
-            if (present(iomsg)) iomsg = "Failed to create temporary directory '"//temp_dir//"'."
-            return
+            if (stat /= 0) then
+                if (present(iostat)) iostat = stat
+                if (present(iomsg)) iomsg = "Failed to create temporary directory '"//temp_dir//"'."
+                return
+            end if
         end if
 
         call run('ls '//dir//' > '//listed_contents, stat)