[flang] Fixes infinite loop in tests

Original-commit: flang-compiler/f18@2fa96b7734
Reviewed-on: https://github.com/flang-compiler/f18/pull/279
This commit is contained in:
Eric Schweitz 2019-02-07 16:41:18 -08:00
parent 922ae38b83
commit 748860b684
1 changed files with 3 additions and 3 deletions

View File

@ -229,9 +229,9 @@ public:
// see 11.1.1
bool Pre(const parser::ProgramUnit &) { return PushNewScope(); }
bool Pre(const parser::FunctionSubprogram &) { return PushNewScope(); }
bool Pre(const parser::SubroutineSubprogram &) { return PushNewScope(); }
bool Pre(const parser::SeparateModuleSubprogram &) { return PushNewScope(); }
bool Pre(const parser::FunctionSubprogram &) { return PushSubscope(); }
bool Pre(const parser::SubroutineSubprogram &) { return PushSubscope(); }
bool Pre(const parser::SeparateModuleSubprogram &) { return PushSubscope(); }
bool Pre(const parser::AssociateConstruct &associateConstruct) {
return PushConstructName(associateConstruct);
}