20010610.f
[
plain text
]
c { dg-do run }
DO
I = 0, 255
IF
(ICHAR(CHAR(I))
.NE.
I)
CALL
ABORT ENDDO
END