gcc/testsuite/gfortran.dg/ishft_1.f90

   1 ! { dg-do run }
   2 ! verifies basic functioning of the ishft and ishftc intrinsics
   3 if (ishft (1_1, 0) /= 1) STOP 1
   4 if (ishft (1_1, 1) /= 2) STOP 2
   5 if (ishft (3_1, 1) /= 6) STOP 3
   6 if (ishft (-1_1, 1) /= -2) STOP 4
   7 if (ishft (-1_1, -1) /= 127) STOP 5
   8 if (ishft (96_1, 2) /= -128) STOP 6
   9
  10 if (ishft (1_2, 0) /= 1) STOP 7
  11 if (ishft (1_2, 1) /= 2) STOP 8
  12 if (ishft (3_2, 1) /= 6) STOP 9
  13 if (ishft (-1_2, 1) /= -2) STOP 10
  14 if (ishft (-1_2, -1) /= 32767) STOP 11
  15 if (ishft (16384_2 + 8192_2, 2) /= -32768_4) STOP 12
  16
  17 if (ishft (1_4, 0) /= 1) STOP 13
  18 if (ishft (1_4, 1) /= 2) STOP 14
  19 if (ishft (3_4, 1) /= 6) STOP 15
  20 if (ishft (-1_4, 1) /= -2) STOP 16
  21 if (ishft (-1_4, -1) /= 2147483647) STOP 17
  22 if (ishft (1073741824_4 + 536870912_4, 2) /= -2147483648_8) STOP 18
  23
  24 if (ishft (1_8, 0) /= 1) STOP 19
  25 if (ishft (1_8, 1) /= 2) STOP 20
  26 if (ishft (3_8, 1) /= 6) STOP 21
  27 if (ishft (-1_8, 1) /= -2) STOP 22
  28
  29 if (ishftc (1_1, 0) /= 1) STOP 24
  30 if (ishftc (1_1, 1) /= 2) STOP 25
  31 if (ishftc (3_1, 1) /= 6) STOP 26
  32 if (ishftc (-1_1, 1) /= -1) STOP 27
  33 if (ishftc (-1_1, -1) /= -1) STOP 28
  34 if (ishftc (ishftc (96_1, 2), -2) /= 96) STOP 29
  35
  36 if (ishftc (1_2, 0) /= 1) STOP 30
  37 if (ishftc (1_2, 1) /= 2) STOP 31
  38 if (ishftc (3_2, 1) /= 6) STOP 32
  39 if (ishftc (-1_2, 1) /= -1) STOP 33
  40 if (ishftc (-1_2, -1) /= -1) STOP 34
  41 if (ishftc (ishftc (25000_2, 2), -2) /= 25000) STOP 35
  42
  43 if (ishftc (1_4, 0) /= 1) STOP 36
  44 if (ishftc (1_4, 1) /= 2) STOP 37
  45 if (ishftc (3_4, 1) /= 6) STOP 38
  46 if (ishftc (-1_4, 1) /= -1) STOP 39
  47 if (ishftc (-1_4, -1) /= -1) STOP 40
  48 if (ishftc (ishftc (1325876_4, 2), -2) /= 1325876) STOP 41
  49
  50 if (ishftc (1_8, 0) /= 1) STOP 42
  51 if (ishftc (1_8, 1) /= 2) STOP 43
  52 if (ishftc (3_8, 1) /= 6) STOP 44
  53 if (ishftc (-1_8, 1) /= -1) STOP 45
  54 if (ishftc (-1_8, -1) /= -1) STOP 46
  55 if (ishftc (ishftc (1325876_8, 2), -2) /= 1325876) STOP 47
  56 end
  57
  58