Subversion Repositories openrisc

// { dg-do run  }

//  Copyright (C) 1999 Free Software Foundation, Inc.

//  Contributed by Nathan Sidwell 21 Nov 1999 

// make sure we don't call base dtors, if we failed to call the

// base ctor due to exception throwing

#include 

static bool bad = false;

static int thrower ()

{

  printf ("in %s\n", __PRETTY_FUNCTION__);

  throw 0;

  return 0;

}

struct X

{

  X (int) throw (int);

  ~X () throw ();

};

X::X (int) throw (int)

  {printf ("in ctor X %s\n", __PRETTY_FUNCTION__); bad = true;}

X::~X () throw ()

  {printf ("in dtor X %s\n", __PRETTY_FUNCTION__); bad = true;}

struct X1 {};

struct Y : X

{

  Y() throw (int);

  ~Y() throw ();

};

Y::Y() throw (int)

  : X(thrower ())   // throws, so X::X is never called

  {printf ("in ctor Y%s\n", __PRETTY_FUNCTION__); bad = true;}

Y::~Y() throw ()

  {printf ("in dtor Y%s\n", __PRETTY_FUNCTION__); bad = true;}

int main ()

{

  try

    {

      Y y;

    }

  catch (...)

    {

      printf ("caught\n");

    }

  return bad;

}