Subversion Repositories openrisc

// { dg-do run  }

// GROUPS passed destructors

// Check that member and base classes get properly destructed

// when an object of a derived class is destructed via a pointer

// to it which only has a "compile-time" type of "pointer-to-base".

//

// Note that in order for this test to work properly, the destructor

// for the base class should be explicitly declared to be virtual.

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

int member_destructor_calls = 0;

int middle_destructor_calls = 0;

struct member_type {

        int data_member;

        member_type () {}

        ~member_type ();

};

struct base {

        int data_member;

        base () {}

        virtual ~base ();

};

struct middle : public base {

        member_type member1;

        member_type member2;

        middle () {}

        ~middle ();             // should be implicitly virtual

};

struct derived : public middle {

        member_type member1;

        member_type member2;

        //~derived () {}

};

int main ()

{

        base* bp = new derived;

        delete bp;

        derived *dp = new derived;

        delete dp;

        if ((member_destructor_calls != 8) || (middle_destructor_calls != 2))

          { printf ("FAIL\n"); return 1; }

        else

          printf ("PASS\n");

        return 0;

}

member_type::~member_type ()

{

        member_destructor_calls++;

}

base::~base ()

{

}

middle::~middle ()

{

        middle_destructor_calls++;

}