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
/
torture
/
pr47382.C
blob
a12dbe3fd09ecb6252032a9ada0e78c637d40355
1
// { dg-do run }
2
3
extern "C" void abort ();
4
5
struct A
6
{
7
inline ~A ();
8
virtual void foo () {}
9
};
10
11
struct B : A
12
{
13
virtual void foo () { abort(); }
14
};
15
16
static inline void middleman (A *a)
17
{
18
a->foo ();
19
}
20
21
inline A::~A ()
22
{
23
middleman (this);
24
}
25
26
int main ()
27
{
28
B b;
29
return 0;
30
}