diff --git a/flang/include/flang/Parser/parse-tree.h b/flang/include/flang/Parser/parse-tree.h index 85e8121dd1250c..26b2e5f4e34b06 100644 --- a/flang/include/flang/Parser/parse-tree.h +++ b/flang/include/flang/Parser/parse-tree.h @@ -3317,7 +3317,7 @@ struct CompilerDirective { TUPLE_CLASS_BOILERPLATE(NameValue); std::tuple> t; }; - struct Unrecognized {}; + EMPTY_CLASS(Unrecognized); CharBlock source; std::variant, LoopCount, std::list, std::list, Unrecognized> diff --git a/flang/lib/Parser/Fortran-parsers.cpp b/flang/lib/Parser/Fortran-parsers.cpp index fd28eea0f947d2..21185694227d98 100644 --- a/flang/lib/Parser/Fortran-parsers.cpp +++ b/flang/lib/Parser/Fortran-parsers.cpp @@ -1280,9 +1280,8 @@ TYPE_PARSER(beginDirective >> "DIR$ "_tok >> many(construct( name, maybe(("="_tok || ":"_tok) >> digitString64))))) / endOfStmt || - construct( - SkipTo<'\n'>{} >> pure()) / - endOfStmt)) + construct(pure()) / + SkipTo<'\n'>{})) TYPE_PARSER(extension( "nonstandard usage: based POINTER"_port_en_US,