PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / graphite / run-id-3.c
blobe708ba0bdeaa1f5e79a9c8c2728cd9679cd2f5d6
1 extern void abort (void);
3 __attribute__ ((noinline)) int
4 foo (int *zzz, unsigned int kk)
6 int a, b, d;
8 a = b = 0;
9 for (d = 0; d < 1000; d++)
11 if (kk != 0)
12 b = *zzz;
15 return b;
18 int
19 main (void)
21 if (foo (0, 0) != 0)
22 abort();
23 return 0;