PR libfortran/64770 Segfault when trying to open existing file with status="new".

[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / pr33766.c

/* { dg-do compile } */
/* { dg-options "-O2 -ftree-loop-linear" } */

float
fxt1_quantize_ALPHA1()
{
  int j1;
  int i;
  float *tv;
  for (j1 = 1; j1 < 2048; j1++) {
      float e;
      for (i = 1; i < 2048; i++)
        e = tv[i];
      if (e)
        i = j1;
  }
  return tv[i];
}