gcc/testsuite/gcc.dg/vect/vect-float-truncate-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 __attribute__ ((noinline)) int
   9 main1 ()
  10 {
  11   int i;
  12   double db[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};
  13   float fa[N];
  14
  15   /* double -> float */
  16   for (i = 0; i < N; i++)
  17     {
  18       fa[i] = (float) db[i];
  19     }
  20
  21   /* check results:  */
  22   for (i = 0; i < N; i++)
  23     {
  24       if (fa[i] != (float) db[i])
  25        abort ();
  26     }
  27
  28   return 0;
  29 }
  30
  31 int
  32 main (void)
  33 {
  34   check_vect ();
  35
  36   return main1 ();
  37 }
  38
  39 /* { dg-final { scan-tree-dump-times "vectorized 1 loops" 1 "vect" { xfail spu*-*-* } } } */
  40 /* { dg-final { cleanup-tree-dump "vect" } } */