[flang] Fix bug parsing "implicit none(type)"
"implicit none(type)" was being recognized as "implicit none(external)". Original-commit: flang-compiler/f18@0cc8867836 Reviewed-on: https://github.com/flang-compiler/f18/pull/36
This commit is contained in:
parent
fc89541e96
commit
dcc4dd8627
|
@ -1425,7 +1425,7 @@ TYPE_PARSER("VOLATILE" >> maybe("::"_tok) >>
|
||||||
// R866 implicit-name-spec -> EXTERNAL | TYPE
|
// R866 implicit-name-spec -> EXTERNAL | TYPE
|
||||||
constexpr auto implicitNameSpec = "EXTERNAL" >>
|
constexpr auto implicitNameSpec = "EXTERNAL" >>
|
||||||
pure(ImplicitStmt::ImplicitNoneNameSpec::External) ||
|
pure(ImplicitStmt::ImplicitNoneNameSpec::External) ||
|
||||||
"TYPE" >> pure(ImplicitStmt::ImplicitNoneNameSpec::External);
|
"TYPE" >> pure(ImplicitStmt::ImplicitNoneNameSpec::Type);
|
||||||
|
|
||||||
// R863 implicit-stmt ->
|
// R863 implicit-stmt ->
|
||||||
// IMPLICIT implicit-spec-list |
|
// IMPLICIT implicit-spec-list |
|
||||||
|
|
Loading…
Reference in a new issue