Retrieve error status and message from the class.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(json_file), | intent(inout) | :: | me | |||
| logical(kind=LK), | intent(out) | :: | status_ok | true if there were no errors |
||
| character(kind=CK,len=:), | intent(out), | allocatable | :: | error_msg | the error message (if there were errors) |
subroutine json_file_check_for_errors(me,status_ok,error_msg)
implicit none
class(json_file),intent(inout) :: me
logical(LK),intent(out) :: status_ok !! true if there were no errors
character(kind=CK,len=:),allocatable,intent(out) :: error_msg !! the error message (if there were errors)
call me%core%check_for_errors(status_ok,error_msg)
end subroutine json_file_check_for_errors