PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / ipa / ipa-pta-9.c
blob1a98da3978ec145d8b83b9df9ac73f5e20b8d3f2
1 /* { dg-do run } */
2 /* { dg-options "-O2 -fipa-pta" } */
4 static void __attribute__((noinline,noclone))
5 foo (int *p, int *q)
7 __builtin_memcpy (p, q, sizeof (int));
9 extern void abort (void);
10 int main()
12 int i = 0, j = 1;
13 foo (&i, &j);
14 if (i != 1)
15 abort ();
16 return 0;