gcc/testsuite/gcc.target/i386/sse2-lrint-vec.c

   1 /* { dg-do run } */
   2 /* { dg-options "-O2 -ffast-math -ftree-vectorize -msse2" } */
   3 /* { dg-require-effective-target sse2 } */
   4
   5 #ifndef CHECK_H
   6 #define CHECK_H "sse2-check.h"
   7 #endif
   8
   9 #ifndef TEST
  10 #define TEST sse2_test
  11 #endif
  12
  13 #include CHECK_H
  14
  15 extern long lrint (double);
  16
  17 #define N 32
  18
  19 double a[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};
  20 long r[N];
  21
  22 static void
  23 TEST (void)
  24 {
  25   int i;
  26
  27   for (i = 0; i < N; i++)
  28     {
  29       r[i] = lrint (a[i]);
  30     }
  31
  32   /* check results:  */
  33   for (i = 0; i < N; i++)
  34     {
  35       if (r[i] != lrint (a[i]))
  36         abort();
  37     }
  38 }