[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

@@ -3013,6 +3013,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 = [&](const parser::Name &name, bool is_ref) {
     parser::CharBlock source{GetContext().clauseSource};
     std::string listItemName{name.ToString()};