diff --git a/flang/tools/f18/f18.cc b/flang/tools/f18/f18.cc
index 79802e65a864..2b4a45309152 100644
--- a/flang/tools/f18/f18.cc
+++ b/flang/tools/f18/f18.cc
@@ -232,6 +232,9 @@ std::string CompileFortran(std::string path, Fortran::parser::Options options,
     if (semantics.AnyFatalError()) {
       std::cerr << driver.prefix << "semantic errors in " << path << '\n';
       exitStatus = EXIT_FAILURE;
+      if (driver.dumpParseTree) {
+        Fortran::parser::DumpTree(std::cout, parseTree);
+      }
       return {};
     }
     if (driver.dumpUnparseWithSymbols) {