PR libfortran/64770 Segfault when trying to open existing file with status="new".
[official-gcc.git] / gcc / testsuite / gcc.dg / lto / ipacp_0.c
blob097c1c2538f78506d83d927ae48a7c8409113cce
1 /* { dg-lto-options {{ -O1 -flto -flto-partition=1to1 -fipa-cp -fipa-cp-clone}} } */
2 /* { dg-lto-do run } */
4 /* Test that clonning happens and we unify declarations of a from both units. */
5 const int a = 5;
6 extern void clone_me (int *);
8 int
9 main(void)
11 int i;
12 for (i=0;i<100;i++)
13 clone_me ((int *)&a);
14 return 0;