CALL DIAGNOSTICS_GET_DIAG( 1, undefRL,
CALL DIAGNOSTICS_GET_DIAG( 0, undefRL,
CALL DIAGNOSTICS_GET_DIAG(
SUBROUTINE DIAGNOSTICS_GET_DIAG(