repo.or.cz
/
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: Fix PR 47485.
[gcc.git]
/
gcc
/
testsuite
/
g++.dg
/
compat
/
eh
/
dtor1_y.C
blob
a1ec41a2764483e0eb96a8b55bcbb95622bac9e4
1
extern int r;
2
int ad;
3
4
#include "dtor1.h"
5
6
A::~A () { ++ad; }
7
8
B::~B ()
9
try
10
{
11
throw 1;
12
}
13
catch (...)
14
{
15
if (!ad)
16
r = 1;
17
return;
18
}