[flang] [llvm] [flang][openmp] Adds Parser and Semantic Support for Interop Construct, and Init and Use Clauses. (PR #120584)

[Krzysztof Parzyszek via llvm-commits]

================
@@ -5578,6 +5578,98 @@ void OmpStructureChecker::Leave(const parser::DoConstruct &x) {
   Base::Leave(x);
 }
 
+void OmpStructureChecker::Enter(const parser::OpenMPInteropConstruct &x) {
+  bool isDependClauseOccured{false};
+  int targetCount{0}, targetSyncCount{0};
+  const auto &dir{std::get<parser::Verbatim>(x.t)};
+  std::list<std::string> ObjectNameList;
+  PushContextAndClauseSets(dir.source, llvm::omp::Directive::OMPD_interop);
+  const auto &clauseList{std::get<parser::OmpClauseList>(x.t)};
+  for (const auto &clause : clauseList.v) {
+    common::visit(
+        common::visitors{
+            [&](const parser::OmpClause::Init &InitClause) {
+              if (OmpVerifyModifiers(InitClause.v, llvm::omp::OMPC_init,
+                      GetContext().directiveSource, context_)) {
+
+                auto &modifiers{OmpGetModifiers(InitClause.v)};
+                auto &&interopTypeModifier{
+                    OmpGetRepeatableModifier<parser::OmpInteropType>(
+                        modifiers)};
+                for (auto it{interopTypeModifier.begin()},
+                     end{interopTypeModifier.end()};
+                     it != end; ++it) {
+                  if (parser::ToUpperCaseLetters(
+                          parser::OmpInteropType::EnumToString((*it)->v)) ==
+                      "TARGETSYNC") {
+                    ++targetSyncCount;
+                  } else {
+                    ++targetCount;
+                  }
+                  if (targetCount > 1 || targetSyncCount > 1) {
+                    context_.Say(GetContext().directiveSource,
+                        "Each interop-type may be specified at most once."_err_en_US);
+                  }
+                }
+              }
+              const auto &InteropVar{parser::Unwrap<parser::OmpObject>(
+                  std::get<parser::OmpObject>(InitClause.v.t))};
+              const auto *name{parser::Unwrap<parser::Name>(InteropVar)};
+              const auto ObjectName{name->ToString()};
+              if (ObjectNameList.end() !=
+                  std::find(ObjectNameList.begin(), ObjectNameList.end(),
+                      ObjectName)) {
+                context_.Say(GetContext().directiveSource,
+                    "Each interop-var may be specified for at most one action-clause of each interop construct."_err_en_US);
+              } else {
+                ObjectNameList.push_back(ObjectName);
+              }
+            },
+            [&](const parser::OmpClause::Depend &DependClause) {
----------------
kparzysz wrote:

Lowercase.  There are more places with this issue.

https://github.com/llvm/llvm-project/pull/120584