add example

Author: perazz

doc/specs/stdlib_system.md

@@ -530,19 +530,5 @@ The file is removed from the filesystem if the operation is successful. If the o
 ### Example
 
 ```fortran
-program example_delete_file
-  use stdlib_fs
-  implicit none
-
-  type(state_type) :: err
-
-  ! Delete a file with error handling
-  call delete_file("example.txt", err)
-
-  if (err%error()) then
-    print *, "Failed to delete file:", err%print()
-  else
-    print *, "File deleted successfully."
-  end if
-end program example_delete_file
+{!example/system/example_delete_file.f90!}
 ```

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