! { dg-do run } ! Test char and ichar intrinsic functions Program test integer i if (ichar (char (0)) .ne. 0) call abort () if (ichar (char (255)) .ne. 255) call abort () if (ichar (char (127)) .ne. 127) call abort () i = 0 if (ichar (char (i)) .ne. i) call abort () i = 255 if (ichar (char (i)) .ne. i) call abort () i = 127 if (ichar (char (i)) .ne. i) call abort () end