OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.target/] [powerpc/] [pr46728-8.c] - Blame information for rev 715

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 691 jeremybenn
/* { dg-do compile } */
2
/* { dg-options "-O2 -ffast-math -fno-inline -fno-unroll-loops -lm -mpowerpc-gpopt" } */
3
 
4
#include <math.h>
5
 
6
extern void abort (void);
7
 
8
#define NVALS 6
9
 
10
static double
11
convert_it_1 (double x)
12
{
13
  return pow (x, 10.0 / 3.0);
14
}
15
 
16
static double
17
convert_it_2 (double x)
18
{
19
  return pow (x, 11.0 / 3.0);
20
}
21
 
22
static double
23
convert_it_3 (double x)
24
{
25
  return pow (x, -7.0 / 3.0);
26
}
27
 
28
static double
29
convert_it_4 (double x)
30
{
31
  return pow (x, -8.0 / 3.0);
32
}
33
 
34
int
35
main (int argc, char *argv[])
36
{
37
  double values[NVALS] = { 3.0, 1.95, 2.227, 4.0, 256.0, .0008797 };
38
  unsigned i;
39
 
40
  for (i = 0; i < NVALS; i++)
41
    {
42
      if (convert_it_1 (values[i]) !=
43
          __builtin_powi (values[i], 3) * __builtin_powi (cbrt (values[i]), 1))
44
        abort ();
45
      if (convert_it_2 (values[i]) !=
46
          __builtin_powi (values[i], 3) * __builtin_powi (cbrt (values[i]), 2))
47
        abort ();
48
      if (convert_it_3 (values[i]) !=
49
          __builtin_powi (values[i], -3) * __builtin_powi (cbrt (values[i]), 2))
50
        abort ();
51
      if (convert_it_4 (values[i]) !=
52
          __builtin_powi (values[i], -3) * __builtin_powi (cbrt (values[i]), 1))
53
        abort ();
54
    }
55
 
56
  return 0;
57
}
58
 
59
 
60
/* { dg-final { scan-assembler-times "cbrt" 5 { target powerpc*-*-* } } } */
61
/* { dg-final { scan-assembler-not "pow" { target powerpc*-*-* } } } */

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.