1 files changed, 2 insertions, 1 deletions
diff --git a/flang/runtime/io-error.h b/flang/runtime/io-error.h
index 6cab725186e3..80f5fa817910 100644
--- a/flang/runtime/io-error.h
+++ b/flang/runtime/io-error.h
@@ -18,9 +18,10 @@
 
 namespace Fortran::runtime::io {
 
-class IoErrorHandler : virtual public Terminator {
+class IoErrorHandler : public Terminator {
 public:
   using Terminator::Terminator;
+  explicit IoErrorHandler(const Terminator &that) : Terminator{that} {}
   void Begin(const char *sourceFileName, int sourceLine);
   void HasIoStat() { flags_ |= hasIoStat; }
   void HasErrLabel() { flags_ |= hasErr; }