[flang] semantic checks for Master construct

Original-commit: flang-compiler/f18@b052a71062
Reviewed-on: https://github.com/flang-compiler/f18/pull/808
Tree-same-pre-rewrite: false
This commit is contained in:
sameeranjoshi17 2019-11-03 23:08:26 +05:30
parent ab024b7397
commit e2166e1ca0
1 changed files with 4 additions and 0 deletions

View File

@ -454,6 +454,10 @@ void OmpStructureChecker::Enter(const parser::OpenMPBlockConstruct &x) {
SetContextAllowedOnce({OmpClause::DEVICE});
SetContextRequired({OmpClause::MAP});
} break;
// 2.13.1 master (no clauses are allowed)
case parser::OmpBlockDirective::Directive::Master:
PushContext(beginDir.source, OmpDirective::MASTER);
break;
default:
// TODO others
break;