Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/achar_6.F90 @ 131:84e7813d76e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc-8.2
author mir3636
date Thu, 25 Oct 2018 07:37:49 +0900
parents 04ced10e8804
children
comparison
equal deleted inserted replaced
111:04ced10e8804 131:84e7813d76e9
24 subroutine test (s1, s4, i, i1, i2, i3, i4) 24 subroutine test (s1, s4, i, i1, i2, i3, i4)
25 character(kind=1,len=1) :: s1 25 character(kind=1,len=1) :: s1
26 character(kind=4,len=1) :: s4 26 character(kind=4,len=1) :: s4
27 integer :: i, i1, i2, i3, i4 27 integer :: i, i1, i2, i3, i4
28 28
29 if (i /= i1) call abort 29 if (i /= i1) STOP 1
30 if (i /= i2) call abort 30 if (i /= i2) STOP 2
31 if (i /= i3) call abort 31 if (i /= i3) STOP 3
32 if (i /= i4) call abort 32 if (i /= i4) STOP 4
33 33
34 if (iachar (s1) /= i) call abort 34 if (iachar (s1) /= i) STOP 5
35 if (iachar (s4) /= i) call abort 35 if (iachar (s4) /= i) STOP 6
36 36
37 if (ichar (s1) /= i) call abort 37 if (ichar (s1) /= i) STOP 7
38 if (ichar (s4) /= i) call abort 38 if (ichar (s4) /= i) STOP 8
39 39
40 if (achar(i, kind=1) /= s1) call abort 40 if (achar(i, kind=1) /= s1) STOP 9
41 if (achar(i, kind=4) /= s4) call abort 41 if (achar(i, kind=4) /= s4) STOP 10
42 42
43 if (char(i, kind=1) /= s1) call abort 43 if (char(i, kind=1) /= s1) STOP 11
44 if (char(i, kind=4) /= s4) call abort 44 if (char(i, kind=4) /= s4) STOP 12
45 45
46 if (iachar(achar(i, kind=1)) /= i) call abort 46 if (iachar(achar(i, kind=1)) /= i) STOP 13
47 if (iachar(achar(i, kind=4)) /= i) call abort 47 if (iachar(achar(i, kind=4)) /= i) STOP 14
48 48
49 if (ichar(char(i, kind=1)) /= i) call abort 49 if (ichar(char(i, kind=1)) /= i) STOP 15
50 if (ichar(char(i, kind=4)) /= i) call abort 50 if (ichar(char(i, kind=4)) /= i) STOP 16
51 51
52 end subroutine test 52 end subroutine test
53 53
54 subroutine test_bis (s4, i, i2, i4) 54 subroutine test_bis (s4, i, i2, i4)
55 character(kind=4,len=1) :: s4 55 character(kind=4,len=1) :: s4
56 integer :: i, i2, i4 56 integer :: i, i2, i4
57 57
58 if (i /= i2) call abort 58 if (i /= i2) STOP 17
59 if (i /= i4) call abort 59 if (i /= i4) STOP 18
60 60
61 if (iachar (s4) /= i) call abort 61 if (iachar (s4) /= i) STOP 19
62 if (ichar (s4) /= i) call abort 62 if (ichar (s4) /= i) STOP 20
63 if (achar(i, kind=4) /= s4) call abort 63 if (achar(i, kind=4) /= s4) STOP 21
64 if (char(i, kind=4) /= s4) call abort 64 if (char(i, kind=4) /= s4) STOP 22
65 if (iachar(achar(i, kind=4)) /= i) call abort 65 if (iachar(achar(i, kind=4)) /= i) STOP 23
66 if (ichar(char(i, kind=4)) /= i) call abort 66 if (ichar(char(i, kind=4)) /= i) STOP 24
67 67
68 end subroutine test_bis 68 end subroutine test_bis
69 69
70 end 70 end