OSDN Git Service

2008-08-19 Richard Guenther <rguenther@suse.de>
[pf3gnuchains/gcc-fork.git] / gcc / testsuite / gcc.dg / vect / vect-float-extend-1.c
1 /* { dg-require-effective-target vect_double } */
2
3 #include <stdarg.h>
4 #include "tree-vect.h"
5
6 #define N 32
7
8 float fb[N] = {0.4,3.5,6.6,9.4,12.5,15.6,18.4,21.5,24.6,27.4,30.5,33.6,36.4,39.5,42.6,45.4,0.5,3.6,6.4,9.5,12.6,15.4,18.5,21.6,24.4,27.5,30.6,33.4,36.5,39.6,42.4,45.5};
9 double da[N];
10
11 __attribute__ ((noinline)) int
12 main1 ()
13 {
14   int i;
15
16   /* float -> double */
17   for (i = 0; i < N; i++)
18     {
19       da[i] = (double) fb[i];
20     }
21
22   /* check results:  */
23   for (i = 0; i < N; i++)
24     {
25       if (da[i] != (double) fb[i])
26        abort ();
27     }
28
29   return 0;
30 }
31
32 int
33 main (void)
34 {
35   check_vect ();
36
37   return main1 ();
38 }
39
40 /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { xfail spu*-*-* } } } */
41 /* { dg-final { cleanup-tree-dump "vect" } } */