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. |