squiid/llvm
1
0
Fork 0
Code Issues Pull requests Activity

[flang] Fix bug parsing "implicit none(type)"

Browse source 
"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:
Tim Keith 2018-04-02 10:36:51 -07:00 committed by GitHub
parent fc89541e96
commit dcc4dd8627
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/grammar.h
View file

@ -1425,7 +1425,7 @@ TYPE_PARSER("VOLATILE" >> maybe("::"_tok) >>
// R866 implicit-name-spec -> EXTERNAL | TYPE
constexpr auto implicitNameSpec = "EXTERNAL" >>
pure(ImplicitStmt::ImplicitNoneNameSpec::External) ||
"TYPE" >> pure(ImplicitStmt::ImplicitNoneNameSpec::External);
"TYPE" >> pure(ImplicitStmt::ImplicitNoneNameSpec::Type);
// R863 implicit-stmt ->
// IMPLICIT implicit-spec-list |