added example

Author: wassup05

example/system/CMakeLists.txt

@@ -11,3 +11,4 @@ ADD_EXAMPLE(process_5)
 ADD_EXAMPLE(process_6)
 ADD_EXAMPLE(process_7)
 ADD_EXAMPLE(sleep)
+ADD_EXAMPLE(fs_error)

example/system/example_fs_error.f90

@@ -0,0 +1,27 @@
+program example_fs_error
+    use stdlib_system, only: fs_error
+    implicit none
+
+    type(fs_error) :: err, err0
+
+    err = fs_error(1, 'Operation not permitted') ! EPERM
+
+    ! Print message
+    print *, err%print()
+
+    ! Check success
+    print *, 'Check error: ',err%error()
+    print *, 'Check flag : ',err%code /= 0
+
+    call err%handle(err0)
+
+    ! Print flag
+    print *, err0%print()
+
+    ! Check success
+    print *, 'Check error: ',err0%error()
+    print *, 'Check flag : ',err0%code /= 0
+
+    ! call err%handle() ! stops the program
+
+end program example_fs_error