forked from OSchip/llvm-project
[flang] [OpenMP] fix type for `Final` clause
The type should be `ScalarLogicalExpr`. Original-commit: flang-compiler/f18@97e4282d7c
This commit is contained in:
parent
658cf65249
commit
77ed1df8a7
|
@ -181,8 +181,8 @@ TYPE_PARSER("ALIGNED" >>
|
|||
parenthesized(scalarIntExpr))) ||
|
||||
"DIST_SCHEDULE" >> construct<OmpClause>(construct<OmpClause::DistSchedule>(
|
||||
parenthesized("STATIC ," >> scalarIntExpr))) ||
|
||||
"FINAL" >> construct<OmpClause>(
|
||||
construct<OmpClause::Final>(parenthesized(scalarIntExpr))) ||
|
||||
"FINAL" >> construct<OmpClause>(construct<OmpClause::Final>(
|
||||
parenthesized(scalarLogicalExpr))) ||
|
||||
"FIRSTPRIVATE" >> construct<OmpClause>(construct<OmpClause::Firstprivate>(
|
||||
parenthesized(Parser<OmpObjectList>{}))) ||
|
||||
"FROM" >> construct<OmpClause>(construct<OmpClause::From>(
|
||||
|
|
|
@ -3442,7 +3442,7 @@ struct OmpClause {
|
|||
WRAPPER_CLASS(Copyprivate, OmpObjectList);
|
||||
WRAPPER_CLASS(Device, ScalarIntExpr);
|
||||
WRAPPER_CLASS(DistSchedule, ScalarIntExpr);
|
||||
WRAPPER_CLASS(Final, ScalarIntExpr);
|
||||
WRAPPER_CLASS(Final, ScalarLogicalExpr);
|
||||
WRAPPER_CLASS(Firstprivate, OmpObjectList);
|
||||
WRAPPER_CLASS(From, OmpObjectList);
|
||||
WRAPPER_CLASS(Grainsize, ScalarIntExpr);
|
||||
|
|
Loading…
Reference in New Issue