1! { dg-do run } 2! { dg-options "-fbackslash" } 3 4#define TEST(x,y,z) \ 5 call test (x, y, z, iachar(x), iachar(y), ichar(x), ichar(y)) 6 7 TEST("a", 4_"a", 97) 8 TEST("\0", 4_"\0", 0) 9 TEST("\b", 4_"\b", 8) 10 TEST("\x80", 4_"\x80", int(z'80')) 11 TEST("\xFF", 4_"\xFF", int(z'FF')) 12 13#define TEST2(y,z) \ 14 call test_bis (y, z, iachar(y), ichar(y)) 15 16 TEST2(4_"\u0100", int(z'0100')) 17 TEST2(4_"\ufe00", int(z'fe00')) 18 TEST2(4_"\u106a", int(z'106a')) 19 TEST2(4_"\uff00", int(z'ff00')) 20 TEST2(4_"\uffff", int(z'ffff')) 21 22contains 23 24subroutine test (s1, s4, i, i1, i2, i3, i4) 25 character(kind=1,len=1) :: s1 26 character(kind=4,len=1) :: s4 27 integer :: i, i1, i2, i3, i4 28 29 if (i /= i1) call abort 30 if (i /= i2) call abort 31 if (i /= i3) call abort 32 if (i /= i4) call abort 33 34 if (iachar (s1) /= i) call abort 35 if (iachar (s4) /= i) call abort 36 37 if (ichar (s1) /= i) call abort 38 if (ichar (s4) /= i) call abort 39 40 if (achar(i, kind=1) /= s1) call abort 41 if (achar(i, kind=4) /= s4) call abort 42 43 if (char(i, kind=1) /= s1) call abort 44 if (char(i, kind=4) /= s4) call abort 45 46 if (iachar(achar(i, kind=1)) /= i) call abort 47 if (iachar(achar(i, kind=4)) /= i) call abort 48 49 if (ichar(char(i, kind=1)) /= i) call abort 50 if (ichar(char(i, kind=4)) /= i) call abort 51 52end subroutine test 53 54subroutine test_bis (s4, i, i2, i4) 55 character(kind=4,len=1) :: s4 56 integer :: i, i2, i4 57 58 if (i /= i2) call abort 59 if (i /= i4) call abort 60 61 if (iachar (s4) /= i) call abort 62 if (ichar (s4) /= i) call abort 63 if (achar(i, kind=4) /= s4) call abort 64 if (char(i, kind=4) /= s4) call abort 65 if (iachar(achar(i, kind=4)) /= i) call abort 66 if (ichar(char(i, kind=4)) /= i) call abort 67 68end subroutine test_bis 69 70end 71