PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / pr41470.c
blobddbe66e903be5c1b773b97b70e8ee922092b9368
1 /* { dg-do compile } */
2 /* { dg-options "-fexceptions" } */
4 void cf (void *);
6 void *
7 af (void *a)
9 return a;
11 void
12 bf (void)
14 void *p;
16 int i = 1;
17 char v[i];
18 p = af (v);
20 cf (p);