[flang] Fix flang-compiler/f18#765

Original-commit: flang-compiler/f18@bb2ffac7176ce81079940b8736461cb01794f9c8
Reviewed-on: https://github.com/flang-compiler/f18/pull/766

diff --git a/flang/lib/parser/unparse.cc b/flang/lib/parser/unparse.cc
index 071dfd6..71c47c5 100644 (file)
--- a/flang/lib/parser/unparse.cc
+++ b/flang/lib/parser/unparse.cc
@@ -706,7 +706,7 @@ public:
     Walk("(", std::get<std::optional<ArraySpec>>(x.t), ")");
   }
   void Unparse(const CommonStmt::Block &x) {
-    Walk("/", std::get<std::optional<Name>>(x.t), "/");
+    Word("/"), Walk(std::get<std::optional<Name>>(x.t)), Word("/");
     Walk(std::get<std::list<CommonBlockObject>>(x.t));
   }