new examples

Author: wassup05

example/system/example_exists.f90

@@ -8,7 +8,7 @@ program example_exists
     type(state_type) :: err
 
     ! Path to check
-    character(*), parameter :: path = "path"
+    character(*), parameter :: path = "path/to/check"
     ! To get the type of the path
     integer :: t
 

example/system/example_is_regular_file.f90

@@ -0,0 +1,14 @@
+! Demonstrate usage of `is_regular_file`
+program example_is_directory
+  use stdlib_system, only: is_regular_file
+  implicit none
+
+  character(*), parameter :: path = "path/to/check"
+
+  ! Test if path is a regular file
+  if (is_regular_file(path)) then 
+    print *, "The specified path is a regular file."
+  else
+    print *, "The specified path is not a regular file."
+  end if
+end program example_is_directory

example/system/example_is_symlink.f90

@@ -0,0 +1,20 @@
+! Demonstrate usage of `is_symlink`
+program example_is_directory
+  use stdlib_system, only: is_symlink, is_directory
+  implicit none
+
+  character(*), parameter :: path = "path/to/check"
+
+  ! Test if path is a symbolic link
+  if (is_symlink(path)) then 
+    print *, "The specified path is a symlink."
+    ! Further check if it is linked to a file or a directory
+    if (is_directory(path)) then
+        print *, "Further, it is a link to a directory."
+    else
+        print *, "Further, it is a link to a file."
+    end if
+  else
+    print *, "The specified path is not a symlink."
+  end if
+end program example_is_directory