如何删除类内类类型的类成员指针

我有一段代码，如下所示：

class Base {
public:
Base(){}
Base(int in);
virtual ~Base() { delete b_; }
private:
Base *b_;
int in_;
};
class Derived : public Base {
public:
Derived(){}
~Derived() {}
};
Base::Base(int i) : in_(in){
b_ = new Derived();
}
int main() {
Base *b = new Base(1);
delete b; 
return 0;
}

我在 Base 中删除b_时遇到了分段错误，我想原因是因为它最终会导致对 ~Base(( 的无限递归调用。我还尝试在main((中调用~Derived((，然后删除b，但是由于b_没有释放，因此仍然存在内存泄漏。

所以我的问题是，如果我有这样的代码，释放所有内存的正确方法是什么。我已经寻找了一个解决方案几个小时，没有得到任何令人满意的结果。所以任何建议都会有所帮助，谢谢。