PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / ipa / ipa-pta-5.c
blob3359c534aaba54e5c87db61db71c1e7fcc297bd1
1 /* { dg-do run } */
2 /* { dg-options "-O2 -fipa-pta -fdump-ipa-pta-details" } */
4 int **x;
6 static int __attribute__((noinline,noclone))
7 foo (int **q)
9 int a = 1;
10 **q = 0;
11 *x = &a;
12 return **q;
15 extern void abort (void);
16 int main()
18 int b;
19 int *p = &b;
20 x = &p;
21 if (foo (&p) != 1)
22 abort ();
23 return 0;
26 /* { dg-final { cleanup-ipa-dump "pta" } } */