[flang] Fix space in issue unparse.cc between directive and its first clause.

Original-commit: flang-compiler/f18@d9478c1a59
Reviewed-on: https://github.com/flang-compiler/f18/pull/96
Tree-same-pre-rewrite: false

flang/lib/parser/unparse.cc

@@ -1827,6 +1827,11 @@ public:
     Walk(x.v);
     Put(")");
   }
+  void Unparse(const OmpClause::Simdlen &x) {
+    Word("SIMDLEN(");
+    Walk(x.v);
+    Put(")");
+  }
   void Unparse(const OmpClause::ThreadLimit &x) {
     Word("THREADLIMIT(");
     Walk(x.v);
@@ -1856,92 +1861,92 @@ public:
     std::visit(
         visitors{[&](const OmpLoopDirective::DistributeParallelDoSimd &y) {
                    Word("DISTRIBUTE PARALLEL DO SIMD ");
-                   Walk(y.v);
+                   Walk(y.v, " ");
                  },
             [&](const OmpLoopDirective::DistributeParallelDo &y) {
               Word("DISTRIBUTE PARALLEL DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::DistributeSimd &y) {
               Word("DISTRIBUTE SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::Distribute &y) {
               Word("DISTRIBUTE ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::DoSimd &y) {
               Word("DO SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::Do &y) {
               Word("DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::ParallelDoSimd &y) {
               Word("PARALLEL DO SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::ParallelDo &y) {
               Word("PARALLEL DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::Simd &y) {
               Word("SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetParallelDoSimd &y) {
               Word("TARGET PARALLEL DO SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetParallelDo &y) {
               Word("TARGET PARALLEL DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetTeamsDistributeParallelDoSimd
                     &y) {
               Word("TARGET TEAMS DISTRIBUTE PARALLEL DO SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetTeamsDistributeParallelDo &y) {
               Word("TARGET TEAMS DISTRIBUTE PARALLEL DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetTeamsDistributeSimd &y) {
               Word("TARGET TEAMS DISTRIBUTE SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetTeamsDistribute &y) {
               Word("TARGET TEAMS DISTRIBUTE ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TargetSimd &y) {
               Word("TARGET SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TaskloopSimd &y) {
               Word("TASKLOOP SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::Taskloop &y) {
               Word("TASKLOOP ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TeamsDistributeParallelDoSimd &y) {
               Word("TEAMS DISTRIBUTE PARALLEL DO SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TeamsDistributeParallelDo &y) {
               Word("TEAMS DISTRIBUTE PARALLEL DO ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TeamsDistributeSimd &y) {
               Word("TEAMS DISTRIBUTE SIMD ");
-              Walk(y.v);
+              Walk(y.v, " ");
             },
             [&](const OmpLoopDirective::TeamsDistribute &y) {
               Word("TEAMS DISTRIBUTE ");
-              Walk(y.v);
+              Walk(y.v, " ");
             }},
         x.u);
     Put("\n");
@@ -1950,39 +1955,39 @@ public:
   void Unparse(const OmpStandaloneDirective &x) {
     std::visit(visitors{[&](const OmpStandaloneDirective::Barrier &y) {
                           Word("BARRIER ");
-                          Walk(y.v);
+                          Walk(y.v, " ");
                         },
                    [&](const OmpStandaloneDirective::CancellationPoint &y) {
                      Word("CANCELLATION POINT ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::Cancel &y) {
                      Word("CANCEL ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::Flush &y) {
                      Word("FLUSH ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::TargetEnterData &y) {
                      Word("TARGET ENTER DATA ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::TargetExitData &y) {
                      Word("TARGET EXIT DATA ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::TargetUpdate &y) {
                      Word("TARGET UPDATE ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::Taskwait &y) {
                      Word("TASKWAIT ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    },
                    [&](const OmpStandaloneDirective::Taskyield &y) {
                      Word("TASKYIELD ");
-                     Walk(y.v);
+                     Walk(y.v, " ");
                    }},
         x.u);
     Put("\n");