(root)/
gcc-13.2.0/
gcc/
testsuite/
gcc.dg/
vect/
vect-float-truncate-1.c
       1  /* { dg-require-effective-target vect_double } */
       2  /* { dg-require-effective-target vect_float } */
       3  
       4  #include <stdarg.h>
       5  #include "tree-vect.h"
       6  
       7  #define N 32
       8  
       9  __attribute__ ((noinline)) int
      10  main1 ()
      11  {
      12    int i;
      13    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};
      14    float fa[N];
      15  
      16    /* double -> float */
      17    for (i = 0; i < N; i++)
      18      {
      19        fa[i] = (float) db[i];
      20      }
      21  
      22    /* check results:  */
      23    for (i = 0; i < N; i++)
      24      {
      25        if (fa[i] != (float) db[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" } } */