111
|
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
|
|
22 contains
|
|
23
|
|
24 subroutine 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
|
131
|
29 if (i /= i1) STOP 1
|
|
30 if (i /= i2) STOP 2
|
|
31 if (i /= i3) STOP 3
|
|
32 if (i /= i4) STOP 4
|
111
|
33
|
131
|
34 if (iachar (s1) /= i) STOP 5
|
|
35 if (iachar (s4) /= i) STOP 6
|
111
|
36
|
131
|
37 if (ichar (s1) /= i) STOP 7
|
|
38 if (ichar (s4) /= i) STOP 8
|
111
|
39
|
131
|
40 if (achar(i, kind=1) /= s1) STOP 9
|
|
41 if (achar(i, kind=4) /= s4) STOP 10
|
111
|
42
|
131
|
43 if (char(i, kind=1) /= s1) STOP 11
|
|
44 if (char(i, kind=4) /= s4) STOP 12
|
111
|
45
|
131
|
46 if (iachar(achar(i, kind=1)) /= i) STOP 13
|
|
47 if (iachar(achar(i, kind=4)) /= i) STOP 14
|
111
|
48
|
131
|
49 if (ichar(char(i, kind=1)) /= i) STOP 15
|
|
50 if (ichar(char(i, kind=4)) /= i) STOP 16
|
111
|
51
|
|
52 end subroutine test
|
|
53
|
|
54 subroutine test_bis (s4, i, i2, i4)
|
|
55 character(kind=4,len=1) :: s4
|
|
56 integer :: i, i2, i4
|
|
57
|
131
|
58 if (i /= i2) STOP 17
|
|
59 if (i /= i4) STOP 18
|
111
|
60
|
131
|
61 if (iachar (s4) /= i) STOP 19
|
|
62 if (ichar (s4) /= i) STOP 20
|
|
63 if (achar(i, kind=4) /= s4) STOP 21
|
|
64 if (char(i, kind=4) /= s4) STOP 22
|
|
65 if (iachar(achar(i, kind=4)) /= i) STOP 23
|
|
66 if (ichar(char(i, kind=4)) /= i) STOP 24
|
111
|
67
|
|
68 end subroutine test_bis
|
|
69
|
|
70 end
|