1  /* { dg-do compile } */
       2  /* { dg-options "-O2 -std=gnu99" } */
       3  typedef _Complex float GFC_COMPLEX_4;
       4  void product_c4 (GFC_COMPLEX_4 *src, GFC_COMPLEX_4 *dest, int len)
       5  {
       6    int n;
       7    GFC_COMPLEX_4 result;
       8    for (n = 0; n < len; n++, src += 1)
       9      result *= *src;
      10    *dest = result;
      11  }