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