RosettaCodeData/Task/Character-codes/Fortran/character-codes.f

3 lines
66 B
FortranFixed
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
WRITE(*,*) ACHAR(97), IACHAR("a")
WRITE(*,*) CHAR(97), ICHAR("a")