Cross Reference: 20010610.f
xref
: /
openbsd-current
/
gnu
/
usr.bin
/
gcc
/
gcc
/
testsuite
/
g77.f-torture
/
execute
/
20010610.f
Home
History
Annotate
Line#
Navigate
Raw
Download
only in
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/g77.f-torture/execute/
1
DO
I =
0
,
255
2
IF
(
ICHAR
(
CHAR
(I)) .
NE
. I)
CALL
ABORT
3
ENDDO
4
END
5