diff options
Diffstat (limited to 'flang/lib/Parser/executable-parsers.cpp')
| -rw-r--r-- | flang/lib/Parser/executable-parsers.cpp | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/flang/lib/Parser/executable-parsers.cpp b/flang/lib/Parser/executable-parsers.cpp index df1e7ba..160b2dc 100644 --- a/flang/lib/Parser/executable-parsers.cpp +++ b/flang/lib/Parser/executable-parsers.cpp @@ -121,7 +121,7 @@ TYPE_PARSER(first(construct<ActionStmt>(indirect(Parser<AllocateStmt>{})), construct<ActionStmt>(indirect(Parser<ReadStmt>{})), construct<ActionStmt>(indirect(Parser<ReturnStmt>{})), construct<ActionStmt>(indirect(Parser<RewindStmt>{})), - construct<ActionStmt>(indirect(Parser<StopStmt>{})), // & error-stop-stmt + construct<ActionStmt>(indirect(Parser<StopStmt>{})), // & error-stop-stmt construct<ActionStmt>(indirect(Parser<SyncAllStmt>{})), construct<ActionStmt>(indirect(Parser<SyncImagesStmt>{})), construct<ActionStmt>(indirect(Parser<SyncMemoryStmt>{})), @@ -163,7 +163,7 @@ TYPE_PARSER(construct<EndAssociateStmt>( // block-stmt [block-specification-part] block end-block-stmt TYPE_CONTEXT_PARSER("BLOCK construct"_en_US, construct<BlockConstruct>(statement(Parser<BlockStmt>{}), - Parser<BlockSpecificationPart>{}, // can be empty + Parser<BlockSpecificationPart>{}, // can be empty block, statement(Parser<EndBlockStmt>{}))) // R1108 block-stmt -> [block-construct-name :] BLOCK @@ -522,4 +522,4 @@ TYPE_CONTEXT_PARSER("UNLOCK statement"_en_US, construct<UnlockStmt>("UNLOCK (" >> lockVariable, defaulted("," >> nonemptyList(statOrErrmsg)) / ")")) -} +} // namespace Fortran::parser |