1! { dg-do run } 2! achar() should work with all supported integer kinds. 3program bug6 4 integer(1) :: i = 65 5 character a 6 a = achar(i) 7 if (a /= 'A') STOP 1 8end program bug6 9