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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.old-deja/] [g++.mike/] [eh24.C] - Blame information for rev 749

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


// { dg-do run { xfail sparc64-*-elf arm-*-pe } }
// { dg-options "-fexceptions" }
 
int fail = 0;
 
struct A {
  int ok;
  A() {
    ok = 1;
  }
  ~A() {
    if (! ok)
      fail = 1;
    ok = 0;
  }
};
 
main() {
  try {
    try {
      A  a;
      throw 1.0;
    } catch (double i) {
      A a1;
      throw 1;    // make sure both a1 and a2 are not destroyed when we throw!
    } catch (int i) {
      A a2;
      throw 1.0;
    }
  } catch (int i) {
  }
  return fail;
}

Line No.	Rev	Author	Line
1	699	jeremybenn	`// { dg-do run { xfail sparc64--elf arm--pe } }`
2			`// { dg-options "-fexceptions" }`
3
4			`int fail = 0;`
5
6			`struct A {`
7			`int ok;`
8			`A() {`
9			`ok = 1;`
10			`}`
11			`~A() {`
12			`if (! ok)`
13			`fail = 1;`
14			`ok = 0;`
15			`}`
16			`};`
17
18			`main() {`
19			`try {`
20			`try {`
21			`A a;`
22			`throw 1.0;`
23			`} catch (double i) {`
24			`A a1;`
25			`throw 1; // make sure both a1 and a2 are not destroyed when we throw!`
26			`} catch (int i) {`
27			`A a2;`
28			`throw 1.0;`
29			`}`
30			`} catch (int i) {`
31			`}`
32			`return fail;`
33			`}`

Browse

Tools

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [g++.old-deja/] [g++.mike/] [eh24.C] - Blame information for rev 749