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 ()