2 ! Test char and ichar intrinsic functions
6 if (ichar (char (0)) .ne
. 0) call abort ()
7 if (ichar (char (255)) .ne
. 255) call abort ()
8 if (ichar (char (127)) .ne
. 127) call abort ()
11 if (ichar (char (i
)) .ne
. i
) call abort ()
13 if (ichar (char (i
)) .ne
. i
) call abort ()
15 if (ichar (char (i
)) .ne
. i
) call abort ()