[thirdparty/gcc.git] / gcc / testsuite / g++.dg / cdce3.C

/* { dg-do run } */
/* { dg-require-effective-target c99_runtime } */
/* { dg-options "-O2 -fmath-errno -fdump-tree-cdce-details -lm" } */
/* { dg-additional-options "-DLARGE_LONG_DOUBLE" { target large_long_double } } */
/* { dg-additional-options "-DGNU_EXTENSION" { target pow10 } } */
/* { dg-add-options ieee } */
/* { dg-final { scan-tree-dump  "cdce3.C:92: note: function call is shrink-wrapped into error conditions\." "cdce" { target pow10 } } } */
/* { dg-final { scan-tree-dump  "cdce3.C:93: note: function call is shrink-wrapped into error conditions\." "cdce" { target pow10 } } } */
/* { dg-final { scan-tree-dump  "cdce3.C:95: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:96: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:97: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:98: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:99: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:100: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:101: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:102: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:103: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:104: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:105: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:106: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:107: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { scan-tree-dump  "cdce3.C:108: note: function call is shrink-wrapped into error conditions\." "cdce" } } */
/* { dg-final { cleanup-tree-dump "cdce" } } */

#include <stdlib.h>
#include <math.h>
#ifdef DEBUG
#include <stdio.h>
#endif
#include <errno.h>
typedef void (*FP) (int xp);
#define NI __attribute__((noinline))

#if defined(LARGE_LONG_DOUBLE)
typedef long double ldouble; 
ldouble result;

#define DEF_MATH_FUNC(prefix, name) NI void prefix##name##f (int x) \
{ \
  float yy = name##f ((float) x); \
  STORE_RESULT; \
} \
NI void prefix##name (int x) \
{ \
  double yy = name ((double)x); \
  STORE_RESULT; \
} \
NI void prefix##name##l (int x) \
{ \
  ldouble yy = name##l ((ldouble)x); \
  STORE_RESULT; \
}
#else
double result;

#define DEF_MATH_FUNC(prefix, name) NI void prefix##name##f (int x) \
{ \
  float yy = name##f ((float) x); \
  STORE_RESULT; \
} \
NI void prefix##name (int x) \
{ \
  double yy = name ((double)x); \
  STORE_RESULT; \
}
#endif

#undef STORE_RESULT
#define STORE_RESULT result = yy
#if defined(GNU_EXTENSION)
DEF_MATH_FUNC (m,pow10)
DEF_MATH_FUNC (m,exp10)
#endif
DEF_MATH_FUNC (m,exp2)
DEF_MATH_FUNC (m,exp)
DEF_MATH_FUNC (m,expm1)
DEF_MATH_FUNC (m,cosh)
DEF_MATH_FUNC (m,sinh)
DEF_MATH_FUNC (m,acos)
DEF_MATH_FUNC (m,asin)
DEF_MATH_FUNC (m,acosh)
DEF_MATH_FUNC (m,atanh)
DEF_MATH_FUNC (m,log)
DEF_MATH_FUNC (m,log2)
DEF_MATH_FUNC (m,log10)
DEF_MATH_FUNC (m,log1p)
DEF_MATH_FUNC (m,sqrt)

#undef STORE_RESULT
#define STORE_RESULT
#if defined(GNU_EXTENSION)
DEF_MATH_FUNC (o,pow10)
DEF_MATH_FUNC (o,exp10)
#endif
DEF_MATH_FUNC (o,exp2)
DEF_MATH_FUNC (o,exp)
DEF_MATH_FUNC (o,expm1)
DEF_MATH_FUNC (o,cosh)
DEF_MATH_FUNC (o,sinh)
DEF_MATH_FUNC (o,acos)
DEF_MATH_FUNC (o,asin)
DEF_MATH_FUNC (o,acosh)
DEF_MATH_FUNC (o,atanh)
DEF_MATH_FUNC (o,log)
DEF_MATH_FUNC (o,log2)
DEF_MATH_FUNC (o,log10)
DEF_MATH_FUNC (o,log1p)
DEF_MATH_FUNC (o,sqrt)

#if defined(LARGE_LONG_DOUBLE)
#define INIT_MATH_FUNC(prefix, name, lb, ub) { prefix##name##f, #name "f", 0, 0, lb, ub }, \
{ prefix##name, #name, 0, 0, lb, ub }, \
{ prefix##name##l, #name "l" , 0, 0, lb, ub }, 
#else
#define INIT_MATH_FUNC(prefix, name, lb, ub) { prefix##name##f, #name "f", 0, 0, lb, ub }, \
{ prefix##name, #name, 0, 0, lb, ub },
#endif

struct MathFuncInfo
{
  FP math_func;
  const char*  name;
  int lb;
  int ub;
  bool has_lb;
  bool has_ub;
} math_func_arr[] = { 
#if defined(GNU_EXTENSION)
  INIT_MATH_FUNC (m,pow10, false, true)
  INIT_MATH_FUNC (m,exp10, false, true)
#endif
  INIT_MATH_FUNC (m,exp2, false, true)
  INIT_MATH_FUNC (m,expm1, false, true)
  INIT_MATH_FUNC (m,exp, false, true)
  INIT_MATH_FUNC (m,cosh, true, true)
  INIT_MATH_FUNC (m,sinh, true, true)
  INIT_MATH_FUNC (m,acos, true, true)
  INIT_MATH_FUNC (m,asin, true, true)
  INIT_MATH_FUNC (m,acosh, true, false)
  INIT_MATH_FUNC (m,atanh, true, true)
  INIT_MATH_FUNC (m,log10, true, false)
  INIT_MATH_FUNC (m,log, true, false)
  INIT_MATH_FUNC (m,log2, true, false)
  INIT_MATH_FUNC (m,log1p, true, false)
  INIT_MATH_FUNC (m,sqrt, true, false)
  { 0, 0,  0, 0, 0, 0} };

MathFuncInfo opt_math_func_arr[] = 
{
#if defined(GNU_EXTENSION)
  INIT_MATH_FUNC (o,pow10, false, true)
  INIT_MATH_FUNC (o,exp10, false, true)
#endif
  INIT_MATH_FUNC (o,exp2, false, true)
  INIT_MATH_FUNC (o,expm1, false, true)
  INIT_MATH_FUNC (o,exp, false, true)
  INIT_MATH_FUNC (o,cosh, true, true)
  INIT_MATH_FUNC (o,sinh, true, true)
  INIT_MATH_FUNC (o,acos, true, true)
  INIT_MATH_FUNC (o,asin, true, true)
  INIT_MATH_FUNC (o,acosh, true, false)
  INIT_MATH_FUNC (o,atanh, true, true)
  INIT_MATH_FUNC (o,log10, true, false)
  INIT_MATH_FUNC (o,log, true, false)
  INIT_MATH_FUNC (o,log2, true, false)
  INIT_MATH_FUNC (o,log1p, true, false)
  INIT_MATH_FUNC (o,sqrt, true, false)
  { 0, 0,  0, 0, 0, 0} };

int test (MathFuncInfo* math_func_infos)
{
  int i = 0;
  int te = 0;

  for (i = 0; math_func_infos[i].math_func; i++)
    {
      MathFuncInfo& info = math_func_infos[i];
      int j;
      if (info.has_lb)
        {
          for (j = 0; j > -500000; j--)
            {
        
              errno = 0;
              info.math_func (j);
              if (errno != 0)
                {
		  te++;
                  info.lb = j ;
                  break;
                }
            }
        }
      if (info.has_ub)
        {
          for (j = 0; j < 500000; j++)
            {
              errno = 0;
              info.math_func (j);
              if (errno != 0)
              {
	        te++;
                info.ub = j ;
                break;
              }
            }
        }
    }
  return te;
}

int main()
{
   int te1, te2;

   te1 = test (&math_func_arr[0]);
   te2 = test (&opt_math_func_arr[0]);

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