      PROGRAM TBSLSH
C        to test the compilation of the backslash character: '\'
C
#pragma c_style_esc
      CALL PRT('ONE\0')
      PRINT *,' should be "ONE", followed by null'
      PRINT *
#pragma no_c_style_esc
      CALL PRT('\ char')
      PRINT *,'should be "\ char"'
      STOP
      END
C
      SUBROUTINE PRT(STRING)
      CHARACTER *(*) STRING
      CHARACTER *1 C
      DO 10 I=1,LEN(STRING)
        C = STRING(I:I)
        PRINT 101,C,ICHAR(C)
  101   FORMAT(1X,A1,1X,Z2)
   10 CONTINUE
      RETURN
      END
