gcc/testsuite/gcc.dg/builtins-34.c

   1 /* Copyright (C) 2004 Free Software Foundation.
   2
   3    Check that various built-in functions compile.
   4
   5    Written by Uros Bizjak, 13th February 2004.  */
   6
   7 /* { dg-do compile } */
   8 /* { dg-options "-O2 -ffast-math" } */
   9
  10 extern double exp10(double);
  11 extern double exp2(double);
  12 extern double pow10(double);
  13 extern double expm1(double);
  14 extern double ldexp(double, int);
  15 extern double scalb(double, double);
  16 extern double scalbn(double, int);
  17 extern double scalbln(double, long);
  18 extern double significand(double);
  19 extern float exp10f(float);
  20 extern float exp2f(float);
  21 extern float pow10f(float);
  22 extern float expm1f(float);
  23 extern float ldexpf(float, int);
  24 extern float scalbf(float, float);
  25 extern float scalbnf(float, int);
  26 extern float scalblnf(float, long);
  27 extern float significandf(float);
  28 extern long double exp10l(long double);
  29 extern long double exp2l(long double);
  30 extern long double pow10l(long double);
  31 extern long double expm1l(long double);
  32 extern long double ldexpl(long double, int);
  33 extern long double scalbl(long double, long double);
  34 extern long double scalbnl(long double, int);
  35 extern long double scalblnl(long double, long);
  36 extern long double significandl(long double);
  37
  38
  39 double test1(double x)
  40 {
  41   return exp10(x);
  42 }
  43
  44 double test2(double x)
  45 {
  46   return exp2(x);
  47 }
  48
  49 double test3(double x)
  50 {
  51   return pow10(x);
  52 }
  53
  54 double test4(double x)
  55 {
  56   return expm1(x);
  57 }
  58
  59 double test5(double x, int exp)
  60 {
  61   return ldexp(x, exp);
  62 }
  63
  64 double test6(double x, double exp)
  65 {
  66   return scalb(x, exp);
  67 }
  68
  69 double test7(double x, int exp)
  70 {
  71   return scalbn(x, exp);
  72 }
  73
  74 double test8(double x, long exp)
  75 {
  76   return scalbln(x, exp);
  77 }
  78
  79 double test9(double x)
  80 {
  81   return significand(x);
  82 }
  83
  84 float test1f(float x)
  85 {
  86   return exp10f(x);
  87 }
  88
  89 float test2f(float x)
  90 {
  91   return exp2f(x);
  92 }
  93
  94 float test3f(float x)
  95 {
  96   return pow10f(x);
  97 }
  98
  99 float test4f(float x)
 100 {
 101   return expm1f(x);
 102 }
 103
 104 float test5f(float x, int exp)
 105 {
 106   return ldexpf(x, exp);
 107 }
 108
 109 float test6f(float x, float exp)
 110 {
 111   return scalbf(x, exp);
 112 }
 113
 114 float test7f(float x, int exp)
 115 {
 116   return scalbnf(x, exp);
 117 }
 118
 119 float test8f(float x, long exp)
 120 {
 121   return scalblnf(x, exp);
 122 }
 123
 124 float test9f(float x)
 125 {
 126   return significandf(x);
 127 }
 128
 129 long double test1l(long double x)
 130 {
 131   return exp10l(x);
 132 }
 133
 134 long double test2l(long double x)
 135 {
 136   return exp2l(x);
 137 }
 138
 139 long double test3l(long double x)
 140 {
 141   return pow10l(x);
 142 }
 143
 144 long double test4l(long double x)
 145 {
 146   return expm1l(x);
 147 }
 148
 149 long double test5l(long double x, int exp)
 150 {
 151   return ldexpl(x, exp);
 152 }
 153
 154 long double test6l(long double x, long double exp)
 155 {
 156   return scalbl(x, exp);
 157 }
 158
 159 long double test7l(long double x, int exp)
 160 {
 161   return scalbnl(x, exp);
 162 }
 163
 164 long double test8l(long double x, long exp)
 165 {
 166   return scalblnl(x, exp);
 167 }
 168
 169 long double test9l(long double x)
 170 {
 171   return significandl(x);
 172 }