1 /* Ensure that IPA-ICF is disabled on OpenACC routines.  */
2 
3 /* { dg-additional-options "-fopenacc -O2 -fdump-ipa-icf" }  */
4 
5 #pragma acc routine gang
6 int
routine1(int n)7 routine1 (int n)
8 {
9   int i;
10 
11   #pragma acc loop
12   for (i = 0; i < n; i++)
13     ;
14 
15   return n + 1;
16 }
17 
18 #pragma acc routine gang
19 int
routine2(int n)20 routine2 (int n)
21 {
22   int i;
23 
24   #pragma acc loop
25   for (i = 0; i < n; i++)
26     ;
27 
28   return n + 1;
29 }
30 
31 int
main()32 main ()
33 {
34   int i;
35 
36   #pragma acc parallel loop
37   for (i = 0; i < 8; i++)
38     ;
39 
40   #pragma acc parallel loop
41   for (i = 0; i < 8; i++)
42     ;
43 
44   return 0;
45 }
46 
47 /* { dg-final { scan-ipa-dump-times "Not parsed function:" 4 "icf" } }  */
48 /* { dg-final { scan-ipa-dump "Parsed function:main" "icf" } }  */
49 
50