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) STOP 1
   7 if (ichar (char (255)) .ne. 255) STOP 2
   8 if (ichar (char (127)) .ne. 127) STOP 3
   9
  10 i = 0
  11 if (ichar (char (i)) .ne. i) STOP 4
  12 i = 255
  13 if (ichar (char (i)) .ne. i) STOP 5
  14 i = 127
  15 if (ichar (char (i)) .ne. i) STOP 6
  16 end