old-autovect-branch/gcc/testsuite/gcc.dg/builtins-46.c

   1 /* Copyright (C) 2004 Free Software Foundation.
   2
   3    Check that rint, rintf, rintl, lrint, lrintf, lrintl,
   4    llrint, llrintf, llrintl, floor, floorf, floorl,
   5    ceil, ceilf, ceill, trunc, truncf, truncl,
   6    nearbyint, nearbyintf and nearbyintl
   7    built-in functions compile.
   8
   9    Written by Uros Bizjak, 25th Aug 2004.  */
  10
  11 /* { dg-do compile } */
  12 /* { dg-options "-O2 -ffast-math" } */
  13
  14 extern double rint(double);
  15 extern long int lrint(double);
  16 extern long long int llrint(double);
  17 extern double floor(double);
  18 extern double ceil(double);
  19 extern double trunc(double);
  20 extern double nearbyint(double);
  21
  22 extern float rintf(float);
  23 extern long int lrintf(float);
  24 extern long long int llrintf(float);
  25 extern float floorf(float);
  26 extern float ceilf(float);
  27 extern float truncf(float);
  28 extern float nearbyintf(float);
  29
  30 extern long double rintl(long double);
  31 extern long int lrintl(long double);
  32 extern long long int llrintl(long double);
  33 extern long double floorl(long double);
  34 extern long double ceill(long double);
  35 extern long double truncl(long double);
  36 extern long double nearbyintl(long double);
  37
  38
  39 double test1(double x)
  40 {
  41   return rint(x);
  42 }
  43
  44 long int test11(double x)
  45 {
  46   return lrint(x);
  47 }
  48
  49 long long int test12(double x)
  50 {
  51   return llrint(x);
  52 }
  53
  54 double test2(double x)
  55 {
  56   return floor(x);
  57 }
  58
  59 double test3(double x)
  60 {
  61   return ceil(x);
  62 }
  63
  64 double test4(double x)
  65 {
  66   return trunc(x);
  67 }
  68
  69 double test5(double x)
  70 {
  71   return nearbyint(x);
  72 }
  73
  74 float test1f(float x)
  75 {
  76   return rintf(x);
  77 }
  78
  79 long int test11f(float x)
  80 {
  81   return lrintf(x);
  82 }
  83
  84 long long int test12f(float x)
  85 {
  86   return llrintf(x);
  87 }
  88
  89 float test2f(float x)
  90 {
  91   return floorf(x);
  92 }
  93
  94 float test3f(float x)
  95 {
  96   return ceilf(x);
  97 }
  98
  99 float test4f(float x)
 100 {
 101   return truncf(x);
 102 }
 103
 104 float test5f(float x)
 105 {
 106   return nearbyintf(x);
 107 }
 108
 109 long double test1l(long double x)
 110 {
 111   return rintl(x);
 112 }
 113
 114 long int test11l(long double x)
 115 {
 116   return lrintl(x);
 117 }
 118
 119 long long int test12l(long double x)
 120 {
 121   return llrintl(x);
 122 }
 123
 124 long double test2l(long double x)
 125 {
 126   return floorl(x);
 127 }
 128
 129 long double test3l(long double x)
 130 {
 131   return ceill(x);
 132 }
 133
 134 long double test4l(long double x)
 135 {
 136   return truncl(x);
 137 }
 138
 139 long double test5l(long double x)
 140 {
 141   return nearbyintl(x);
 142 }