Subversion Repositories openrisc

// { dg-do run  }
// GROUPS passed destructors
// Check that virtual destructors work correctly.  Specifically,
// check that when you destruct an object of a derived class for
// which the base class had an explicitly declared virtual destructor
// no infinite recursion occurs.
//
// Bug description:
//    The generated g++ code apparently calls the base class destructor via
//    the virtual table, rather than directly. This, of course, results in the
//    infinite recursion.

extern "C" int printf (const char *, ...); 

int errors = 0;

struct base {
        int member;
        base();
        virtual ~base();
};
  
base::base()
{
}

base::~base()
{
}

struct derived : public base
{
        int member;
        derived();
        ~derived();
};
  
derived::derived() : base()
{
}

int derived_destructor_calls = 0;

extern void exit (int);

derived::~derived()
{
        if (++derived_destructor_calls > 2)
                errors++;
}

void test ();

int main ()
{
        test ();

        if (errors)
          { printf ("FAIL\n"); return 1; }
        else
          printf ("PASS\n");

        return 0;
}

base* bp;

void test()
{
        derived a;

        a.member = 99;
        bp = new derived;
        delete bp;
}