[flang] Fix unparsing of defined operators.

Original-commit: flang-compiler/f18@14aa5198f3154bfd740a62f5c81bd8d24c50e52c
Reviewed-on: https://github.com/flang-compiler/f18/pull/346

diff --git a/flang/lib/parser/unparse.cc b/flang/lib/parser/unparse.cc
index f34ef09..3f0f4d1 100644 (file)
--- a/flang/lib/parser/unparse.cc
+++ b/flang/lib/parser/unparse.cc
@@ -836,7 +836,7 @@ public:
     Walk(std::get<2>(x.t));  // right
   }
   void Unparse(const DefinedOpName &x) {  // R1003, R1023, R1414, & R1415
-    Put('.'), Walk(x.v), Put('.');
+    Walk(x.v);
   }
   void Unparse(const AssignmentStmt &x) {  // R1032
     Walk(x.t, " = ");