maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Fix flang-compiler/f18#765 

Original-commit: flang-compiler/f18@bb2ffac717
Reviewed-on: https://github.com/flang-compiler/f18/pull/766
This commit is contained in:
peter klausler 2019-09-27 14:08:09 -07:00
parent 75c912e5ed
commit 6e7ed4fb4d
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
flang/lib/parser/unparse.cc
View File

@ -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));
}