tests/ulp_tests.mac

   1 unit_in_last_place(0) ;
   2 1 ;
   3
   4 unit_in_last_place(-534234) ;
   5 1 ;
   6
   7 unit_in_last_place(2/3) ;
   8 0 ;
   9
  10 unit_in_last_place(0.0b0) ;
  11 0.0b0 ;
  12
  13 unit_in_last_place(0.0) - least_positive_float ;
  14 0.0;
  15
  16 unit_in_last_place(2*unit_in_last_place(0.0)) - least_positive_float ;
  17 0.0;
  18
  19 unit_in_last_place(unit_in_last_place(0.0)*(2^53+1)) - least_positive_float ;
  20 0.0;
  21
  22 unit_in_last_place(unit_in_last_place(0.0)*(2^53+2)) - 2*least_positive_float ;
  23 0.0;
  24
  25 2*unit_in_last_place(float((0+2^52)/2^1073)) - unit_in_last_place(float((1+2^52)/2^1073)) ;
  26 0.0 ;
  27
  28 unit_in_last_place(1.0)-unit_in_last_place(.9999) ;
  29 0.0 ;
  30
  31 unit_in_last_place(1.0001)-2*unit_in_last_place(1.0000) ;
  32 0.0 ;
  33
  34 unit_in_last_place(1.0b0)-unit_in_last_place(.9999b0) ;
  35 0.0b0 ;
  36
  37 unit_in_last_place(1.0001b0)-2*unit_in_last_place(1.0000b0) ;
  38 0.0b0 ;
  39
  40 2.0^1023*(2.0-unit_in_last_place(2.0)) - largest_float ;
  41 0.0 ;
  42
  43 unit_in_last_place(-1.0)-unit_in_last_place(1.0) ;
  44 0.0 ;
  45
  46 is_power_of_two(0) ;
  47 false ;
  48
  49 is_power_of_two(1) ;
  50 true ;
  51
  52 is_power_of_two(1048576) ;
  53 true ;
  54
  55 is_power_of_two(1048575) ;
  56 false ;
  57
  58 is_power_of_two(1048577) ;
  59 false ;
  60
  61 is_power_of_two(1/256) ;
  62 true ;
  63
  64 is_power_of_two(1/384) ;
  65 false ;
  66
  67 is_power_of_two(0.0e0) ;
  68 false ;
  69
  70 is_power_of_two(1.0e0) ;
  71 true ;
  72
  73 is_power_of_two(1048576.0e0) ;
  74 true ;
  75
  76 is_power_of_two(1048575.0e0) ;
  77 false ;
  78
  79 is_power_of_two(1048577.0e0) ;
  80 false ;
  81
  82 is_power_of_two(1/256.0e0) ;
  83 true ;
  84
  85 is_power_of_two(0.0b0) ;
  86 false ;
  87
  88 is_power_of_two(1.0b0) ;
  89 true ;
  90
  91 is_power_of_two(1048576.0b0) ;
  92 true ;
  93
  94 is_power_of_two(1048575.0b0) ;
  95 false ;
  96
  97 is_power_of_two(1048577.0b0) ;
  98 false ;
  99
 100 is_power_of_two(1/256.0b0) ;
 101 true ;
 102