Subversion Repositories openrisc

// { dg-do run  }

// Copyright (C) 1999 Free Software Foundation

// by Alexandre Oliva 

// Test whether dtors of vbases are called on throw within new[].

// Variant of delete2.C.

extern "C" void abort();

extern "C" void exit(int);

struct Foo {

  static bool first;

  Foo() {

    if (first)

      first = false;

    else

      throw first;

  }

  ~Foo() {

    exit(0);

  }

};

bool Foo::first = true;

struct Bar : virtual Foo {

};

int main() {

  try {

    delete [] new Bar[2];

  } catch (...) {

  }

  abort();

}