gcc/testsuite/g++.dg/cdce3.C

   1 /* { dg-do run } */
   2 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -DNO_GNU_EXTENSION -lm" { target "*-*-darwin*" } } */
   3 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details  -lm" { target { {! "*-*-darwin*" } && large_long_double } } }*/
   4 /* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -DNO_LONG_DOUBLE -lm" { target {! large_long_double } } } */
   5 /* { dg-final { scan-tree-dump  "cdce3.C:89: note: function call is shrink-wrapped into error conditions\." "cdce" { target {! "*-*-darwin*" } } } }*/
   6 /* { dg-final { scan-tree-dump  "cdce3.C:90: note: function call is shrink-wrapped into error conditions\." "cdce" { target {! "*-*-darwin*" } } } }*/
   7 /* { dg-final { scan-tree-dump  "cdce3.C:92: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
   8 /* { dg-final { scan-tree-dump  "cdce3.C:93: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
   9 /* { dg-final { scan-tree-dump  "cdce3.C:94: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  10 /* { dg-final { scan-tree-dump  "cdce3.C:95: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  11 /* { dg-final { scan-tree-dump  "cdce3.C:96: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  12 /* { dg-final { scan-tree-dump  "cdce3.C:97: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  13 /* { dg-final { scan-tree-dump  "cdce3.C:98: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  14 /* { dg-final { scan-tree-dump  "cdce3.C:99: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  15 /* { dg-final { scan-tree-dump  "cdce3.C:100: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  16 /* { dg-final { scan-tree-dump  "cdce3.C:101: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  17 /* { dg-final { scan-tree-dump  "cdce3.C:102: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  18 /* { dg-final { scan-tree-dump  "cdce3.C:103: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  19 /* { dg-final { scan-tree-dump  "cdce3.C:104: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  20 /* { dg-final { scan-tree-dump  "cdce3.C:105: note: function call is shrink-wrapped into error conditions\." "cdce" } }*/
  21 /* { dg-final { cleanup-tree-dump "cdce" } } */
  22 #include <stdlib.h>
  23 #include <math.h>
  24 #ifdef DEBUG
  25 #include <stdio.h>
  26 #endif
  27 #include <errno.h>
  28 typedef void (*FP) (int xp);
  29 #define NI __attribute__((noinline))
  30
  31 #if defined(NO_LONG_DOUBLE)
  32 double result;
  33
  34 #define DEF_MATH_FUNC(prefix, name) NI void prefix##name##f (int x) \
  35 { \
  36   float yy = name##f ((float) x); \
  37   STORE_RESULT; \
  38 } \
  39 NI void prefix##name (int x) \
  40 { \
  41   double yy = name ((double)x); \
  42   STORE_RESULT; \
  43 }
  44 #else
  45 typedef long double ldouble;
  46 ldouble result;
  47
  48 #define DEF_MATH_FUNC(prefix, name) NI void prefix##name##f (int x) \
  49 { \
  50   float yy = name##f ((float) x); \
  51   STORE_RESULT; \
  52 } \
  53 NI void prefix##name (int x) \
  54 { \
  55   double yy = name ((double)x); \
  56   STORE_RESULT; \
  57 } \
  58 NI void prefix##name##l (int x) \
  59 { \
  60   ldouble yy = name##l ((ldouble)x); \
  61   STORE_RESULT; \
  62 }
  63 #endif
  64
  65 #undef STORE_RESULT
  66 #define STORE_RESULT result = yy
  67 #if !defined(NO_GNU_EXTENSION)
  68 DEF_MATH_FUNC (m,pow10)
  69 DEF_MATH_FUNC (m,exp10)
  70 #endif
  71 DEF_MATH_FUNC (m,exp2)
  72 DEF_MATH_FUNC (m,exp)
  73 DEF_MATH_FUNC (m,expm1)
  74 DEF_MATH_FUNC (m,cosh)
  75 DEF_MATH_FUNC (m,sinh)
  76 DEF_MATH_FUNC (m,acos)
  77 DEF_MATH_FUNC (m,asin)
  78 DEF_MATH_FUNC (m,acosh)
  79 DEF_MATH_FUNC (m,atanh)
  80 DEF_MATH_FUNC (m,log)
  81 DEF_MATH_FUNC (m,log2)
  82 DEF_MATH_FUNC (m,log10)
  83 DEF_MATH_FUNC (m,log1p)
  84 DEF_MATH_FUNC (m,sqrt)
  85
  86 #undef STORE_RESULT
  87 #define STORE_RESULT
  88 #if !defined(NO_GNU_EXTENSION)
  89 DEF_MATH_FUNC (o,pow10)
  90 DEF_MATH_FUNC (o,exp10)
  91 #endif
  92 DEF_MATH_FUNC (o,exp2)
  93 DEF_MATH_FUNC (o,exp)
  94 DEF_MATH_FUNC (o,expm1)
  95 DEF_MATH_FUNC (o,cosh)
  96 DEF_MATH_FUNC (o,sinh)
  97 DEF_MATH_FUNC (o,acos)
  98 DEF_MATH_FUNC (o,asin)
  99 DEF_MATH_FUNC (o,acosh)
 100 DEF_MATH_FUNC (o,atanh)
 101 DEF_MATH_FUNC (o,log)
 102 DEF_MATH_FUNC (o,log2)
 103 DEF_MATH_FUNC (o,log10)
 104 DEF_MATH_FUNC (o,log1p)
 105 DEF_MATH_FUNC (o,sqrt)
 106
 107 #if defined(NO_LONG_DOUBLE)
 108 #define INIT_MATH_FUNC(prefix, name, lb, ub) { prefix##name##f, #name "f", 0, 0, lb, ub }, \
 109 { prefix##name, #name, 0, 0, lb, ub },
 110 #else
 111 #define INIT_MATH_FUNC(prefix, name, lb, ub) { prefix##name##f, #name "f", 0, 0, lb, ub }, \
 112 { prefix##name, #name, 0, 0, lb, ub }, \
 113 { prefix##name##l, #name "l" , 0, 0, lb, ub },
 114 #endif
 115
 116 struct MathFuncInfo
 117 {
 118   FP math_func;
 119   const char*  name;
 120   int lb;
 121   int ub;
 122   bool has_lb;
 123   bool has_ub;
 124 } math_func_arr[] = {
 125 #if !defined(NO_GNU_EXTENSION)
 126   INIT_MATH_FUNC (m,pow10, false, true)
 127   INIT_MATH_FUNC (m,exp10, false, true)
 128 #endif
 129   INIT_MATH_FUNC (m,exp2, false, true)
 130   INIT_MATH_FUNC (m,expm1, false, true)
 131   INIT_MATH_FUNC (m,exp, false, true)
 132   INIT_MATH_FUNC (m,cosh, true, true)
 133   INIT_MATH_FUNC (m,sinh, true, true)
 134   INIT_MATH_FUNC (m,acos, true, true)
 135   INIT_MATH_FUNC (m,asin, true, true)
 136   INIT_MATH_FUNC (m,acosh, true, false)
 137   INIT_MATH_FUNC (m,atanh, true, true)
 138   INIT_MATH_FUNC (m,log10, true, false)
 139   INIT_MATH_FUNC (m,log, true, false)
 140   INIT_MATH_FUNC (m,log2, true, false)
 141   INIT_MATH_FUNC (m,log1p, true, false)
 142   INIT_MATH_FUNC (m,sqrt, true, false)
 143   { 0, 0,  0, 0, 0, 0} };
 144
 145 MathFuncInfo opt_math_func_arr[] =
 146 {
 147 #if !defined(NO_GNU_EXTENSION)
 148   INIT_MATH_FUNC (o,pow10, false, true)
 149   INIT_MATH_FUNC (o,exp10, false, true)
 150 #endif
 151   INIT_MATH_FUNC (o,exp2, false, true)
 152   INIT_MATH_FUNC (o,expm1, false, true)
 153   INIT_MATH_FUNC (o,exp, false, true)
 154   INIT_MATH_FUNC (o,cosh, true, true)
 155   INIT_MATH_FUNC (o,sinh, true, true)
 156   INIT_MATH_FUNC (o,acos, true, true)
 157   INIT_MATH_FUNC (o,asin, true, true)
 158   INIT_MATH_FUNC (o,acosh, true, false)
 159   INIT_MATH_FUNC (o,atanh, true, true)
 160   INIT_MATH_FUNC (o,log10, true, false)
 161   INIT_MATH_FUNC (o,log, true, false)
 162   INIT_MATH_FUNC (o,log2, true, false)
 163   INIT_MATH_FUNC (o,log1p, true, false)
 164   INIT_MATH_FUNC (o,sqrt, true, false)
 165   { 0, 0,  0, 0, 0, 0} };
 166
 167 int test (MathFuncInfo* math_func_infos)
 168 {
 169   int i = 0;
 170   int te = 0;
 171
 172   for (i = 0; math_func_infos[i].math_func; i++)
 173     {
 174       MathFuncInfo& info = math_func_infos[i];
 175       int j;
 176       if (info.has_lb)
 177         {
 178           for (j = 0; j > -500000; j--)
 179             {
 180
 181               errno = 0;
 182               info.math_func (j);
 183               if (errno != 0)
 184                 {
 185                   te++;
 186                   info.lb = j ;
 187                   break;
 188                 }
 189             }
 190         }
 191       if (info.has_ub)
 192         {
 193           for (j = 0; j < 500000; j++)
 194             {
 195               errno = 0;
 196               info.math_func (j);
 197               if (errno != 0)
 198               {
 199                 te++;
 200                 info.ub = j ;
 201                 break;
 202               }
 203             }
 204         }
 205     }
 206   return te;
 207 }
 208
 209 int main()
 210 {
 211    int te1, te2;
 212
 213    te1 = test (&math_func_arr[0]);
 214    te2 = test (&opt_math_func_arr[0]);
 215
 216    // Now examine the result
 217    int i = 0;
 218    int errcnt = 0;
 219    for (i = 0; math_func_arr[i].math_func; i++)
 220    {
 221       MathFuncInfo& info = math_func_arr[i];
 222       MathFuncInfo& opt_info = opt_math_func_arr[i];
 223 #ifdef DEBUG
 224       fprintf (stderr," %s: lb = %d, ub = %d: lb_opt = %d, ub_opt = %d\n",
 225         info.name, info.lb, info.ub, opt_info.lb, opt_info.ub);
 226 #endif
 227       if (info.lb != opt_info.lb) errcnt ++;
 228       if (info.ub != opt_info.ub) errcnt ++;
 229    }
 230    if (errcnt) abort();
 231    return 0;
 232 }