Resolving flang issues

Author: Ritanya-B-Bharadwaj

clang/lib/CodeGen/CGDecl.cpp

@@ -131,6 +131,7 @@ void CodeGenFunction::EmitDecl(const Decl &D, bool EvaluateConditionDecl) {
   case Decl::UnnamedGlobalConstant:
   case Decl::TemplateParamObject:
   case Decl::OMPThreadPrivate:
+  case Decl::OMPGroupPrivate:
   case Decl::OMPAllocate:
   case Decl::OMPCapturedExpr:
   case Decl::OMPRequires:

clang/lib/Serialization/ASTCommon.cpp

@@ -441,6 +441,7 @@ bool serialization::isRedeclarableDeclKind(unsigned Kind) {
   case Decl::Captured:
   case Decl::Import:
   case Decl::OMPThreadPrivate:
+  case Decl::OMPGroupPrivate:
   case Decl::OMPAllocate:
   case Decl::OMPRequires:
   case Decl::OMPCapturedExpr:

clang/tools/libclang/CIndex.cpp

@@ -7213,6 +7213,7 @@ CXCursor clang_getCursorDefinition(CXCursor C) {
   case Decl::CXXDeductionGuide:
   case Decl::Import:
   case Decl::OMPThreadPrivate:
+  case Decl::OMPGroupPrivate:
   case Decl::OMPAllocate:
   case Decl::OMPDeclareReduction:
   case Decl::OMPDeclareMapper:

flang/include/flang/Lower/OpenMP/Clauses.h

@@ -328,11 +328,14 @@ struct MemoryOrder {
 struct Threadprivate {
   using EmptyTrait = std::true_type;
 };
+struct Groupprivate {
+  using EmptyTrait = std::true_type;
+};
 
 using ClauseBase = tomp::ClauseT<TypeTy, IdTy, ExprTy,
                                  // Extras...
                                  CancellationConstructType, Depobj, Flush,
-                                 MemoryOrder, Threadprivate>;
+                                 MemoryOrder, Threadprivate, Groupprivate>;
 
 struct Clause : public ClauseBase {
   Clause(ClauseBase &&base, const parser::CharBlock source = {})

flang/lib/Lower/OpenMP/Clauses.cpp

@@ -254,6 +254,7 @@ MAKE_EMPTY_CLASS(Depobj, Depobj);
 MAKE_EMPTY_CLASS(Flush, Flush);
 MAKE_EMPTY_CLASS(MemoryOrder, MemoryOrder);
 MAKE_EMPTY_CLASS(Threadprivate, Threadprivate);
+MAKE_EMPTY_CLASS(Groupprivate, Groupprivate);
 
 MAKE_INCOMPLETE_CLASS(AdjustArgs, AdjustArgs);
 MAKE_INCOMPLETE_CLASS(AppendArgs, AppendArgs);

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

@@ -2790,6 +2790,7 @@ CHECK_SIMPLE_CLAUSE(NumTasks, OMPC_num_tasks)
 CHECK_SIMPLE_CLAUSE(Order, OMPC_order)
 CHECK_SIMPLE_CLAUSE(Read, OMPC_read)
 CHECK_SIMPLE_CLAUSE(Threadprivate, OMPC_threadprivate)
+CHECK_SIMPLE_CLAUSE(Groupprivate, OMPC_groupprivate)
 CHECK_SIMPLE_CLAUSE(Threads, OMPC_threads)
 CHECK_SIMPLE_CLAUSE(Inbranch, OMPC_inbranch)
 CHECK_SIMPLE_CLAUSE(Link, OMPC_link)