1/* PR tree-optimization/58472 */
2/* { dg-do compile } */
3/* { dg-options "-O2 -Wall -fopenmp" } */
4
5float a[1024], b[1024];
6
7float
8foo ()
9{
10  float s = 0.f;
11  unsigned int i;
12#pragma omp simd reduction(+:s)
13  for (i = 0; i < 1024; ++i)
14    s += a[i] * b[i];
15  return s;
16}
17