Merge branch 'fortran-lang:master' into activations

Author: jalvesz

doc/specs/stdlib_io.md

@@ -304,3 +304,4 @@ Exceptions trigger an `error stop` unless the optional `err` argument is provide
 ```fortran
 {!example/io/example_get_file.f90!}
 ```
+

doc/specs/stdlib_system.md

@@ -24,7 +24,7 @@ Additionally, a callback function can be specified to execute upon process compl
 
 ### Syntax
 
-`process = ` [[stdlib_subprocess(module):run(interface)]] `(args [, stdin] [, want_stdout] [, want_stderr] [, callback] [, payload])`
+`process = ` [[stdlib_system(module):run(interface)]] `(args [, stdin] [, want_stdout] [, want_stderr] [, callback] [, payload])`
 
 ### Arguments
 
@@ -69,7 +69,7 @@ Additionally, a callback function can be specified to execute upon process compl
 
 ### Syntax
 
-`process = ` [[stdlib_subprocess(module):runasync(interface)]] `(args [, stdin] [, want_stdout] [, want_stderr] [, callback] [, payload])`
+`process = ` [[stdlib_system(module):runasync(interface)]] `(args [, stdin] [, want_stdout] [, want_stderr] [, callback] [, payload])`
 
 ### Arguments
 
@@ -108,7 +108,7 @@ This is useful for monitoring the status of asynchronous processes created with
 
 ### Syntax
 
-`status = ` [[stdlib_subprocess(module):is_running(interface)]] `(process)`
+`status = ` [[stdlib_system(module):is_running(interface)]] `(process)`
 
 ### Arguments
 
@@ -139,7 +139,7 @@ This is useful for determining whether asynchronous processes created with the `
 
 ### Syntax
 
-`status = ` [[stdlib_subprocess(module):is_completed(interface)]] `(process)`
+`status = ` [[stdlib_system(module):is_completed(interface)]] `(process)`
 
 ### Arguments
 
@@ -174,7 +174,7 @@ The result is a real value representing the elapsed time in seconds, measured fr
 
 ### Syntax
 
-`delta_t = ` [[stdlib_subprocess(module):elapsed(subroutine)]] `(process)`
+`delta_t = ` [[stdlib_system(module):elapsed(subroutine)]] `(process)`
 
 ### Arguments
 
@@ -212,7 +212,7 @@ in case of process hang or delay.
 
 ### Syntax
 
-`call ` [[stdlib_subprocess(module):wait(subroutine)]] `(process [, max_wait_time])`
+`call ` [[stdlib_system(module):wait(subroutine)]] `(process [, max_wait_time])`
 
 ### Arguments
 
@@ -243,7 +243,7 @@ This is especially useful for monitoring asynchronous processes and retrieving t
 
 ### Syntax
 
-`call ` [[stdlib_subprocess(module):update(subroutine)]] `(process)`
+`call ` [[stdlib_system(module):update(subroutine)]] `(process)`
 
 ### Arguments
 
@@ -269,7 +269,7 @@ This interface is useful when a process needs to be forcefully stopped, for exam
 
 ### Syntax
 
-`call ` [[stdlib_subprocess(module):kill(subroutine)]] `(process, success)`
+`call ` [[stdlib_system(module):kill(subroutine)]] `(process, success)`
 
 ### Arguments
 
@@ -431,7 +431,7 @@ It is designed to work across multiple platforms. On Windows, paths with both fo
 
 ### Syntax
 
-`result = [[stdlib_io(module):is_directory(function)]] (path)`
+`result = [[stdlib_system(module):is_directory(function)]] (path)`
 
 ### Class
 
@@ -492,3 +492,43 @@ None.
 {!example/system/example_null_device.f90!}
 ```
 
+## `delete_file` - Delete a file
+
+### Status
+
+Experimental
+
+### Description
+
+This subroutine deletes a specified file from the filesystem. It ensures that the file exists and is not a directory before attempting deletion.
+If the file cannot be deleted due to permissions, being a directory, or other issues, an error is raised. 
+The function provides an optional error-handling mechanism via the `state_type` class. If the `err` argument is not provided, exceptions will trigger an `error stop`.
+
+### Syntax
+
+`call [[stdlib_system(module):delete_file(subroutine)]] (path [, err])`
+
+### Class
+Subroutine
+
+### Arguments
+
+`path`: Shall be a character string containing the path to the file to be deleted. It is an `intent(in)` argument.
+
+`err` (optional): Shall be a `type(state_type)` variable for error handling. If provided, errors are returned as a state object. If not provided, the program stops execution on error.
+
+### Behavior
+
+- Checks if the file exists. If not, an error is raised.
+- Ensures the path is not a directory before deletion.
+- Attempts to delete the file, raising an error if unsuccessful.
+
+### Return values
+
+The file is removed from the filesystem if the operation is successful. If the operation fails, an error is raised.
+
+### Example
+
+```fortran
+{!example/system/example_delete_file.f90!}
+```

example/specialfunctions_gamma/example_gamma.f90

@@ -1,21 +1,19 @@
 program example_gamma
-  use stdlib_kinds, only: dp, int64
+  use stdlib_kinds, only: sp, dp, int64
   use stdlib_specialfunctions_gamma, only: gamma
   implicit none
 
   integer :: i
   integer(int64) :: n
   real :: x
   real(dp) :: y
-  complex :: z
-  complex(dp) :: z1
+  complex(sp) :: z
 
   i = 10
   n = 15_int64
   x = 2.5
   y = 4.3_dp
   z = (2.3, 0.6)
-  z1 = (-4.2_dp, 3.1_dp)
 
   print *, gamma(i)              !integer gives exact result
 ! 362880
@@ -32,6 +30,4 @@ program example_gamma
   print *, gamma(z)
 ! (0.988054395, 0.383354813)
 
-  print *, gamma(z1)
-! (-2.78916032990983999E-005, 9.83164600163221218E-006)
 end program example_gamma

example/specialfunctions_gamma/example_log_gamma.f90

@@ -1,19 +1,18 @@
 program example_log_gamma
-  use stdlib_kinds, only: dp
+  use stdlib_kinds, only: sp, dp
   use stdlib_specialfunctions_gamma, only: log_gamma
   implicit none
 
   integer :: i
   real :: x
   real(dp) :: y
-  complex :: z
-  complex(dp) :: z1
+  complex(sp) :: z
 
   i = 10
   x = 8.76
   y = x
   z = (5.345, -3.467)
-  z1 = z
+
   print *, log_gamma(i)     !default single precision output
 !12.8018274
 
@@ -29,7 +28,4 @@ program example_log_gamma
 
 !(2.56165648, -5.73382425)
 
-  print *, log_gamma(z1)
-
-!(2.5616575105114614, -5.7338247782852498)
 end program example_log_gamma

example/system/CMakeLists.txt

@@ -1,4 +1,5 @@
 ADD_EXAMPLE(get_runtime_os)
+ADD_EXAMPLE(delete_file)
 ADD_EXAMPLE(is_directory)
 ADD_EXAMPLE(null_device)
 ADD_EXAMPLE(os_type)

example/system/example_delete_file.f90

@@ -0,0 +1,18 @@
+! Demonstrate usage of `delete_file`
+program example_delete_file
+  use stdlib_system, only: delete_file
+  use stdlib_error, only: state_type
+  implicit none
+
+  type(state_type) :: err
+  character(*), parameter :: filename = "example.txt"
+
+  ! Delete a file with error handling
+  call delete_file(filename, err)
+
+  if (err%error()) then
+    print *, err%print() 
+  else
+    print *, "File "//filename//" deleted successfully."
+  end if
+end program example_delete_file