20010610.f   [plain text]

      DO I = 0, 255
         IF (ICHAR(CHAR(I)) .NE. I) CALL ABORT
      ENDDO
      END