Merge branch 'fortran-lang:master' into iterative

Author: jalvesz

config/cmake/Findtest-drive.cmake

@@ -123,7 +123,7 @@ foreach(method ${${_pkg}_FIND_METHOD})
 
       # We need the module directory in the subproject before we finish the configure stage
       if(NOT EXISTS "${${_pkg}_BINARY_DIR}/include")
-        make_directory("${${_pkg}_BINARY_DIR}/include")
+        file(MAKE_DIRECTORY "${${_pkg}_BINARY_DIR}/include")
       endif()
 
       break()
@@ -147,7 +147,7 @@ foreach(method ${${_pkg}_FIND_METHOD})
     FetchContent_GetProperties("${_lib}" SOURCE_DIR "${_pkg}_SOURCE_DIR")
     FetchContent_GetProperties("${_lib}" BINARY_DIR "${_pkg}_BINARY_DIR")
     if(NOT EXISTS "${${_pkg}_BINARY_DIR}/include")
-      make_directory("${${_pkg}_BINARY_DIR}/include")
+      file(MAKE_DIRECTORY "${${_pkg}_BINARY_DIR}/include")
     endif()
 
     break()

doc/specs/stdlib_io.md

@@ -17,7 +17,7 @@ Loads a rank-2 `array` from a text file.
 
 ### Syntax
 
-`call ` [[stdlib_io(module):loadtxt(interface)]] `(filename, array [, skiprows] [, max_rows] [, fmt])`
+`call ` [[stdlib_io(module):loadtxt(interface)]] `(filename, array [, skiprows] [, max_rows] [, fmt] [, delimiter])`
 
 ### Arguments
 
@@ -31,7 +31,7 @@ Loads a rank-2 `array` from a text file.
 
 `fmt` (optional): Fortran format specifier for the text read.  Defaults to the write format for the data type.  Setting fmt='*' will specify list directed read.   
 
-
+`delimiter` (optional): Shall be a character expression of length 1 that contains the delimiter used to separate the columns. The default is `' '`.
 
 ### Return value
 
@@ -52,7 +52,8 @@ Experimental
 
 ### Description
 
-Returns the unit number of a file opened to read, to write, or to read and write. The file might be a text file or a binary file. All files are opened using a streamed access.
+Returns the unit number of a file opened to read, to write, or to read and write. The file might be a text file or a binary file.
+Text files are opened using a sequential access, while binary files are opened using a streamed access.
 
 ### Syntax
 
@@ -105,14 +106,16 @@ Saves a rank-2 `array` into a text file.
 
 ### Syntax
 
-`call ` [[stdlib_io(module):savetxt(interface)]] `(filename, array)`
+`call ` [[stdlib_io(module):savetxt(interface)]] `(filename, array [, delimiter])`
 
 ### Arguments
 
 `filename`: Shall be  a character expression containing the name of the file that will contain the 2D `array`.
 
 `array`: Shall be a rank-2 array of type `real`, `complex` or `integer`.
 
+`delimiter` (optional): Shall be a character expression of length 1 that contains the delimiter used to separate the columns. The default is `' '`.
+
 ### Output
 
 Provides a text file called `filename` that contains the rank-2 `array`.

doc/specs/stdlib_math.md

@@ -427,7 +427,7 @@ Experimental
 
 Elemenal function.
 
-### Description
+#### Description
 
 `deg2rad` converts phase angles from degrees to radians.
 

doc/specs/stdlib_sparse.md

@@ -178,7 +178,7 @@ Type-bound procedures to enable requesting data from a sparse matrix.
 
 `v` : Shall be a `real` or `complex` value in accordance to the declared sparse matrix object. If the `ij` tuple is within the sparse pattern, `v` contains the value in the data buffer. If the `ij` tuple is outside the sparse pattern, `v` is equal `0`. If the `ij` tuple is outside the matrix pattern `(nrows,ncols)`, `v` is `NaN`.
 
-## Example
+### Example
 ```fortran
 {!example/linalg/example_sparse_data_accessors.f90!}
 ```
@@ -257,7 +257,7 @@ This module provides facility functions for converting between storage formats.
 
 `chunk`, `optional`: chunk size, only valid in the case of a `SELLC` matrix, by default it will be taken from the `SELLC` default attribute chunk size. It is an `intent(in)` argument.
 
-## Example
+### Example
 ```fortran
 {!example/linalg/example_sparse_from_ijv.f90!}
 ```
@@ -358,7 +358,7 @@ If the `diagonal` array has not been previously allocated, the `diag` subroutine
 
 `coo` : Shall be a `COO` type of `real` or `complex` type. It is an `intent(out)` argument.
 
-## Example
+### Example
 ```fortran
 {!example/linalg/example_sparse_spmv.f90!}
 ```

doc/specs/stdlib_system.md

@@ -410,10 +410,85 @@ None.
 
 Returns one of the `integer` `OS_*` parameters representing the OS type, from the `stdlib_system` module, or `OS_UNKNOWN` if undetermined.
 
+### Example
+
+```fortran
+{!example/system/example_os_type.f90!}
+```
+
 ---
 
+## `is_directory` - Test if a path is a directory
+
+### Status
+
+Experimental
+
+### Description
+
+This function checks if a specified file system path is a directory. 
+It is designed to work across multiple platforms. On Windows, paths with both forward `/` and backward `\` slashes are accepted.
+
+### Syntax
+
+`result = [[stdlib_io(module):is_directory(function)]] (path)`
+
+### Class
+
+Function
+
+### Arguments
+
+`path`: Shall be a character string containing the file system path to evaluate. It is an `intent(in)` argument.
+
+### Return values
+
+The function returns a `logical` value:
+
+- `.true.` if the path matches an existing directory.
+- `.false.` otherwise, or if the operating system is unsupported.
+
 ### Example
 
 ```fortran
-{!example/system/example_os_type.f90!}
+{!example/system/example_is_directory.f90!}
+```
+
+---
+
+## `null_device` - Return the null device file path
+
+### Status
+
+Experimental
+
+### Description
+
+This function returns the file path of the null device, which is a special file used to discard any data written to it. 
+It reads as an empty file. The null device's path varies by operating system:
+- On Windows, the null device is represented as `NUL`.
+- On UNIX-like systems (Linux, macOS), the null device is represented as `/dev/null`.
+
+### Syntax
+
+`path = [[stdlib_system(module):null_device(function)]]()`
+
+### Class
+
+Function
+
+### Arguments
+
+None.
+
+### Return Value
+
+- **Type:** `character(:), allocatable`
+- Returns the null device file path as a character string, appropriate for the operating system.
+
+### Example
+
+```fortran
+{!example/system/example_null_device.f90!}
 ```
+

example/io/example.csv

@@ -0,0 +1,3 @@
+ 1.00000000E+00, 1.00000000E+00
+ 1.00000000E+00, 1.00000000E+00
+ 1.00000000E+00, 1.00000000E+00

example/io/example_loadtxt.f90

@@ -6,4 +6,7 @@ program example_loadtxt
 
   ! Can also use list directed format if the default read fails.
   call loadtxt('example.dat', x, fmt='*')
+
+  call loadtxt('example.csv', x, delimiter=',')
+
 end program example_loadtxt

example/io/example_savetxt.f90

@@ -3,4 +3,5 @@ program example_savetxt
   implicit none
   real :: x(3, 2) = 1
   call savetxt('example.dat', x)
+  call savetxt('example.csv', x, delimiter=',')
 end program example_savetxt

example/system/CMakeLists.txt

@@ -1,4 +1,6 @@
 ADD_EXAMPLE(get_runtime_os)
+ADD_EXAMPLE(is_directory)
+ADD_EXAMPLE(null_device)
 ADD_EXAMPLE(os_type)
 ADD_EXAMPLE(process_1)
 ADD_EXAMPLE(process_2)

example/system/example_is_directory.f90

@@ -0,0 +1,11 @@
+! Demonstrate usage of `is_directory`
+program example_is_directory
+  use stdlib_system, only: is_directory
+  implicit none
+  ! Test a directory path
+  if (is_directory("/path/to/check")) then 
+    print *, "The specified path is a directory."
+  else
+    print *, "The specified path is not a directory."
+  end if
+end program example_is_directory