[flang-commits] [flang] [flang][OpenMP] Expand GetOmpObjectList to all subclasses of OmpClause (PR #170351)

[Kareem Ergawy via flang-commits]

================
@@ -2566,9 +2566,8 @@ bool OmpAttributeVisitor::Pre(const parser::OpenMPAllocatorsConstruct &x) {
   PushContext(x.source, dirSpec.DirId());
 
   for (const auto &clause : dirSpec.Clauses().v) {
-    if (const auto *allocClause{
-            std::get_if<parser::OmpClause::Allocate>(&clause.u)}) {
-      ResolveOmpObjectList(std::get<parser::OmpObjectList>(allocClause->v.t),
+    if (std::get_if<parser::OmpClause::Allocate>(&clause.u)) {
+      ResolveOmpObjectList(*parser::omp::GetOmpObjectList(x),
----------------
ergawy wrote:

I think that should be `clause`. Weird that is wasn't caught by CI!

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