misc changes

Author: wassup05

doc/specs/stdlib_system.md

@@ -583,7 +583,7 @@ Experimental
 
 ### Description
 
-This function checks if a specified file system path is a symbolic link to either a file or a directory. 
+This function checks if a specified file system path is a symbolic link to either a file or a directory.
 Use [[stdlib_system(module):is_regular_file(function)]] and [[stdlib_system(module):is_directory(function)]] functions
 to check further if the link is to a file or a directory respectively.
 It is designed to work across multiple platforms. On Windows, paths with both forward `/` and backward `\` slashes are accepted.

example/system/CMakeLists.txt

@@ -1,6 +1,5 @@
 ADD_EXAMPLE(get_runtime_os)
 ADD_EXAMPLE(delete_file)
-ADD_EXAMPLE(is_directory)
 ADD_EXAMPLE(null_device)
 ADD_EXAMPLE(os_type)
 ADD_EXAMPLE(process_1)
@@ -19,3 +18,6 @@ ADD_EXAMPLE(path_dir_name)
 ADD_EXAMPLE(make_directory)
 ADD_EXAMPLE(remove_directory)
 ADD_EXAMPLE(exists)
+ADD_EXAMPLE(is_regular_file)
+ADD_EXAMPLE(is_directory)
+ADD_EXAMPLE(is_symlink)

example/system/example_is_regular_file.f90

@@ -1,14 +1,14 @@
 ! Demonstrate usage of `is_regular_file`
-program example_is_directory
+program example_is_regular_file
   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 
+  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
+end program example_is_regular_file

example/system/example_is_symlink.f90

@@ -1,12 +1,12 @@
 ! Demonstrate usage of `is_symlink`
-program example_is_directory
+program example_is_symlink
   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 
+  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
@@ -17,4 +17,4 @@ program example_is_directory
   else
     print *, "The specified path is not a symlink."
   end if
-end program example_is_directory
+end program example_is_symlink

src/stdlib_system.F90

@@ -1245,8 +1245,9 @@ end function exists
 ! public convenience wrapper to check if path is a symbolic link
 logical function is_symlink(path)
     character(len=*), intent(in) :: path
+    type(state_type) :: err
 
-    is_symlink = exists(path) == fs_type_symlink
+    is_symlink = exists(path, err) == fs_type_symlink
 end function is_symlink
 
 ! checks if path is a regular file.