added operators ==, /=

Author: wassup05

doc/specs/stdlib_system.md

@@ -30,6 +30,10 @@ The following convenience type-bound procedures are provided:
 - `error()` returns a `logical` flag that is `.true.` in case of an error (`code /= 0`).
 - `handle([err])` assigns `err` to the calling variable or stops the program by calling `error stop` 
 
+### Overloaded Operators
+
+operators `==`, `/=` are provided for comparing `type(fs_error)` variables and `integer` codes.
+
 ### Example
 
 ```

example/system/example_fs_error.f90

@@ -1,5 +1,5 @@
 program example_fs_error
-    use stdlib_system, only: fs_error
+    use stdlib_system, only: fs_error, operator(/=)
     implicit none
 
     type(fs_error) :: err, err0
@@ -11,16 +11,16 @@ program example_fs_error
 
     ! Check success
     print *, 'Check error: ',err%error()
-    print *, 'Check flag : ',err%code /= 0
+    print *, 'Check flag : ',err /= 0
 
     call err%handle(err0)
 
-    ! Print flag
+    ! Print message
     print *, err0%print()
 
     ! Check success
     print *, 'Check error: ',err0%error()
-    print *, 'Check flag : ',err0%code /= 0
+    print *, 'Check flag : ',err0 /= 0
 
     ! call err%handle() ! stops the program
 

src/stdlib_system.F90

@@ -224,6 +224,19 @@ module stdlib_system
 
 end type fs_error
 
+interface operator(==)
+    module procedure code_eq_err
+    module procedure err_eq_code
+end interface operator(==)
+
+interface operator(/=)
+    module procedure code_neq_err
+    module procedure err_neq_code
+end interface operator(/=)
+
+public :: operator(==)
+public :: operator(/=)
+
 interface runasync
     !! version: experimental
     !!
@@ -845,4 +858,28 @@ pure subroutine fs_error_handling(err,err_out)
     end if
 end subroutine fs_error_handling
 
+pure logical function code_eq_err(code, err)
+    integer, intent(in) :: code
+    type(fs_error), intent(in) :: err
+    code_eq_err = code == err%code
+end function code_eq_err
+
+pure logical function err_eq_code(err, code)
+    integer, intent(in):: code
+    type(fs_error), intent(in) :: err
+    err_eq_code = code == err%code
+end function err_eq_code
+
+pure logical function code_neq_err(code, err)
+    integer, intent(in) :: code
+    type(fs_error), intent(in) :: err
+    code_neq_err = code /= err%code
+end function code_neq_err
+
+pure logical function err_neq_code(err, code)
+    integer, intent(in) :: code
+    type(fs_error), intent(in) :: err
+    err_neq_code = code /= err%code
+end function err_neq_code
+
 end module stdlib_system