repo.or.cz
/
official-gcc.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
Fortran: Suppress invalid finalization of artificial variable [PR116388]
[official-gcc.git]
/
gcc
/
testsuite
/
g++.dg
/
torture
/
pr104679.C
blob
ccdfbaecd5712b1aee8e75a065ccdd3368efe1bc
1
// PR middle-end/104679
2
// { dg-do compile }
3
4
struct A { ~A (); };
5
void foo (double, long);
6
void bar ();
7
double a;
8
long b;
9
10
void
11
baz ()
12
{
13
foo (a, b);
14
if (a == 0.0)
15
;
16
else
17
while (a > 0.0)
18
{
19
A c;
20
bar ();
21
}
22
}