Use dir /b on Windows

fortran-lang · Sep 20, 2024 · 21739b7 · 21739b7
1 parent 7e91c7c
commit 21739b7
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/src/stdlib_io_filesystem.F90 b/src/stdlib_io_filesystem.F90
@@ -77,7 +77,11 @@ subroutine list_dir(dir, files, iostat, iomsg)
             end if
         end if
 
-        call run('ls '//dir//' > '//listed_contents, stat)
+        if (is_windows()) then
+            call run('dir /b '//dir//' > '//listed_contents, stat)
+        else
+            call run('ls '//dir//' > '//listed_contents, stat)
+        end if
         if (stat /= 0) then
             if (present(iostat)) iostat = stat
             if (present(iomsg)) iomsg = "Failed to list files in directory '"//dir//"'."