diff options
Diffstat (limited to 'flang/lib/Parser/Fortran-parsers.cpp')
| -rw-r--r-- | flang/lib/Parser/Fortran-parsers.cpp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/flang/lib/Parser/Fortran-parsers.cpp b/flang/lib/Parser/Fortran-parsers.cpp index fbe629a..d33a18f 100644 --- a/flang/lib/Parser/Fortran-parsers.cpp +++ b/flang/lib/Parser/Fortran-parsers.cpp @@ -1100,14 +1100,14 @@ TYPE_PARSER(construct<EquivalenceObject>(indirect(designator))) // R873 common-stmt -> // COMMON [/ [common-block-name] /] common-block-object-list // [[,] / [common-block-name] / common-block-object-list]... -TYPE_PARSER( +TYPE_PARSER(sourced( construct<CommonStmt>("COMMON" >> defaulted("/" >> maybe(name) / "/"), nonemptyList("expected COMMON block objects"_err_en_US, Parser<CommonBlockObject>{}), many(maybe(","_tok) >> construct<CommonStmt::Block>("/" >> maybe(name) / "/", nonemptyList("expected COMMON block objects"_err_en_US, - Parser<CommonBlockObject>{}))))) + Parser<CommonBlockObject>{})))))) // R874 common-block-object -> variable-name [( array-spec )] TYPE_PARSER(construct<CommonBlockObject>(name, maybe(arraySpec))) |