Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / warn / Wfree-nonheap-object-5.C
blob742dba0cf58413e2af8695540dc54919e8b26649
1 /* PR middle-end/98664 - inconsistent --Wfree-nonheap-object for inlined
2    calls to system headers
3    { dg-do compile }
4    { dg-options "-O2 -Wall" } */
6 # 7 "Wfree-nonheap-object-5.h" 1 3
8 struct A0
10   void *p;
12   void f0 (void *q) { p = q; }
13   void g0 (void) {
14     __builtin_free (p);       // { dg-warning "\\\[-Wfree-nonheap-object" }
15   }
18 struct A1
20   void *p;
22   void f0 (void *q) { p = q; }
23   void f1 (void *q) { f0 (q); }
25   void g0 (void) {
26     __builtin_free (p);       // { dg-warning "\\\[-Wfree-nonheap-object" }
27   }
28   void g1 (void) { g0 (); }
31 struct A2
33   void *p;
35   void f0 (void *q) { p = q; }
36   void f1 (void *q) { f0 (q); }
37   void f2 (void *q) { f1 (q); }
39   void g0 (void) {
40     __builtin_free (p);       // { dg-warning "\\\[-Wfree-nonheap-object" }
41   }
42   void g1 (void) { g0 (); }
43   void g2 (void) { g1 (); }
46 # 47 "Wfree-nonheap-object-5.C"
48 #define NOIPA __attribute__ ((noipa))
50 extern int array[];
52 /* Verify the warning is issued even for calls in a system header inlined
53    into a function outside the header.  */
55 NOIPA void warn_g0 (struct A0 *p)
57   int *q = array + 1;
59   p->f0 (q);
60   p->g0 ();
63 // { dg-message "inlined from 'void warn_g0\\(A0\\*\\)'" "" { target *-*-* } 0 }
66 /* Also verify the warning can be suppressed.  */
68 NOIPA void nowarn_g0 (struct A0 *p)
70   int *q = array + 2;
72   p->f0 (q);
74 #pragma GCC diagnostic push
75 #pragma GCC diagnostic ignored "-Wfree-nonheap-object"
76   p->g0 ();
77 #pragma GCC diagnostic pop
81 NOIPA void warn_g1 (struct A1 *p)
83   int *q = array + 3;
85   p->f1 (q);
86   p->g1 ();
89 // { dg-message "inlined from 'void A1::g1\\(\\)'" "" { target *-*-* } 0 }
90 // { dg-message "inlined from 'void warn_g1\\(A1\\*\\)'" "" { target *-*-* } 0 }
93 NOIPA void nowarn_g1 (struct A2 *p)
95   int *q = array + 4;
97   p->f1 (q);
99 #pragma GCC diagnostic push
100 #pragma GCC diagnostic ignored "-Wfree-nonheap-object"
101   p->g1 ();
102 #pragma GCC diagnostic pop
106 NOIPA void warn_g2 (struct A2 *p)
108   int *q = array + 5;
110   p->f2 (q);
111   p->g2 ();
114 // { dg-message "inlined from 'void A2::g1\\(\\)'" "" { target *-*-* } 0 }
115 // { dg-message "inlined from 'void A2::g2\\(\\)'" "" { target *-*-* } 0 }
116 // { dg-message "inlined from 'void warn_g2\\(A2\\*\\)'" "" { target *-*-* } 0 }
119 NOIPA void nowarn_g2 (struct A2 *p)
121   int *q = array + 6;
123   p->f2 (q);
125 #pragma GCC diagnostic push
126 #pragma GCC diagnostic ignored "-Wfree-nonheap-object"
127   p->g2 ();
128 #pragma GCC diagnostic pop