?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
PR inline-asm/84742
[official-gcc.git] / gcc / testsuite / gfortran.dg / achar_1.f90
blob6b3073b17a7eddb0e13504891669c737e3822bb1
1 ! { dg-do run }
2 ! achar() should work with all supported integer kinds.
3 program bug6
4 integer(1) :: i = 65
5 character a
6 a = achar(i)
7 if (a /= 'A') STOP 1
8 end program bug6
Mirror of the offical gcc git repository hosted at gcc.gnu.org