[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,8 +3013,17 @@ void OmpStructureChecker::Enter(const parser::OmpClause::Linear &x) {
     }
   }
 
-  auto checkForValidLinearClause = [&](const parser::Name &name, bool is_ref) {
-    parser::CharBlock source{GetContext().clauseSource};
+  // 4.4.4 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 checkForValidLinearClaue = [&](const parser::Name &name, bool is_ref) {
+    parser::CharBlock source = GetContext().clauseSource;
     std::string listItemName{name.ToString()};
     if (!is_ref && !name.symbol->GetType()->IsNumeric(TypeCategory::Integer)) {
       context_.Say(source,