OFF error object definition and implementation.
Error object class.
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
character(len=:), | public, | allocatable | :: | message | Error message. |
||
integer(kind=I4P), | public | :: | status | = | 0_I4P | Error status. |
generic, public :: assignment(=) => err_assign_err | Overload |
procedure, public, pass(self) :: check | Check error status. |
procedure, public, pass(self) :: destroy | Destroy error. |
procedure, public, pass(lhs) :: err_assign_err | Operator |
procedure, public, pass(self) :: initialize | Initialize error. |
Check error status.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(error_object), | intent(inout) | :: | self | Error object. |
||
character(len=*), | intent(in), | optional | :: | message | Error message. |
|
logical, | intent(in), | optional | :: | is_severe | Enable severe error. |
Destroy error.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(error_object), | intent(inout) | :: | self | Error object. |
Operator =
.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(error_object), | intent(inout) | :: | lhs | Left hand side. |
||
type(error_object), | intent(in) | :: | rhs | Right hand side. |
Initialize error.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(error_object), | intent(inout) | :: | self | Error object. |