Fortran: Suppress invalid finalization of artificial variable [PR116388]
[official-gcc.git] / gcc / testsuite / g++.dg / torture / pr104679.C
blobccdfbaecd5712b1aee8e75a065ccdd3368efe1bc
1 // PR middle-end/104679
2 // { dg-do compile }
4 struct A { ~A (); };
5 void foo (double, long);
6 void bar ();
7 double a;
8 long b;
10 void
11 baz ()
13   foo (a, b);
14   if (a == 0.0)
15     ;
16   else
17     while (a > 0.0)
18       {
19         A c;
20         bar ();
21       }