[flang] Support export/import OpenMP Threadprivate Flag

[peixin]

Summary

The information about OpenMP/OpenACC declarative directives in modules
should be carried in export mod files. This supports export OpenMP
Threadprivate directive and import OpenMP declarative directives.

[peixin]

Currently, only OpenMP Threadprivate Flag is resolved in semantic analysis stage. https://github.com/llvm/llvm-project/blob/c1b9672534cdc798f2a7ba6b7b6be85dea0d8a5a/flang/lib/Semantics/resolve-directives.cpp#L483-L484 https://github.com/llvm/llvm-project/blob/c1b9672534cdc798f2a7ba6b7b6be85dea0d8a5a/flang/lib/Semantics/resolve-directives.cpp#L213

What can be in the clause of the declarative directive is case-by-case. For OpenMP Threadprivate directive, the module name, procedure name cannot be in the clause. If a threadprivate directive that specifies a common block name appears in one program unit, then such a directive must also appear in every other program unit that contains a COMMON statement that specifies the same name. So, no need to export common block for Threadprivate directive.

[schweitz]

flang/lib/Semantics/mod-file.cpp

328

What are the expectations of having a variable that is both in a COMMON block and flagged as OMP thread private? (This suggests COMMON will have priority over thread private.)

I think you should have a test case below to check that combination of conditions and ensure against regressions, etc.

[peixin]

flang/lib/Semantics/mod-file.cpp

328

An element of common block cannot be in Threadprivate directive. The semantic check is in https://github.com/llvm/llvm-project/blob/3e3e79a9e4c378b59f5f393f556e6a84edcd8898/flang/lib/Semantics/check-omp-structure.cpp#L879-L883. The Threadprivate flag is resolved as every element has the flag (https://github.com/llvm/llvm-project/blob/3e3e79a9e4c378b59f5f393f556e6a84edcd8898/flang/lib/Semantics/resolve-directives.cpp#L1640-L1652). No addition information needs to be exported for common block in Threadprivate directive.

Added the test case for common block.

[peixin]

BTW, this patch targets https://github.com/flang-compiler/f18-llvm-project/issues/1212.

[kiranchandramohan]

flang/lib/Semantics/mod-file.cpp

328

Would it be better to always generate the declarative directives, irrespective of conditions and then use it conditionally?

[peixin]

flang/lib/Semantics/mod-file.cpp

328

Thanks for the notice. I was wrong before. Although an element of common block cannot be in Threadprivate directive, the usage of the element of a Threadprivate common block is as if it is allowed according to the OpenMP Spec 5.0 Section 2.19.4 [Data-sharing attribute clauses]. For example, a list item that appears in a copyin clause must be threadprivate. Named variables that appear in a threadprivate common block may be specified: it is not necessary to specify the whole common block. The specific case is like the following:

$ cat file2.f90
module private_data
	real :: x
	common /blk/ x
    !$OMP THREADPRIVATE(/blk/)
end module private_data
$ cat file1.f90
subroutine a
  use private_data
  !$omp parallel copyin(x)
  !$omp end parallel
end
$ flang-new -fc1 -fopenmp file2.f90 
$ flang-new -fc1 -fopenmp file1.f90

[kiranchandramohan]

@peixin, LGTM.

The only concern I have is that we will have to do this separately for each declarative construct/directive. If there was something common then it would have worked for everything. But maybe we can get to that when we handle the next declarative directive.

[peixin]

But maybe we can get to that when we handle the next declarative directive.

I checked other declarative directives when I implemented this code. The declare target works on both variables and procedure names. The declare reduction works on assignment expression and interface/procedure name. The declare simd works on procedure names. Also, there are some clauses or other infos might should be exported such as initializer in declare reduction. So, each declarative directive will require special semantic analysis and mod file export. This patch can only support variables info export, which is enough for threadprivate directive. Let's add some code or refactor this code when we get to other declarative directives.

@schweitz Is this patch ok to you?

[peixin]

ping @schweitz @jeanPerier @clementval

[kiranchandramohan]

I think you can wait for one more day and submit if there are no further comments.

[peixin]

In D120396#3438541, @kiranchandramohan wrote:

I think you can wait for one more day and submit if there are no further comments.

OK. Thanks.

[peixin]

Rebase before land.

flang/lib/Semantics/mod-file.cpp

std::visit(common::visitors{
                    decls_ << '\n';
                    if (symbol.attrs().test(Attr::BIND_C)) {
                      PutAttrs(decls_, symbol.attrs(), x.bindName(), ""s);
                      decls_ << "::/" << symbol.name() << "/\n";
                    }
                  },
                  [](const HostAssocDetails &) {},
                  [](const MiscDetails &) {},
-                 [&](const auto &) { PutEntity(decls_, symbol); },
+                 [&](const auto &) {
+                   PutEntity(decls_, symbol);
+                   if (symbol.test(Symbol::Flag::OmpThreadprivate)) {
+                     decls_ << "!$omp threadprivate(" << symbol.name() << ")\n";
+                   }
+                 },
              },
       symbol.details());
 }
 
 void ModFileWriter::PutDerivedType(
     const Symbol &typeSymbol, const Scope *scope) {
   auto &details{typeSymbol.get<DerivedTypeDetails>()};
   if (details.isDECStructure()) {
if (isIntrinsic.value_or(true)) {
         return it->second->scope();
       }
     }
   }
   parser::Parsing parsing{context_.allCookedSources()};
   parser::Options options;
   options.isModuleFile = true;
   options.features.Enable(common::LanguageFeature::BackslashEscapes);
+  options.features.Enable(common::LanguageFeature::OpenMP);
   if (!isIntrinsic.value_or(false)) {
     options.searchDirectories = context_.searchDirectories();
     // If a directory is in both lists, the intrinsic module directory
     // takes precedence.
     for (const auto &dir : context_.intrinsicModuleDirectories()) {
       std::remove(options.searchDirectories.begin(),
           options.searchDirectories.end(), dir);
     }

flang/test/Semantics/modfile47.f90

+! RUN: %python %S/test_modfile.py %s %flang_fc1 -fopenmp
+! Check correct modfile generation for OpenMP threadprivate directive.
+
+module m
+  implicit none
+  type :: my_type(kind_param, len_param)
+    integer, KIND :: kind_param
+    integer, LEN :: len_param
+    integer :: t_i
+    integer :: t_arr(10)
+  end type
+  type(my_type(kind_param=2, len_param=4)) :: t
+  real, dimension(3) :: thrtest
+  real :: x
+  common /blk/ x
+
+  !$omp threadprivate(thrtest, t, /blk/)
+end
+
+!Expect: m.mod
+!module m
+!type::my_type(kind_param,len_param)
+!integer(4),kind::kind_param
+!integer(4),len::len_param
+!integer(4)::t_i
+!integer(4)::t_arr(1_8:10_8)
+!end type
+!type(my_type(kind_param=2_4,len_param=4_4))::t
+!!$omp threadprivate(t)
+!real(4)::thrtest(1_8:3_8)
+!!$omp threadprivate(thrtest)
+!real(4)::x
+!!$omp threadprivate(x)
+!common/blk/x
+!end