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