Mercurial > hg > CbC > CbC_gcc

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

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
1 ! { dg-do compile }
2 ! { dg-options "-fdec-intrinsic-ints" }
3 !
4 ! Test B/I/J/K integer intrinsics.
5 !
6 program main
7
8 implicit none
9
10 integer*1 :: ab = 9_1, bb = 3_1, cb
11 integer*2 :: ai = 9_2, bi = 3_2, ci
12 integer*4 :: aj = 9_4, bj = 3_4, cj
13 integer*8 :: ak = 9_8, bk = 3_8, ck
14 integer :: a = 9 , b = 3 , c
15
16 integer*1 :: ib = 9_1, bpos = 3_1
17 integer*2 :: ii = 9_2, ipos = 3_2
18 integer*4 :: ij = 9_4, jpos = 3_4
19 integer*8 :: ik = 9_8, kpos = 3_8
20 integer :: i = 9 , pos = 3
21
22 integer*1 :: ba, bc, bd
23 integer*2 :: ia, ic, id
24 integer*4 :: ja, jb, jc, jd
25 integer*8 :: ka, kb, kc, kd
26
27 logical*1 :: lb
28 logical*2 :: li
29 logical*4 :: lj
30 logical*8 :: lk
31 logical :: l
32
33 real :: r
34
35 lb = bbtest(ib, bpos)
36 li = bitest(ii, ipos)
37 lj = bjtest(ij, jpos)
38 lk = bktest(ik, kpos)
39 l = btest(i , pos)
40
41 lb = bbtest(9_1, 3_1)
42 li = bitest(9_2, 3_2)
43 lj = bjtest(9_4, 3_4)
44 lk = bktest(9_8, 3_8)
45 l = btest(9 , 3 )
46
47 r = floati(ai)
48 r = floatj(aj)
49 r = floatk(ak)
50 r = float (a )
51
52 r = floati(9_2)
53 r = floatj(9_4)
54 r = floatk(9_8)
55 r = float (9 )
56
57 bb = babs(ab)
58 bi = iiabs(ai)
59 bj = jiabs(aj)
60 bk = kiabs(ak)
61 b = iabs(a )
62
63 bb = babs(9_1)
64 bi = iiabs(9_2)
65 bj = jiabs(9_4)
66 bk = kiabs(9_8)
67 b = iabs(9 )
68
69 cb = biand(ab, bb)
70 ci = iiand(ai, bi)
71 cj = jiand(aj, bj)
72 ck = kiand(ak, bk)
73 c = iand(a , b )
74
75 cb = biand(9_1, 3_1)
76 ci = iiand(9_2, 3_2)
77 cj = jiand(9_4, 3_4)
78 ck = kiand(9_8, 3_8)
79 c = iand(9 , 3 )
80
81 cb = bbclr(ib, bpos)
82 ci = iibclr(ii, ipos)
83 cj = jibclr(ij, jpos)
84 ck = kibclr(ik, kpos)
85 c = ibclr(i , pos)
86
87 cb = bbclr(9_1, 3_1)
88 ci = iibclr(9_2, 3_2)
89 cj = jibclr(9_4, 3_4)
90 ck = kibclr(9_8, 3_8)
91 c = ibclr(i , pos)
92
93 cb = bbset(ib, bpos)
94 ci = iibset(ii, ipos)
95 cj = jibset(ij, jpos)
96 ck = kibset(ik, kpos)
97 c = ibset(i , pos)
98
99 cb = bbset(9_1, 3_1)
100 ci = iibset(9_2, 3_2)
101 cj = jibset(9_4, 3_4)
102 ck = kibset(9_8, 3_8)
103 c = ibset(i , pos)
104
105 cb = bieor(ab, bb)
106 ci = iieor(ai, bi)
107 cj = jieor(aj, bj)
108 ck = kieor(ak, bk)
109 c = ieor(a , b )
110
111 cb = bieor(9_1, 3_1)
112 ci = iieor(9_2, 3_2)
113 cj = jieor(9_4, 3_4)
114 ck = kieor(9_8, 3_8)
115 c = ieor(9 , 3 )
116
117 cb = bior(ab, bb)
118 ci = iior(ai, bi)
119 cj = jior(aj, bj)
120 ck = kior(ak, bk)
121 c = ior(a , b )
122
123 cb = bior(9_1, 3_1)
124 ci = iior(9_2, 3_2)
125 cj = jior(9_4, 3_4)
126 ck = kior(9_8, 3_8)
127 c = ior(9 , 3 )
128
129 cb = bmod(ab, bb)
130 ci = imod(ai, bi)
131 cj = jmod(aj, bj)
132 ck = kmod(ak, bk)
133 c = mod(a , b )
134
135 cb = bmod(9_1, 3_1)
136 ci = imod(9_2, 3_2)
137 cj = jmod(9_4, 3_4)
138 ck = kmod(9_8, 3_8)
139 c = mod(9 , 3 )
140
141 ba = bbits(121, 10, 5)
142 call bmvbits(121_1, 2, 3, ba, 1)
143 bc = bshftc(ba, 3, 6)
144 bd = bshft(bc, -3)
145 ba = bnot(bd)
146
147 ia = iibits(357, 10, 5)
148 call imvbits(357_2, 8, 3, ia, 1)
149 ic = iishftc(ia, 3, 6)
150 id = iishft(ic, -3)
151 ia = inot(id)
152
153 ja = jibits(357, 10, 5)
154 call jmvbits(357_4, 8, 3, ja, 1)
155 jc = jishftc(ja, 3, 6)
156 jd = jishft(jc, -3)
157 ja = jnot(jd)
158
159 ka = kibits(357_8, 10_8, 5_8)
160 call kmvbits(357_8, 8_8, 3_8, ka, 1_8)
161 kc = kishftc(ka, 3_8, 6_8)
162 kd = kishft(kc, -3_8)
163 ka = knot(kd)
164
165 end program