diff options
Diffstat (limited to 'flang/lib/Semantics/check-cuda.cpp')
| -rw-r--r-- | flang/lib/Semantics/check-cuda.cpp | 23 |
1 files changed, 23 insertions, 0 deletions
diff --git a/flang/lib/Semantics/check-cuda.cpp b/flang/lib/Semantics/check-cuda.cpp index d497ac2..d8a5639 100644 --- a/flang/lib/Semantics/check-cuda.cpp +++ b/flang/lib/Semantics/check-cuda.cpp @@ -302,6 +302,14 @@ private: [&](const common::Indirection<parser::IfConstruct> &x) { Check(x.value()); }, + [&](const common::Indirection<parser::CaseConstruct> &x) { + const auto &caseList{ + std::get<std::list<parser::CaseConstruct::Case>>( + x.value().t)}; + for (const parser::CaseConstruct::Case &c : caseList) { + Check(std::get<parser::Block>(c.t)); + } + }, [&](const auto &x) { if (auto source{parser::GetSource(x)}) { context_.Say(*source, @@ -347,9 +355,24 @@ private: hostArray->name()); } } + void ErrorInCUFKernel(parser::CharBlock source) { + if (IsCUFKernelDo) { + context_.Say( + source, "Statement may not appear in cuf kernel code"_err_en_US); + } + } void Check(const parser::ActionStmt &stmt, const parser::CharBlock &source) { common::visit( common::visitors{ + [&](const common::Indirection<parser::CycleStmt> &) { + ErrorInCUFKernel(source); + }, + [&](const common::Indirection<parser::ExitStmt> &) { + ErrorInCUFKernel(source); + }, + [&](const common::Indirection<parser::GotoStmt> &) { + ErrorInCUFKernel(source); + }, [&](const common::Indirection<parser::StopStmt> &) { return; }, [&](const common::Indirection<parser::PrintStmt> &) {}, [&](const common::Indirection<parser::WriteStmt> &x) { |