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: fix passing of optional dummy as actual to optional argument [PR55978]
[official-gcc.git]
/
gcc
/
testsuite
/
g++.old-deja
/
g++.mike
/
eh36.C
blob
ba9e814ca3dc0996dfbf96f7a38521e4e161b7d6
1
// { dg-do run { xfail sparc64-*-elf arm-*-pe } }
2
// { dg-options "-fexceptions" }
3
4
#include <typeinfo>
5
6
class A {
7
int space;
8
};
9
class B {
10
public:
11
int data;
12
B(int i) : data(i) {
13
}
14
};
15
class D : public A, public B {
16
public:
17
D(int i) : B(i) {
18
}
19
} d(42);
20
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;
30
}