Fortran: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git] / gcc / testsuite / g++.old-deja / g++.mike / eh36.C
blobba9e814ca3dc0996dfbf96f7a38521e4e161b7d6
1 // { dg-do run { xfail sparc64-*-elf arm-*-pe } }
2 // { dg-options "-fexceptions" }
4 #include <typeinfo>
6 class A {
7   int space;
8 };
9 class B {
10 public:
11   int data;
12   B(int i) : data(i) {
13   }
15 class D : public A, public B {
16 public:
17   D(int i) : B(i) {
18   }
19 } d(42);
21 int
22 main() {
23   try {
24     throw &d;
25   } catch (B* b) {
26     if (b->data == 42)
27       return 0;
28   }
29   return 1;