parquet_emit_error_context Subroutine

public subroutine parquet_emit_error_context(text)

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.

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: text

the context line, printed verbatim.


Source Code

    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