forked from OSchip/llvm-project
1160 lines
47 KiB
C++
1160 lines
47 KiB
C++
//===-- lib/Semantics/check-omp-structure.cpp -----------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "check-omp-structure.h"
|
|
#include "flang/Parser/parse-tree.h"
|
|
#include "flang/Semantics/tools.h"
|
|
#include <unordered_map>
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
static constexpr inline OmpClauseSet doAllowedClauses{OmpClause::PRIVATE,
|
|
OmpClause::FIRSTPRIVATE, OmpClause::LASTPRIVATE, OmpClause::LINEAR,
|
|
OmpClause::REDUCTION};
|
|
static constexpr inline OmpClauseSet doAllowedOnceClauses{
|
|
OmpClause::SCHEDULE, OmpClause::COLLAPSE, OmpClause::ORDERED};
|
|
|
|
static constexpr inline OmpClauseSet simdAllowedClauses{OmpClause::LINEAR,
|
|
OmpClause::ALIGNED, OmpClause::PRIVATE, OmpClause::LASTPRIVATE,
|
|
OmpClause::REDUCTION};
|
|
static constexpr inline OmpClauseSet simdAllowedOnceClauses{
|
|
OmpClause::COLLAPSE, OmpClause::SAFELEN, OmpClause::SIMDLEN};
|
|
|
|
static constexpr inline OmpClauseSet parallelAllowedClauses{OmpClause::DEFAULT,
|
|
OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE, OmpClause::SHARED,
|
|
OmpClause::COPYIN, OmpClause::REDUCTION};
|
|
static constexpr inline OmpClauseSet parallelAllowedOnceClauses{
|
|
OmpClause::IF, OmpClause::NUM_THREADS, OmpClause::PROC_BIND};
|
|
|
|
static constexpr inline OmpClauseSet taskloopAllowedClauses{OmpClause::SHARED,
|
|
OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE, OmpClause::LASTPRIVATE,
|
|
OmpClause::DEFAULT, OmpClause::UNTIED, OmpClause::MERGEABLE,
|
|
OmpClause::NOGROUP};
|
|
static constexpr inline OmpClauseSet taskloopAllowedOnceClauses{
|
|
OmpClause::COLLAPSE, OmpClause::IF, OmpClause::FINAL, OmpClause::PRIORITY};
|
|
static constexpr inline OmpClauseSet taskloopAllowedExclusiveClauses{
|
|
OmpClause::GRAINSIZE, OmpClause::NUM_TASKS};
|
|
|
|
static constexpr inline OmpClauseSet distributeAllowedClauses{
|
|
OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE, OmpClause::LASTPRIVATE};
|
|
static constexpr inline OmpClauseSet distributeAllowedOnceClauses{
|
|
OmpClause::COLLAPSE, OmpClause::DIST_SCHEDULE};
|
|
|
|
static constexpr inline OmpClauseSet targetAllowedClauses{OmpClause::IF,
|
|
OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE, OmpClause::MAP,
|
|
OmpClause::IS_DEVICE_PTR, OmpClause::DEPEND};
|
|
static constexpr inline OmpClauseSet targetAllowedOnceClauses{
|
|
OmpClause::DEVICE, OmpClause::DEFAULTMAP, OmpClause::NOWAIT};
|
|
|
|
static constexpr inline OmpClauseSet teamsAllowedClauses{OmpClause::PRIVATE,
|
|
OmpClause::FIRSTPRIVATE, OmpClause::SHARED, OmpClause::REDUCTION};
|
|
static constexpr inline OmpClauseSet teamsAllowedOnceClauses{
|
|
OmpClause::NUM_TEAMS, OmpClause::THREAD_LIMIT, OmpClause::DEFAULT};
|
|
|
|
static constexpr inline OmpClauseSet sectionsAllowedClauses{OmpClause::PRIVATE,
|
|
OmpClause::FIRSTPRIVATE, OmpClause::LASTPRIVATE, OmpClause::REDUCTION};
|
|
|
|
std::string OmpStructureChecker::ContextDirectiveAsFortran() {
|
|
auto dir{EnumToString(GetContext().directive)};
|
|
std::replace(dir.begin(), dir.end(), '_', ' ');
|
|
return dir;
|
|
}
|
|
|
|
void OmpStructureChecker::SayNotMatching(
|
|
const parser::CharBlock &beginSource, const parser::CharBlock &endSource) {
|
|
context_
|
|
.Say(endSource, "Unmatched %s directive"_err_en_US,
|
|
parser::ToUpperCaseLetters(endSource.ToString()))
|
|
.Attach(beginSource, "Does not match directive"_en_US);
|
|
}
|
|
|
|
bool OmpStructureChecker::HasInvalidWorksharingNesting(
|
|
const parser::CharBlock &source, const OmpDirectiveSet &set) {
|
|
// set contains all the invalid closely nested directives
|
|
// for the given directive (`source` here)
|
|
if (CurrentDirectiveIsNested() && set.test(GetContext().directive)) {
|
|
context_.Say(source,
|
|
"A worksharing region may not be closely nested inside a "
|
|
"worksharing, explicit task, taskloop, critical, ordered, atomic, or "
|
|
"master region"_err_en_US);
|
|
return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
void OmpStructureChecker::CheckAllowed(OmpClause type) {
|
|
if (!GetContext().allowedClauses.test(type) &&
|
|
!GetContext().allowedOnceClauses.test(type) &&
|
|
!GetContext().allowedExclusiveClauses.test(type)) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"%s clause is not allowed on the %s directive"_err_en_US,
|
|
EnumToString(type),
|
|
parser::ToUpperCaseLetters(GetContext().directiveSource.ToString()));
|
|
return;
|
|
}
|
|
if ((GetContext().allowedOnceClauses.test(type) ||
|
|
GetContext().allowedExclusiveClauses.test(type)) &&
|
|
FindClause(type)) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"At most one %s clause can appear on the %s directive"_err_en_US,
|
|
EnumToString(type),
|
|
parser::ToUpperCaseLetters(GetContext().directiveSource.ToString()));
|
|
return;
|
|
}
|
|
if (GetContext().allowedExclusiveClauses.test(type)) {
|
|
std::vector<OmpClause> others;
|
|
GetContext().allowedExclusiveClauses.IterateOverMembers([&](OmpClause o) {
|
|
if (FindClause(o)) {
|
|
others.emplace_back(o);
|
|
}
|
|
});
|
|
for (const auto &e : others) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"%s and %s are mutually exclusive and may not appear on the "
|
|
"same %s directive"_err_en_US,
|
|
EnumToString(type), EnumToString(e),
|
|
parser::ToUpperCaseLetters(GetContext().directiveSource.ToString()));
|
|
}
|
|
if (!others.empty()) {
|
|
return;
|
|
}
|
|
}
|
|
SetContextClauseInfo(type);
|
|
}
|
|
|
|
void OmpStructureChecker::CheckRequired(OmpClause c) {
|
|
if (!FindClause(c)) {
|
|
context_.Say(GetContext().directiveSource,
|
|
"At least one %s clause must appear on the %s directive"_err_en_US,
|
|
EnumToString(c), ContextDirectiveAsFortran());
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::RequiresConstantPositiveParameter(
|
|
const OmpClause &clause, const parser::ScalarIntConstantExpr &i) {
|
|
if (const auto v{GetIntValue(i)}) {
|
|
if (*v <= 0) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"The parameter of the %s clause must be "
|
|
"a constant positive integer expression"_err_en_US,
|
|
EnumToString(clause));
|
|
}
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::RequiresPositiveParameter(
|
|
const OmpClause &clause, const parser::ScalarIntExpr &i) {
|
|
if (const auto v{GetIntValue(i)}) {
|
|
if (*v <= 0) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"The parameter of the %s clause must be "
|
|
"a positive integer expression"_err_en_US,
|
|
EnumToString(clause));
|
|
}
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPConstruct &) {
|
|
// 2.8.1 TODO: Simd Construct with Ordered Construct Nesting check
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPLoopConstruct &x) {
|
|
const auto &beginLoopDir{std::get<parser::OmpBeginLoopDirective>(x.t)};
|
|
const auto &beginDir{std::get<parser::OmpLoopDirective>(beginLoopDir.t)};
|
|
|
|
// check matching, End directive is optional
|
|
if (const auto &endLoopDir{
|
|
std::get<std::optional<parser::OmpEndLoopDirective>>(x.t)}) {
|
|
CheckMatching<parser::OmpLoopDirective>(beginLoopDir, *endLoopDir);
|
|
}
|
|
|
|
switch (beginDir.v) {
|
|
// 2.7.1 do-clause -> private-clause |
|
|
// firstprivate-clause |
|
|
// lastprivate-clause |
|
|
// linear-clause |
|
|
// reduction-clause |
|
|
// schedule-clause |
|
|
// collapse-clause |
|
|
// ordered-clause
|
|
case parser::OmpLoopDirective::Directive::Do: {
|
|
// nesting check
|
|
HasInvalidWorksharingNesting(beginDir.source,
|
|
{OmpDirective::DO, OmpDirective::SECTIONS, OmpDirective::SINGLE,
|
|
OmpDirective::WORKSHARE, OmpDirective::TASK, OmpDirective::TASKLOOP,
|
|
OmpDirective::CRITICAL, OmpDirective::ORDERED, OmpDirective::ATOMIC,
|
|
OmpDirective::MASTER});
|
|
|
|
PushContext(beginDir.source, OmpDirective::DO);
|
|
SetContextAllowed(doAllowedClauses);
|
|
SetContextAllowedOnce(doAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.1 parallel-do-clause -> parallel-clause |
|
|
// do-clause
|
|
case parser::OmpLoopDirective::Directive::ParallelDo: {
|
|
PushContext(beginDir.source, OmpDirective::PARALLEL_DO);
|
|
SetContextAllowed(parallelAllowedClauses | doAllowedClauses);
|
|
SetContextAllowedOnce(parallelAllowedOnceClauses | doAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.8.1 simd-clause -> safelen-clause |
|
|
// simdlen-clause |
|
|
// linear-clause |
|
|
// aligned-clause |
|
|
// private-clause |
|
|
// lastprivate-clause |
|
|
// reduction-clause |
|
|
// collapse-clause
|
|
case parser::OmpLoopDirective::Directive::Simd: {
|
|
PushContext(beginDir.source, OmpDirective::SIMD);
|
|
SetContextAllowed(simdAllowedClauses);
|
|
SetContextAllowedOnce(simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.8.3 do-simd-clause -> do-clause |
|
|
// simd-clause
|
|
case parser::OmpLoopDirective::Directive::DoSimd: {
|
|
PushContext(beginDir.source, OmpDirective::DO_SIMD);
|
|
SetContextAllowed(doAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(doAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.4 parallel-do-simd-clause -> parallel-clause |
|
|
// do-simd-clause
|
|
case parser::OmpLoopDirective::Directive::ParallelDoSimd: {
|
|
PushContext(beginDir.source, OmpDirective::PARALLEL_DO_SIMD);
|
|
SetContextAllowed(
|
|
parallelAllowedClauses | doAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(parallelAllowedOnceClauses | doAllowedOnceClauses |
|
|
simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.9.2 taskloop-clause -> if-clause |
|
|
// shared-clause |
|
|
// private-clause |
|
|
// firstprivate-clause |
|
|
// lastprivate-clause |
|
|
// default-clause |
|
|
// grainsize-clause |
|
|
// num-tasks-clause |
|
|
// collapse-clause |
|
|
// final-clause |
|
|
// priority-clause |
|
|
// untied-clause |
|
|
// mergeable-clause |
|
|
// nogroup-clause
|
|
case parser::OmpLoopDirective::Directive::Taskloop: {
|
|
PushContext(beginDir.source, OmpDirective::TASKLOOP);
|
|
SetContextAllowed(taskloopAllowedClauses);
|
|
SetContextAllowedOnce(taskloopAllowedOnceClauses);
|
|
SetContextAllowedExclusive(taskloopAllowedExclusiveClauses);
|
|
} break;
|
|
|
|
// 2.9.3 taskloop-simd-clause -> taskloop-clause |
|
|
// simd-clause
|
|
case parser::OmpLoopDirective::Directive::TaskloopSimd: {
|
|
PushContext(beginDir.source, OmpDirective::TASKLOOP_SIMD);
|
|
SetContextAllowed(
|
|
(taskloopAllowedClauses | simdAllowedClauses) - OmpClause::REDUCTION);
|
|
SetContextAllowedOnce(taskloopAllowedOnceClauses | simdAllowedOnceClauses);
|
|
SetContextAllowedExclusive(taskloopAllowedExclusiveClauses);
|
|
} break;
|
|
|
|
// 2.10.8 distribute-clause -> private-clause |
|
|
// firstprivate-clause |
|
|
// lastprivate-clause |
|
|
// collapse-clause |
|
|
// dist-schedule-clause
|
|
case parser::OmpLoopDirective::Directive::Distribute: {
|
|
PushContext(beginDir.source, OmpDirective::DISTRIBUTE);
|
|
SetContextAllowed(distributeAllowedClauses);
|
|
SetContextAllowedOnce(distributeAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.10.9 distribute-simd-clause -> distribute-clause |
|
|
// simd-clause
|
|
case parser::OmpLoopDirective::Directive::DistributeSimd: {
|
|
PushContext(beginDir.source, OmpDirective::DISTRIBUTE_SIMD);
|
|
SetContextAllowed(distributeAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(
|
|
distributeAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.10.10 distribute-parallel-do-clause -> distribute-clause |
|
|
// parallel-do-clause
|
|
case parser::OmpLoopDirective::Directive::DistributeParallelDo: {
|
|
PushContext(beginDir.source, OmpDirective::DISTRIBUTE_PARALLEL_DO);
|
|
SetContextAllowed(
|
|
distributeAllowedClauses | parallelAllowedClauses | doAllowedClauses);
|
|
SetContextAllowedOnce(distributeAllowedOnceClauses |
|
|
parallelAllowedOnceClauses | doAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.10.11 distribute-parallel-do-simd-clause -> distribute-clause |
|
|
// parallel-do-simd-clause
|
|
case parser::OmpLoopDirective::Directive::DistributeParallelDoSimd: {
|
|
PushContext(beginDir.source, OmpDirective::DISTRIBUTE_PARALLEL_DO_SIMD);
|
|
SetContextAllowed(distributeAllowedClauses | parallelAllowedClauses |
|
|
doAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(distributeAllowedOnceClauses |
|
|
parallelAllowedOnceClauses | doAllowedOnceClauses | simdAllowedClauses);
|
|
} break;
|
|
|
|
// 2.11.6 target-parallel-do-clause -> target-clause |
|
|
// parallel-do-clause
|
|
case parser::OmpLoopDirective::Directive::TargetParallelDo: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_PARALLEL_DO);
|
|
SetContextAllowed(
|
|
targetAllowedClauses | parallelAllowedClauses | doAllowedClauses);
|
|
SetContextAllowedOnce(
|
|
(targetAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses) -
|
|
OmpClause::NOWAIT);
|
|
} break;
|
|
|
|
// 2.11.7 target-parallel-do-simd-clause -> target-clause |
|
|
// parallel-do-simd-clause
|
|
case parser::OmpLoopDirective::Directive::TargetParallelDoSimd: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_PARALLEL_DO_SIMD);
|
|
SetContextAllowed(targetAllowedClauses | parallelAllowedClauses |
|
|
doAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(
|
|
(targetAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses | simdAllowedOnceClauses) -
|
|
OmpClause::NOWAIT);
|
|
} break;
|
|
|
|
// 2.11.8 target-simd-clause -> target-clause |
|
|
// simd-clause
|
|
case parser::OmpLoopDirective::Directive::TargetSimd: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_SIMD);
|
|
SetContextAllowed(targetAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.10 teams-distribute-clause -> teams-clause |
|
|
// distribute-clause
|
|
case parser::OmpLoopDirective::Directive::TeamsDistribute: {
|
|
PushContext(beginDir.source, OmpDirective::TEAMS_DISTRIBUTE);
|
|
SetContextAllowed(teamsAllowedClauses | distributeAllowedClauses);
|
|
SetContextAllowedOnce(
|
|
teamsAllowedOnceClauses | distributeAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.11 teams-distribute-simd-clause -> teams-clause |
|
|
// distribute-simd-clause
|
|
case parser::OmpLoopDirective::Directive::TeamsDistributeSimd: {
|
|
PushContext(beginDir.source, OmpDirective::TEAMS_DISTRIBUTE_SIMD);
|
|
SetContextAllowed(
|
|
teamsAllowedClauses | distributeAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.12 target-teams-distribute-clause -> target-clause |
|
|
// teams-distribute-clause
|
|
case parser::OmpLoopDirective::Directive::TargetTeamsDistribute: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_TEAMS_DISTRIBUTE);
|
|
SetContextAllowed(
|
|
targetAllowedClauses | teamsAllowedClauses | distributeAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses | teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.13 target-teams-distribute-simd-clause -> target-clause |
|
|
// teams-distribute-simd-clause
|
|
case parser::OmpLoopDirective::Directive::TargetTeamsDistributeSimd: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_TEAMS_DISTRIBUTE_SIMD);
|
|
SetContextAllowed(targetAllowedClauses | teamsAllowedClauses |
|
|
distributeAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowed(targetAllowedOnceClauses | teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.14 teams-distribute-parallel-do-clause -> teams-clause |
|
|
// distribute-parallel-do-clause
|
|
case parser::OmpLoopDirective::Directive::TeamsDistributeParallelDo: {
|
|
PushContext(beginDir.source, OmpDirective::TEAMS_DISTRIBUTE_PARALLEL_DO);
|
|
SetContextAllowed(teamsAllowedClauses | distributeAllowedClauses |
|
|
parallelAllowedClauses | doAllowedClauses);
|
|
SetContextAllowedOnce(teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.15 target-teams-distribute-parallel-do-clause -> target-clause |
|
|
// teams-distribute-parallel-do-clause
|
|
case parser::OmpLoopDirective::Directive::TargetTeamsDistributeParallelDo: {
|
|
PushContext(
|
|
beginDir.source, OmpDirective::TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO);
|
|
SetContextAllowed(targetAllowedClauses | teamsAllowedClauses |
|
|
distributeAllowedClauses | parallelAllowedClauses | doAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses | teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses);
|
|
} break;
|
|
|
|
// 2.11.16 teams-distribute-parallel-do-clause -> teams-clause |
|
|
// distribute-parallel-do-simd-clause
|
|
case parser::OmpLoopDirective::Directive::TeamsDistributeParallelDoSimd: {
|
|
PushContext(
|
|
beginDir.source, OmpDirective::TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD);
|
|
SetContextAllowed(teamsAllowedClauses | distributeAllowedClauses |
|
|
parallelAllowedClauses | doAllowedClauses | simdAllowedClauses);
|
|
SetContextAllowedOnce(teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses | simdAllowedOnceClauses);
|
|
} break;
|
|
|
|
case parser::OmpLoopDirective::Directive::
|
|
TargetTeamsDistributeParallelDoSimd: {
|
|
PushContext(beginDir.source,
|
|
OmpDirective::TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD);
|
|
SetContextAllowed(targetAllowedClauses | teamsAllowedClauses |
|
|
distributeAllowedClauses | parallelAllowedClauses | doAllowedClauses |
|
|
simdAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses | teamsAllowedOnceClauses |
|
|
distributeAllowedOnceClauses | parallelAllowedOnceClauses |
|
|
doAllowedOnceClauses | simdAllowedOnceClauses);
|
|
}
|
|
|
|
// TODO others
|
|
break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPLoopConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpEndLoopDirective &x) {
|
|
const auto &dir{std::get<parser::OmpLoopDirective>(x.t)};
|
|
ResetPartialContext(dir.source);
|
|
switch (dir.v) {
|
|
// 2.7.1 end-do -> END DO [nowait-clause]
|
|
// 2.8.3 end-do-simd -> END DO SIMD [nowait-clause]
|
|
case parser::OmpLoopDirective::Directive::Do:
|
|
SetContextDirectiveEnum(OmpDirective::END_DO);
|
|
SetContextAllowed(OmpClauseSet{OmpClause::NOWAIT});
|
|
break;
|
|
case parser::OmpLoopDirective::Directive::DoSimd:
|
|
SetContextDirectiveEnum(OmpDirective::END_DO_SIMD);
|
|
SetContextAllowed(OmpClauseSet{OmpClause::NOWAIT});
|
|
break;
|
|
default:
|
|
// no clauses are allowed
|
|
break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPBlockConstruct &x) {
|
|
const auto &beginBlockDir{std::get<parser::OmpBeginBlockDirective>(x.t)};
|
|
const auto &endBlockDir{std::get<parser::OmpEndBlockDirective>(x.t)};
|
|
const auto &beginDir{
|
|
CheckMatching<parser::OmpBlockDirective>(beginBlockDir, endBlockDir)};
|
|
|
|
switch (beginDir.v) {
|
|
// 2.5 parallel-clause -> if-clause |
|
|
// num-threads-clause |
|
|
// default-clause |
|
|
// private-clause |
|
|
// firstprivate-clause |
|
|
// shared-clause |
|
|
// copyin-clause |
|
|
// reduction-clause |
|
|
// proc-bind-clause
|
|
case parser::OmpBlockDirective::Directive::Parallel: {
|
|
// reserve for nesting check
|
|
PushContext(beginDir.source, OmpDirective::PARALLEL);
|
|
SetContextAllowed(parallelAllowedClauses);
|
|
SetContextAllowedOnce(parallelAllowedOnceClauses);
|
|
} break;
|
|
// 2.7.3 single-clause -> private-clause |
|
|
// firstprivate-clause
|
|
case parser::OmpBlockDirective::Directive::Single:
|
|
PushContext(beginDir.source, OmpDirective::SINGLE);
|
|
SetContextAllowed({OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE});
|
|
break;
|
|
// 2.7.4 workshare (no clauses are allowed)
|
|
case parser::OmpBlockDirective::Directive::Workshare:
|
|
PushContext(beginDir.source, OmpDirective::WORKSHARE);
|
|
break;
|
|
// 2.11.3 parallel-workshare-clause -> parallel-clause
|
|
case parser::OmpBlockDirective::Directive::ParallelWorkshare: {
|
|
PushContext(beginDir.source, OmpDirective::PARALLEL_WORKSHARE);
|
|
SetContextAllowed(parallelAllowedClauses);
|
|
SetContextAllowedOnce(parallelAllowedOnceClauses);
|
|
} break;
|
|
// 2.9.1 task-clause -> if-clause |
|
|
// final-clause |
|
|
// untied-clause |
|
|
// default-clause |
|
|
// mergeable-clause |
|
|
// private-clause |
|
|
// firstprivate-clause |
|
|
// shared-clause |
|
|
// depend-clause |
|
|
// priority-clause
|
|
case parser::OmpBlockDirective::Directive::Task: {
|
|
PushContext(beginDir.source, OmpDirective::TASK);
|
|
OmpClauseSet allowed{OmpClause::UNTIED, OmpClause::DEFAULT,
|
|
OmpClause::MERGEABLE, OmpClause::PRIVATE, OmpClause::FIRSTPRIVATE,
|
|
OmpClause::SHARED, OmpClause::DEPEND};
|
|
SetContextAllowed(allowed);
|
|
OmpClauseSet allowedOnce{
|
|
OmpClause::IF, OmpClause::FINAL, OmpClause::PRIORITY};
|
|
SetContextAllowedOnce(allowedOnce);
|
|
} break;
|
|
// 2.10.4 target-clause -> if-clause |
|
|
// device-clause |
|
|
// private-clause |
|
|
// firstprivate-clause |
|
|
// map-clause |
|
|
// is-device-ptr-clause |
|
|
// defaultmap-clause |
|
|
// nowait-clause |
|
|
// depend-clause
|
|
case parser::OmpBlockDirective::Directive::Target: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET);
|
|
SetContextAllowed(targetAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses);
|
|
} break;
|
|
// 2.10.7 teams-clause -> num-teams-clause |
|
|
// thread-limit-clause |
|
|
// default-clause |
|
|
// private-clause |
|
|
// firstprivate-clause |
|
|
// shared-clause |
|
|
// reduction-clause
|
|
case parser::OmpBlockDirective::Directive::Teams: {
|
|
PushContext(beginDir.source, OmpDirective::TEAMS);
|
|
SetContextAllowed(teamsAllowedClauses);
|
|
SetContextAllowedOnce(teamsAllowedOnceClauses);
|
|
} break;
|
|
// 2.11.9 target-teams -> target-clause |
|
|
// teams-clause
|
|
case parser::OmpBlockDirective::Directive::TargetTeams: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_TEAMS);
|
|
SetContextAllowed(targetAllowedClauses | teamsAllowedClauses);
|
|
SetContextAllowedOnce(targetAllowedOnceClauses | teamsAllowedOnceClauses);
|
|
} break;
|
|
// 2.10.1 target-data-clause -> if-clause |
|
|
// device-clause |
|
|
// map-clause |
|
|
// use-device-ptr-clause
|
|
case parser::OmpBlockDirective::Directive::TargetData: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_DATA);
|
|
OmpClauseSet allowed{
|
|
OmpClause::IF, OmpClause::MAP, OmpClause::USE_DEVICE_PTR};
|
|
SetContextAllowed(allowed);
|
|
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;
|
|
// 2.11.5 target-parallel-clause -> target-clause |
|
|
// parallel-clause
|
|
case parser::OmpBlockDirective::Directive::TargetParallel: {
|
|
PushContext(beginDir.source, OmpDirective::TARGET_PARALLEL);
|
|
SetContextAllowed(
|
|
(targetAllowedClauses | parallelAllowedClauses) - OmpClause::COPYIN);
|
|
SetContextAllowedOnce(
|
|
targetAllowedOnceClauses | parallelAllowedOnceClauses);
|
|
} break;
|
|
default:
|
|
// TODO others
|
|
break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPBlockConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPSectionsConstruct &x) {
|
|
const auto &beginSectionsDir{
|
|
std::get<parser::OmpBeginSectionsDirective>(x.t)};
|
|
const auto &endSectionsDir{std::get<parser::OmpEndSectionsDirective>(x.t)};
|
|
const auto &beginDir{CheckMatching<parser::OmpSectionsDirective>(
|
|
beginSectionsDir, endSectionsDir)};
|
|
|
|
switch (beginDir.v) {
|
|
// 2.7.2 sections-clause -> private-clause |
|
|
// firstprivate-clause |
|
|
// lastprivate-clause |
|
|
// reduction-clause
|
|
case parser::OmpSectionsDirective::Directive::Sections: {
|
|
PushContext(beginDir.source, OmpDirective::SECTIONS);
|
|
SetContextAllowed(sectionsAllowedClauses);
|
|
} break;
|
|
// 2.11.2 -> parallel-sections-clause -> parallel-clause |
|
|
// sections-clause
|
|
case parser::OmpSectionsDirective::Directive::ParallelSections: {
|
|
PushContext(beginDir.source, OmpDirective::PARALLEL_SECTIONS);
|
|
SetContextAllowed(parallelAllowedClauses | sectionsAllowedClauses);
|
|
SetContextAllowedOnce(parallelAllowedOnceClauses);
|
|
} break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPSectionsConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpEndSectionsDirective &x) {
|
|
const auto &dir{std::get<parser::OmpSectionsDirective>(x.t)};
|
|
ResetPartialContext(dir.source);
|
|
switch (dir.v) {
|
|
// 2.7.2 end-sections -> END SECTIONS [nowait-clause]
|
|
case parser::OmpSectionsDirective::Directive::Sections:
|
|
SetContextDirectiveEnum(OmpDirective::END_SECTIONS);
|
|
SetContextAllowed(OmpClauseSet{OmpClause::NOWAIT});
|
|
break;
|
|
default:
|
|
// no clauses are allowed
|
|
break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPDeclareSimdConstruct &x) {
|
|
const auto &dir{std::get<parser::Verbatim>(x.t)};
|
|
PushContext(dir.source, OmpDirective::DECLARE_SIMD);
|
|
// 2.8.2 declare-simd-clause -> simdlen-clause |
|
|
// linear-clause |
|
|
// aligned-clause |
|
|
// uniform-clause |
|
|
// inbranch-clause |
|
|
// notinbranch-clause
|
|
OmpClauseSet allowed{
|
|
OmpClause::LINEAR, OmpClause::ALIGNED, OmpClause::UNIFORM};
|
|
SetContextAllowed(allowed);
|
|
SetContextAllowedOnce({OmpClause::SIMDLEN});
|
|
SetContextAllowedExclusive({OmpClause::INBRANCH, OmpClause::NOTINBRANCH});
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPDeclareSimdConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPDeclareTargetConstruct &x) {
|
|
const auto &dir{std::get<parser::Verbatim>(x.t)};
|
|
PushContext(dir.source, OmpDirective::DECLARE_TARGET);
|
|
const auto &spec{std::get<parser::OmpDeclareTargetSpecifier>(x.t)};
|
|
if (std::holds_alternative<parser::OmpDeclareTargetWithClause>(spec.u)) {
|
|
SetContextAllowed(OmpClauseSet{OmpClause::TO, OmpClause::LINK});
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPDeclareTargetConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(
|
|
const parser::OpenMPSimpleStandaloneConstruct &x) {
|
|
const auto &dir{std::get<parser::OmpSimpleStandaloneDirective>(x.t)};
|
|
switch (dir.v) {
|
|
case parser::OmpSimpleStandaloneDirective::Directive::Barrier: {
|
|
// 2.13.3 barrier
|
|
PushContext(dir.source, OmpDirective::BARRIER);
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::Taskwait: {
|
|
// 2.13.4 taskwait
|
|
PushContext(dir.source, OmpDirective::TASKWAIT);
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::Taskyield: {
|
|
// 2.9.4 taskyield
|
|
PushContext(dir.source, OmpDirective::TASKYIELD);
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::TargetEnterData: {
|
|
// 2.10.2 target-enter-data-clause -> if-clause |
|
|
// device-clause |
|
|
// map-clause |
|
|
// depend-clause |
|
|
// nowait-clause
|
|
PushContext(dir.source, OmpDirective::TARGET_ENTER_DATA);
|
|
OmpClauseSet allowed{OmpClause::MAP, OmpClause::DEPEND, OmpClause::NOWAIT};
|
|
SetContextAllowed(allowed);
|
|
OmpClauseSet allowedOnce{OmpClause::DEVICE, OmpClause::IF};
|
|
SetContextAllowedOnce(allowedOnce);
|
|
SetContextRequired({OmpClause::MAP});
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::TargetExitData: {
|
|
// 2.10.3 target-enter-data-clause -> if-clause |
|
|
// device-clause |
|
|
// map-clause |
|
|
// depend-clause |
|
|
// nowait-clause
|
|
PushContext(dir.source, OmpDirective::TARGET_EXIT_DATA);
|
|
OmpClauseSet allowed{OmpClause::MAP, OmpClause::DEPEND, OmpClause::NOWAIT};
|
|
SetContextAllowed(allowed);
|
|
OmpClauseSet allowedOnce{OmpClause::DEVICE, OmpClause::IF};
|
|
SetContextAllowedOnce(allowedOnce);
|
|
SetContextRequired({OmpClause::MAP});
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::TargetUpdate: {
|
|
// 2.10.5 target-update
|
|
PushContext(dir.source, OmpDirective::TARGET_UPDATE);
|
|
} break;
|
|
case parser::OmpSimpleStandaloneDirective::Directive::Ordered: {
|
|
// 2.13.8 ordered-construct-clause -> depend-clause
|
|
PushContext(dir.source, OmpDirective::ORDERED);
|
|
OmpClauseSet allowed{OmpClause::DEPEND};
|
|
SetContextAllowed(allowed);
|
|
} break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(
|
|
const parser::OpenMPSimpleStandaloneConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPFlushConstruct &x) {
|
|
const auto &dir{std::get<parser::Verbatim>(x.t)};
|
|
PushContext(dir.source, OmpDirective::FLUSH);
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPFlushConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OpenMPCancelConstruct &x) {
|
|
const auto &dir{std::get<parser::Verbatim>(x.t)};
|
|
PushContext(dir.source, OmpDirective::CANCEL);
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OpenMPCancelConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(
|
|
const parser::OpenMPCancellationPointConstruct &x) {
|
|
const auto &dir{std::get<parser::Verbatim>(x.t)};
|
|
PushContext(dir.source, OmpDirective::CANCELLATION_POINT);
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(
|
|
const parser::OpenMPCancellationPointConstruct &) {
|
|
ompContext_.pop_back();
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpEndBlockDirective &x) {
|
|
const auto &dir{std::get<parser::OmpBlockDirective>(x.t)};
|
|
ResetPartialContext(dir.source);
|
|
switch (dir.v) {
|
|
// 2.7.3 end-single-clause -> copyprivate-clause |
|
|
// nowait-clause
|
|
case parser::OmpBlockDirective::Directive::Single: {
|
|
SetContextDirectiveEnum(OmpDirective::END_SINGLE);
|
|
OmpClauseSet allowed{OmpClause::COPYPRIVATE};
|
|
SetContextAllowed(allowed);
|
|
OmpClauseSet allowedOnce{OmpClause::NOWAIT};
|
|
SetContextAllowedOnce(allowedOnce);
|
|
} break;
|
|
// 2.7.4 end-workshare -> END WORKSHARE [nowait-clause]
|
|
case parser::OmpBlockDirective::Directive::Workshare:
|
|
SetContextDirectiveEnum(OmpDirective::END_WORKSHARE);
|
|
SetContextAllowed(OmpClauseSet{OmpClause::NOWAIT});
|
|
break;
|
|
default:
|
|
// no clauses are allowed
|
|
break;
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Leave(const parser::OmpClauseList &) {
|
|
// 2.7 Loop Construct Restriction
|
|
if (doSet.test(GetContext().directive)) {
|
|
if (auto *clause{FindClause(OmpClause::SCHEDULE)}) {
|
|
// only one schedule clause is allowed
|
|
const auto &schedClause{std::get<parser::OmpScheduleClause>(clause->u)};
|
|
if (ScheduleModifierHasType(schedClause,
|
|
parser::OmpScheduleModifierType::ModType::Nonmonotonic)) {
|
|
if (FindClause(OmpClause::ORDERED)) {
|
|
context_.Say(clause->source,
|
|
"The NONMONOTONIC modifier cannot be specified "
|
|
"if an ORDERED clause is specified"_err_en_US);
|
|
}
|
|
if (ScheduleModifierHasType(schedClause,
|
|
parser::OmpScheduleModifierType::ModType::Monotonic)) {
|
|
context_.Say(clause->source,
|
|
"The MONOTONIC and NONMONOTONIC modifiers "
|
|
"cannot be both specified"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
|
|
if (auto *clause{FindClause(OmpClause::ORDERED)}) {
|
|
// only one ordered clause is allowed
|
|
const auto &orderedClause{
|
|
std::get<parser::OmpClause::Ordered>(clause->u)};
|
|
|
|
if (orderedClause.v) {
|
|
if (FindClause(OmpClause::LINEAR)) {
|
|
context_.Say(clause->source,
|
|
"A loop directive may not have both a LINEAR clause and "
|
|
"an ORDERED clause with a parameter"_err_en_US);
|
|
}
|
|
|
|
if (auto *clause2{FindClause(OmpClause::COLLAPSE)}) {
|
|
const auto &collapseClause{
|
|
std::get<parser::OmpClause::Collapse>(clause2->u)};
|
|
// ordered and collapse both have parameters
|
|
if (const auto orderedValue{GetIntValue(orderedClause.v)}) {
|
|
if (const auto collapseValue{GetIntValue(collapseClause.v)}) {
|
|
if (*orderedValue > 0 && *orderedValue < *collapseValue) {
|
|
context_.Say(clause->source,
|
|
"The parameter of the ORDERED clause must be "
|
|
"greater than or equal to "
|
|
"the parameter of the COLLAPSE clause"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// TODO: ordered region binding check (requires nesting implementation)
|
|
}
|
|
} // doSet
|
|
|
|
// 2.8.1 Simd Construct Restriction
|
|
if (simdSet.test(GetContext().directive)) {
|
|
if (auto *clause{FindClause(OmpClause::SIMDLEN)}) {
|
|
if (auto *clause2{FindClause(OmpClause::SAFELEN)}) {
|
|
const auto &simdlenClause{
|
|
std::get<parser::OmpClause::Simdlen>(clause->u)};
|
|
const auto &safelenClause{
|
|
std::get<parser::OmpClause::Safelen>(clause2->u)};
|
|
// simdlen and safelen both have parameters
|
|
if (const auto simdlenValue{GetIntValue(simdlenClause.v)}) {
|
|
if (const auto safelenValue{GetIntValue(safelenClause.v)}) {
|
|
if (*safelenValue > 0 && *simdlenValue > *safelenValue) {
|
|
context_.Say(clause->source,
|
|
"The parameter of the SIMDLEN clause must be less than or "
|
|
"equal to the parameter of the SAFELEN clause"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// TODO: A list-item cannot appear in more than one aligned clause
|
|
} // SIMD
|
|
|
|
// 2.7.3 Single Construct Restriction
|
|
if (GetContext().directive == OmpDirective::END_SINGLE) {
|
|
if (auto *clause{FindClause(OmpClause::COPYPRIVATE)}) {
|
|
if (FindClause(OmpClause::NOWAIT)) {
|
|
context_.Say(clause->source,
|
|
"The COPYPRIVATE clause must not be used with "
|
|
"the NOWAIT clause"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
|
|
GetContext().requiredClauses.IterateOverMembers(
|
|
[this](OmpClause c) { CheckRequired(c); });
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpClause &x) {
|
|
SetContextClause(x);
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpNowait &) {
|
|
CheckAllowed(OmpClause::NOWAIT);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Inbranch &) {
|
|
CheckAllowed(OmpClause::INBRANCH);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Mergeable &) {
|
|
CheckAllowed(OmpClause::MERGEABLE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Nogroup &) {
|
|
CheckAllowed(OmpClause::NOGROUP);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Notinbranch &) {
|
|
CheckAllowed(OmpClause::NOTINBRANCH);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Untied &) {
|
|
CheckAllowed(OmpClause::UNTIED);
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Collapse &x) {
|
|
CheckAllowed(OmpClause::COLLAPSE);
|
|
// collapse clause must have a parameter
|
|
RequiresConstantPositiveParameter(OmpClause::COLLAPSE, x.v);
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Copyin &) {
|
|
CheckAllowed(OmpClause::COPYIN);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Copyprivate &) {
|
|
CheckAllowed(OmpClause::COPYPRIVATE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Device &) {
|
|
CheckAllowed(OmpClause::DEVICE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::DistSchedule &) {
|
|
CheckAllowed(OmpClause::DIST_SCHEDULE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Final &) {
|
|
CheckAllowed(OmpClause::FINAL);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Firstprivate &) {
|
|
CheckAllowed(OmpClause::FIRSTPRIVATE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::From &) {
|
|
CheckAllowed(OmpClause::FROM);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Grainsize &x) {
|
|
CheckAllowed(OmpClause::GRAINSIZE);
|
|
RequiresPositiveParameter(OmpClause::GRAINSIZE, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Lastprivate &) {
|
|
CheckAllowed(OmpClause::LASTPRIVATE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::NumTasks &x) {
|
|
CheckAllowed(OmpClause::NUM_TASKS);
|
|
RequiresPositiveParameter(OmpClause::NUM_TASKS, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::NumTeams &x) {
|
|
CheckAllowed(OmpClause::NUM_TEAMS);
|
|
RequiresPositiveParameter(OmpClause::NUM_TEAMS, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::NumThreads &x) {
|
|
CheckAllowed(OmpClause::NUM_THREADS);
|
|
RequiresPositiveParameter(OmpClause::NUM_THREADS, x.v);
|
|
// if parameter is variable, defer to Expression Analysis
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Ordered &x) {
|
|
CheckAllowed(OmpClause::ORDERED);
|
|
// the parameter of ordered clause is optional
|
|
if (const auto &expr{x.v}) {
|
|
RequiresConstantPositiveParameter(OmpClause::ORDERED, *expr);
|
|
|
|
// 2.8.3 Loop SIMD Construct Restriction
|
|
if (doSimdSet.test(GetContext().directive)) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"No ORDERED clause with a parameter can be specified "
|
|
"on the %s directive"_err_en_US,
|
|
ContextDirectiveAsFortran());
|
|
}
|
|
}
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Priority &x) {
|
|
CheckAllowed(OmpClause::PRIORITY);
|
|
RequiresPositiveParameter(OmpClause::PRIORITY, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Private &) {
|
|
CheckAllowed(OmpClause::PRIVATE);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Safelen &x) {
|
|
CheckAllowed(OmpClause::SAFELEN);
|
|
RequiresConstantPositiveParameter(OmpClause::SAFELEN, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Shared &) {
|
|
CheckAllowed(OmpClause::SHARED);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Simdlen &x) {
|
|
CheckAllowed(OmpClause::SIMDLEN);
|
|
RequiresConstantPositiveParameter(OmpClause::SIMDLEN, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::ThreadLimit &x) {
|
|
CheckAllowed(OmpClause::THREAD_LIMIT);
|
|
RequiresPositiveParameter(OmpClause::THREAD_LIMIT, x.v);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::To &) {
|
|
CheckAllowed(OmpClause::TO);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Link &) {
|
|
CheckAllowed(OmpClause::LINK);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::Uniform &) {
|
|
CheckAllowed(OmpClause::UNIFORM);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::UseDevicePtr &) {
|
|
CheckAllowed(OmpClause::USE_DEVICE_PTR);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpClause::IsDevicePtr &) {
|
|
CheckAllowed(OmpClause::IS_DEVICE_PTR);
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpAlignedClause &x) {
|
|
CheckAllowed(OmpClause::ALIGNED);
|
|
|
|
if (const auto &expr{
|
|
std::get<std::optional<parser::ScalarIntConstantExpr>>(x.t)}) {
|
|
if (const auto v{GetIntValue(*expr)}) {
|
|
if (*v <= 0) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"The ALIGNMENT parameter of the ALIGNED clause must be "
|
|
"a constant positive integer expression"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
// 2.8.1 TODO: list-item attribute check
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpDefaultClause &) {
|
|
CheckAllowed(OmpClause::DEFAULT);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpDefaultmapClause &x) {
|
|
CheckAllowed(OmpClause::DEFAULTMAP);
|
|
using VariableCategory = parser::OmpDefaultmapClause::VariableCategory;
|
|
if (!std::get<std::optional<VariableCategory>>(x.t)) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"The argument TOFROM:SCALAR must be specified on the DEFAULTMAP "
|
|
"clause"_err_en_US);
|
|
}
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpDependClause &) {
|
|
CheckAllowed(OmpClause::DEPEND);
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpIfClause &x) {
|
|
CheckAllowed(OmpClause::IF);
|
|
|
|
using dirNameModifier = parser::OmpIfClause::DirectiveNameModifier;
|
|
static std::unordered_map<dirNameModifier, OmpDirectiveSet>
|
|
dirNameModifierMap{{dirNameModifier::Parallel, parallelSet},
|
|
{dirNameModifier::Target, targetSet},
|
|
{dirNameModifier::TargetEnterData, {OmpDirective::TARGET_ENTER_DATA}},
|
|
{dirNameModifier::TargetExitData, {OmpDirective::TARGET_EXIT_DATA}},
|
|
{dirNameModifier::TargetData, {OmpDirective::TARGET_DATA}},
|
|
{dirNameModifier::TargetUpdate, {OmpDirective::TARGET_UPDATE}},
|
|
{dirNameModifier::Task, {OmpDirective::TASK}},
|
|
{dirNameModifier::Taskloop, taskloopSet}};
|
|
if (const auto &directiveName{
|
|
std::get<std::optional<dirNameModifier>>(x.t)}) {
|
|
auto search{dirNameModifierMap.find(*directiveName)};
|
|
if (search == dirNameModifierMap.end() ||
|
|
!search->second.test(GetContext().directive)) {
|
|
context_
|
|
.Say(GetContext().clauseSource,
|
|
"Unmatched directive name modifier %s on the IF clause"_err_en_US,
|
|
parser::ToUpperCaseLetters(
|
|
parser::OmpIfClause::EnumToString(*directiveName)))
|
|
.Attach(
|
|
GetContext().directiveSource, "Cannot apply to directive"_en_US);
|
|
}
|
|
}
|
|
}
|
|
|
|
void OmpStructureChecker::Enter(const parser::OmpLinearClause &x) {
|
|
CheckAllowed(OmpClause::LINEAR);
|
|
|
|
// 2.7 Loop Construct Restriction
|
|
if ((doSet | simdSet).test(GetContext().directive)) {
|
|
if (std::holds_alternative<parser::OmpLinearClause::WithModifier>(x.u)) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"A modifier may not be specified in a LINEAR clause "
|
|
"on the %s directive"_err_en_US,
|
|
ContextDirectiveAsFortran());
|
|
}
|
|
}
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpMapClause &x) {
|
|
CheckAllowed(OmpClause::MAP);
|
|
if (const auto &maptype{std::get<std::optional<parser::OmpMapType>>(x.t)}) {
|
|
using Type = parser::OmpMapType::Type;
|
|
const Type &type{std::get<Type>(maptype->t)};
|
|
switch (GetContext().directive) {
|
|
case OmpDirective::TARGET:
|
|
case OmpDirective::TARGET_TEAMS:
|
|
case OmpDirective::TARGET_TEAMS_DISTRIBUTE:
|
|
case OmpDirective::TARGET_TEAMS_DISTRIBUTE_SIMD:
|
|
case OmpDirective::TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO:
|
|
case OmpDirective::TARGET_TEAMS_DISTRIBUTE_PARALLEL_DO_SIMD:
|
|
case OmpDirective::TARGET_DATA: {
|
|
if (type != Type::To && type != Type::From && type != Type::Tofrom &&
|
|
type != Type::Alloc) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"Only the TO, FROM, TOFROM, or ALLOC map types are permitted "
|
|
"for MAP clauses on the %s directive"_err_en_US,
|
|
ContextDirectiveAsFortran());
|
|
}
|
|
} break;
|
|
case OmpDirective::TARGET_ENTER_DATA: {
|
|
if (type != Type::To && type != Type::Alloc) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"Only the TO or ALLOC map types are permitted "
|
|
"for MAP clauses on the %s directive"_err_en_US,
|
|
ContextDirectiveAsFortran());
|
|
}
|
|
} break;
|
|
case OmpDirective::TARGET_EXIT_DATA: {
|
|
if (type != Type::Delete && type != Type::Release && type != Type::From) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"Only the FROM, RELEASE, or DELETE map types are permitted "
|
|
"for MAP clauses on the %s directive"_err_en_US,
|
|
ContextDirectiveAsFortran());
|
|
}
|
|
} break;
|
|
default:
|
|
break;
|
|
}
|
|
}
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpProcBindClause &) {
|
|
CheckAllowed(OmpClause::PROC_BIND);
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpReductionClause &) {
|
|
CheckAllowed(OmpClause::REDUCTION);
|
|
}
|
|
|
|
bool OmpStructureChecker::ScheduleModifierHasType(
|
|
const parser::OmpScheduleClause &x,
|
|
const parser::OmpScheduleModifierType::ModType &type) {
|
|
const auto &modifier{
|
|
std::get<std::optional<parser::OmpScheduleModifier>>(x.t)};
|
|
if (modifier) {
|
|
const auto &modType1{
|
|
std::get<parser::OmpScheduleModifier::Modifier1>(modifier->t)};
|
|
const auto &modType2{
|
|
std::get<std::optional<parser::OmpScheduleModifier::Modifier2>>(
|
|
modifier->t)};
|
|
if (modType1.v.v == type || (modType2 && modType2->v.v == type)) {
|
|
return true;
|
|
}
|
|
}
|
|
return false;
|
|
}
|
|
void OmpStructureChecker::Enter(const parser::OmpScheduleClause &x) {
|
|
CheckAllowed(OmpClause::SCHEDULE);
|
|
|
|
// 2.7 Loop Construct Restriction
|
|
if (doSet.test(GetContext().directive)) {
|
|
const auto &kind{std::get<1>(x.t)};
|
|
const auto &chunk{std::get<2>(x.t)};
|
|
if (chunk) {
|
|
if (kind == parser::OmpScheduleClause::ScheduleType::Runtime ||
|
|
kind == parser::OmpScheduleClause::ScheduleType::Auto) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"When SCHEDULE clause has %s specified, "
|
|
"it must not have chunk size specified"_err_en_US,
|
|
parser::ToUpperCaseLetters(
|
|
parser::OmpScheduleClause::EnumToString(kind)));
|
|
}
|
|
}
|
|
|
|
if (ScheduleModifierHasType(
|
|
x, parser::OmpScheduleModifierType::ModType::Nonmonotonic)) {
|
|
if (kind != parser::OmpScheduleClause::ScheduleType::Dynamic &&
|
|
kind != parser::OmpScheduleClause::ScheduleType::Guided) {
|
|
context_.Say(GetContext().clauseSource,
|
|
"The NONMONOTONIC modifier can only be specified with "
|
|
"SCHEDULE(DYNAMIC) or SCHEDULE(GUIDED)"_err_en_US);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
} // namespace Fortran::semantics
|