9 lines
183 B
Fortran
9 lines
183 B
Fortran
|
! { 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') call abort
|
||
|
end program bug6
|