[flang] Support for dump OpenMP/OpenACC declarative directives PFT in module

[peixin]

Summary

OpenMP/OpenACC declarative directives can also be used in module unit.
Add support for dump them in module.

[kiranchandramohan]

LGTM. Please wait for @jeanPerier, @schweitz or @vdonaldson to approve.

[peixin]

In D120459#3347170, @kiranchandramohan wrote:

LGTM. Please wait for @jeanPerier, @schweitz or @vdonaldson to approve.

OK. Thanks.

[peixin]

ping @jeanPerier @schweitz @vdonaldson

[vdonaldson]

Looks ok to me.

[peixin]

Rebase to run CI in case there is some conflict with upstream work.

flang/lib/Lower/PFTBuilder.cpp

if (!functionLikeUnit.nestedFunctions.empty()) {
       outputStream << "End Contains\n";
     }
     outputStream << "End " << unitKind << ' ' << name << "\n\n";
   }
 
   void dumpModuleLikeUnit(llvm::raw_ostream &outputStream,
                           const lower::pft::ModuleLikeUnit &moduleLikeUnit) {
     outputStream << getNodeIndex(moduleLikeUnit) << " ";
-    outputStream << "ModuleLike: ";
-    outputStream << "\nContains\n";
+    outputStream << "ModuleLike:\n";
+    dumpEvaluationList(outputStream, moduleLikeUnit.evaluationList);
+    outputStream << "Contains\n";
     for (const lower::pft::FunctionLikeUnit &func :
          moduleLikeUnit.nestedFunctions)
       dumpFunctionLikeUnit(outputStream, func);
     outputStream << "End Contains\nEnd ModuleLike\n\n";
   }
 
   // Top level directives
   void dumpCompilerDirectiveUnit(

flang/test/Lower/pre-fir-tree06.f90

+! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenmp %s | FileCheck %s
+
+! Test structure of the Pre-FIR tree with OpenMP declarative construct
+
+! CHECK: ModuleLike
+module m
+  real, dimension(10) :: x
+  ! CHECK-NEXT: OpenMPDeclarativeConstruct
+  !$omp threadprivate(x)
+end
+! CHECK: End ModuleLike
+

flang/test/Lower/pre-fir-tree07.f90

+! RUN: %flang_fc1 -fdebug-pre-fir-tree -fopenacc %s | FileCheck %s
+
+! Test structure of the Pre-FIR tree with OpenACC declarative construct
+
+! CHECK: ModuleLike
+module m
+  real, dimension(10) :: x
+  ! CHECK-NEXT: OpenACCDeclarativeConstruct
+  !$acc declare create(x)
+end
+! CHECK: End ModuleLike
+