[Flang][Semantics] Add source range to the threadprivate,

 and Atomic constructs

This patch fixes #82943, which used to crash when the
threadprivate directive appears as the first directive
without the program statement.

Fix: Adding a source range from the current statement to
the threadprivate and atomic will take care of the crash.

See: https://reviews.llvm.org/D153634 for more details

Author: Thirumalai-Shaktivel

flang/lib/Semantics/resolve-names.cpp

@@ -1530,6 +1530,23 @@ class OmpVisitor : public virtual DeclarationVisitor {
   void Post(const parser::OpenMPDeclarativeAllocate &) {
     SkipImplicitTyping(false);
   }
+  bool Pre(const parser::OpenMPDeclarativeConstruct &x) {
+    AddOmpSourceRange(x.source);
+    return true;
+  }
+  void Post(const parser::OpenMPDeclarativeConstruct &) {
+    messageHandler().set_currStmtSource(std::nullopt);
+  }
+  bool Pre(const parser::OpenMPAtomicConstruct &x) {
+    return common::visit(common::visitors{[&](const auto &u) -> bool {
+      AddOmpSourceRange(u.source);
+      return true;
+    }},
+        x.u);
+  }
+  void Post(const parser::OpenMPAtomicConstruct &) {
+    messageHandler().set_currStmtSource(std::nullopt);
+  }
 };
 
 bool OmpVisitor::NeedsScope(const parser::OpenMPBlockConstruct &x) {