comparison gcc/testsuite/gfortran.dg/achar_1.f90 @ 111:04ced10e8804

gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children 84e7813d76e9
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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') call abort
8 end program bug6