gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_achar.f90

   1 ! Program to test the ACHAR and IACHAR intrinsics
   2 program intrinsic_achar
   3   integer i
   4
   5   i = 32
   6   if (achar(i) .ne. " ") call abort
   7   i = iachar("A")
   8   if ((i .ne. 65) .or. char(i) .ne. "A") call abort
   9 end program