1! { dg-do run } 2! Test char and ichar intrinsic functions 3Program test 4integer i 5 6if (ichar (char (0)) .ne. 0) call abort () 7if (ichar (char (255)) .ne. 255) call abort () 8if (ichar (char (127)) .ne. 127) call abort () 9 10i = 0 11if (ichar (char (i)) .ne. i) call abort () 12i = 255 13if (ichar (char (i)) .ne. i) call abort () 14i = 127 15if (ichar (char (i)) .ne. i) call abort () 16end 17