Fortran: Fix PR 47485.
[gcc.git] / gcc / testsuite / g++.dg / torture / pr47382.C
bloba12dbe3fd09ecb6252032a9ada0e78c637d40355
1 // { dg-do run }
3 extern "C" void abort ();
5 struct A
7   inline ~A ();
8   virtual void foo () {}
9 };
11 struct B : A
13   virtual void foo () { abort(); }
16 static inline void middleman (A *a)
18   a->foo ();
21 inline A::~A ()
23   middleman (this);
26 int main ()
28    B b;
29    return 0;