gcc/testsuite/gfortran.dg/ichar_2.f90

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