* testsuite/libgomp.fortran/vla7.f90: Add -w to options.
[official-gcc.git] / gcc / testsuite / gcc.dg / builtins-24.c
blob41ec1889f5fa406bfdce8d160dd71c77cad8591c
1 /* Copyright (C) 2003 Free Software Foundation.
3 Check that the RTL expansion of floating point exponentiation by
4 a constant integer doesn't break anything and produces the expected
5 results.
7 Written by Roger Sayle, 20th June 2003. */
9 /* { dg-do run } */
10 /* { dg-options "-O2 -ffast-math" } */
12 extern double pow(double,double);
13 extern void abort(void);
15 double foo (double x)
17 return pow (x, 6);
20 double bar (double x)
22 return pow (x, -4);
25 int main()
27 if (foo (2.0) != 64.0)
28 abort ();
30 if (bar (2.0) != 0.0625)
31 abort ();
33 return 0;