Emits one line of context belonging to an error that is about to abort.
Never suppressed and never redirected. These lines carry what the abort message
deliberately leaves out -- the output filename, the schema name -- so silencing them would
turn a diagnosable failure into one that names nothing. They stay on standard output, where
they are today, rather than following message_stream: they belong to the error path, and
moving them would change what an existing program sees for no gain.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| character(len=*), | intent(in) | :: | text |
the context line, printed verbatim. |
subroutine parquet_emit_error_context(text) character(len=*), intent(in) :: text !! the context line, printed verbatim. write (output_unit, '(a)') text end subroutine parquet_emit_error_context