URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [eh/] [filter1.C] - Blame information for rev 823

Go to most recent revision | Details | Compare with Previous | View Log


// Test that cleanups get run when a catch filter fails to match.
// { dg-do run }
 
extern "C" void exit(int);
extern "C" void abort();
 
struct a
{
  a();
  ~a();
};
 
struct e1 {};
struct e2 {};
 
void
ex_test ()
{
  a aa;
  try
    {
      throw e1 ();
    }
  catch (e2 &)
    {
    }
}
 
int
main ()
{
  try
    {
      ex_test ();
    }
  catch (...)
    {
    }
  abort ();
}
 
a::a() { }
a::~a() { exit (0); }

Line No.	Rev	Author	Line
1	149	jeremybenn	`// Test that cleanups get run when a catch filter fails to match.`
2			`// { dg-do run }`
3
4			`extern "C" void exit(int);`
5			`extern "C" void abort();`
6
7			`struct a`
8			`{`
9			`a();`
10			`~a();`
11			`};`
12
13			`struct e1 {};`
14			`struct e2 {};`
15
16			`void`
17			`ex_test ()`
18			`{`
19			`a aa;`
20			`try`
21			`{`
22			`throw e1 ();`
23			`}`
24			`catch (e2 &)`
25			`{`
26			`}`
27			`}`
28
29			`int`
30			`main ()`
31			`{`
32			`try`
33			`{`
34			`ex_test ();`
35			`}`
36			`catch (...)`
37			`{`
38			`}`
39			`abort ();`
40			`}`
41
42			`a::a() { }`
43			`a::~a() { exit (0); }`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [gcc-4.2.2/] [gcc/] [testsuite/] [g++.dg/] [eh/] [filter1.C] - Blame information for rev 823