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