gcc/testsuite/gcc.dg/sinatan-2.c

   1 /* { dg-do compile } */
   2 /* { dg-options "-Ofast -fdump-tree-optimized" } */
   3
   4 extern float sinf (float);
   5 extern float cosf (float);
   6 extern float atanf (float);
   7 extern double sin (double);
   8 extern double cos (double);
   9 extern double atan (double);
  10 extern long double sinl (long double);
  11 extern long double cosl (long double);
  12 extern long double atanl (long double);
  13
  14 double __attribute__ ((noinline))
  15 sinatan_ (double x)
  16 {
  17     return sin (atan (x));
  18 }
  19
  20 double __attribute__ ((noinline))
  21 cosatan_ (double x)
  22 {
  23     return cos (atan (x));
  24 }
  25
  26 float __attribute__ ((noinline))
  27 sinatanf_(float x)
  28 {
  29     return sinf (atanf (x));
  30 }
  31
  32 float __attribute__ ((noinline))
  33 cosatanf_(float x)
  34 {
  35     return cosf (atanf (x));
  36 }
  37
  38 long double __attribute__ ((noinline))
  39 sinatanl_ (long double x)
  40 {
  41     return sinl (atanl (x));
  42 }
  43
  44 long double __attribute__ ((noinline))
  45 cosatanl_ (long double x)
  46 {
  47     return cosl (atanl (x));
  48 }
  49
  50 /* There must be no calls to sin, cos, or atan */
  51 /* {dg-final { scan-tree-dump-not "sin " "optimized" } } */
  52 /* {dg-final { scan-tree-dump-not "cos " "optimized" } } */
  53 /* {dg-final { scan-tree-dump-not "atan " "optimized" }} */
  54 /* {dg-final { scan-tree-dump-not "sinf " "optimized" } } */
  55 /* {dg-final { scan-tree-dump-not "cosf " "optimized" } } */
  56 /* {dg-final { scan-tree-dump-not "atanf " "optimized" }} */
  57 /* {dg-final { scan-tree-dump-not "sinl " "optimized" } } */
  58 /* {dg-final { scan-tree-dump-not "cosl " "optimized" } } */
  59 /* {dg-final { scan-tree-dump-not "atanl " "optimized" }} */