gcc/testsuite/gfortran.dg/dec_intrinsic_ints.f90

   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