PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / ipa / ipa-2.c
blob7f14d42a03a575c1f302edfb6a36cf416b6803d8
1 /* { dg-do compile } */
2 /* { dg-options "-O3 -fipa-cp -fipa-cp-clone -fdump-ipa-cp -fno-early-inlining" } */
3 /* { dg-add-options bind_pic_locally } */
5 #include <stdio.h>
6 int g (int b, int c)
8 printf ("%d %d\n", b, c);
10 int f (int a)
12 /* a is modified. */
13 if (a++ > 0)
14 g (a, 3);
16 int main ()
18 int i;
19 for (i = 0; i < 100; i++)
20 f (7);
21 return 0;
25 /* { dg-final { scan-ipa-dump "Creating a specialized node of f" "cp" } } */
26 /* { dg-final { scan-ipa-dump "replacing param .0 a with const 7" "cp" } } */
27 /* { dg-final { cleanup-ipa-dump "cp" } } */