gcc/testsuite/gfortran.dg/achar_1.f90 - gcc - Git at Google

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