added example

Author: wassup05

example/system/CMakeLists.txt

@@ -16,6 +16,7 @@ ADD_EXAMPLE(path_join)
 ADD_EXAMPLE(path_split_path)
 ADD_EXAMPLE(path_base_name)
 ADD_EXAMPLE(path_dir_name)
+ADD_EXAMPLE(path_abs)
 ADD_EXAMPLE(make_directory)
 ADD_EXAMPLE(remove_directory)
 ADD_EXAMPLE(cwd)

example/system/example_path_abs.f90

@@ -0,0 +1,29 @@
+! Illustrate the usage of `abs_path`, `is_abs`
+program example_path_abs
+    use stdlib_system, only: abs_path, is_abs
+    use stdlib_error, only: state_type
+    implicit none
+
+    character(*), parameter :: path = "path/to/check"
+    character(:), allocatable :: absolute_path
+    type(state_type) :: err
+
+    if (is_abs(path)) then
+        print *, "Path is absolute!"
+        ! terminate the program since path is already absolute
+        stop
+    else
+        print *, "Path is not absolute!"
+    end if
+
+    ! get the absolute path
+    absolute_path = abs_path(path, err)
+
+    if (err%error()) then
+        ! there was an error! print it
+        print *, "error converting to absolute path: " // err%print()
+    else
+        print *, "absolute path => " // absolute_path
+    end if
+end program example_path_abs
+