[LLVM-Flang][OpenMP] Skip Linear clause semantic check if ordered clause with (n) is specified

Author: Thirumalai-Shaktivel

flang/lib/Semantics/check-omp-structure.cpp

@@ -3570,6 +3570,15 @@ void OmpStructureChecker::Enter(const parser::OmpClause::Linear &x) {
     }
   }
 
+  // OpenMP 5.2: Ordered clause restriction
+  if (const auto *clause{
+          FindClause(GetContext(), llvm::omp::Clause::OMPC_ordered)}) {
+    const auto &orderedClause{std::get<parser::OmpClause::Ordered>(clause->u)};
+    if (orderedClause.v) {
+      return;
+    }
+  }
+
   auto checkForValidLinearClause_01 = [&](const parser::Name &name,
                                           bool is_ref) {
     std::string listItemName{name.ToString()};