gomp-20050608-branch/gcc/testsuite/gcc.dg/torture/builtin-convert-3.c

   1 /* Copyright (C) 2004  Free Software Foundation.
   2
   3    Verify that builtin math functions (with fixed point return types)
   4    are converted to smaller FP types correctly by the compiler.
   5
   6    Written by Kaveh Ghazi, 2004-05-01.  */
   7
   8 /* { dg-do link } */
   9 /* { dg-options "-ffast-math" } */
  10 /* { dg-options "-ffast-math -mmacosx-version-min=10.3" { target powerpc-*-darwin* } } */
  11
  12 #include "../builtins-config.h"
  13
  14 #define PROTOTYPE1_RET(FN, RET) \
  15   extern RET FN(double); \
  16   extern RET FN##f(float); \
  17   extern RET FN##l(long double);
  18
  19 /* Test converting math builtins to narrower FP types based on if the
  20    argument is a narrower type (perhaps implicitly) cast to a wider
  21    one.  */
  22 #define INNER_CAST1(MATHFN, RET) \
  23  PROTOTYPE1_RET (MATHFN, RET); \
  24  extern void link_failure_inner_##MATHFN##l_##MATHFN(void); \
  25  extern void link_failure_inner_##MATHFN##l_##MATHFN##f(void); \
  26  extern void link_failure_inner_##MATHFN##_##MATHFN##f(void); \
  27  if (sizeof (long double) > sizeof (double) \
  28      && MATHFN##l(d1) != MATHFN(d1)) \
  29     link_failure_inner_##MATHFN##l_##MATHFN(); \
  30  if (sizeof (long double) > sizeof (float) \
  31      && MATHFN##l(f1) != MATHFN##f(f1)) \
  32     link_failure_inner_##MATHFN##l_##MATHFN##f(); \
  33  if (sizeof (long double) > sizeof (float) \
  34      && MATHFN##l((double)f1) != MATHFN##f(f1)) \
  35     link_failure_inner_##MATHFN##l_##MATHFN##f(); \
  36  if (sizeof (double) > sizeof (float) \
  37      && MATHFN(f1) != MATHFN##f(f1)) \
  38     link_failure_inner_##MATHFN##_##MATHFN##f()
  39
  40 void __attribute__ ((__noinline__)) test (double d1, float f1)
  41 {
  42 #ifdef __OPTIMIZE__
  43 #ifdef HAVE_C99_RUNTIME
  44   /* We're converting to implicitly generated C99 functions.  */
  45   INNER_CAST1 (lround, long);
  46   INNER_CAST1 (llround, long long);
  47   INNER_CAST1 (lrint, long);
  48   INNER_CAST1 (llrint, long long);
  49 #endif /* HAVE_C99_RUNTIME */
  50 #endif /* __OPTIMIZE__ */
  51 }
  52
  53 int main (void)
  54 {
  55   test (1, 2);
  56   return 0;
  57 }