Retrieve error status and message from the class.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(json_file), | intent(inout) | :: | me | |||
| logical(kind=LK), | intent(out), | optional | :: | status_ok | true if there were no errors |
|
| character(kind=CK,len=:), | intent(out), | optional | 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),optional :: status_ok !! true if there were no errors
character(kind=CK,len=:),allocatable,intent(out),optional :: error_msg !! the error message
!! (if there were errors)
#if defined __GFORTRAN__
character(kind=CK,len=:),allocatable :: tmp !! workaround for gfortran bugs
call me%core%check_for_errors(status_ok,tmp)
if (present(error_msg)) error_msg = tmp
#else
call me%core%check_for_errors(status_ok,error_msg)
#endif
end subroutine json_file_check_for_errors