[flang][NFC] Reorganize directive output

[clementval]

Summary

OpenACC and OpenMP directive are
emitted in the module file. Just reorganized the code
so this is well separated and do not pollute the main
Fortran part.

[kiranchandramohan]

LG. Thanks.

flang/lib/Semantics/mod-file.cpp

common::visit(
               decls_ << "::/" << symbol.name() << "/\n";
             }
           },
           [](const HostAssocDetails &) {},
           [](const MiscDetails &) {},
           [&](const auto &) {
             PutEntity(decls_, symbol);
             PutDirective(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>()};

 
 llvm::raw_ostream &PutLower(llvm::raw_ostream &os, std::string_view str) {
   for (char c : str) {
     os << parser::ToLowerCaseLetter(c);
   }
   return os;
 }
 
-void ModFileWriter::PutDirective(llvm::raw_ostream &os, const Symbol &symbol) {
+void PutOpenACCDirective(llvm::raw_ostream &os, const Symbol &symbol) {
   if (symbol.test(Symbol::Flag::AccDeclare)) {
     os << "!$acc declare ";
     if (symbol.test(Symbol::Flag::AccCopy)) {
       os << "copy";
     } else if (symbol.test(Symbol::Flag::AccCopyIn)) {
       os << "copyin";
     } else if (symbol.test(Symbol::Flag::AccCopyOut)) {
       os << "copyout";
     } else if (symbol.test(Symbol::Flag::AccCreate)) {
       os << "create";
     } else if (symbol.test(Symbol::Flag::AccPresent)) {
       os << "present";
     } else if (symbol.test(Symbol::Flag::AccDevicePtr)) {
       os << "deviceptr";
     } else if (symbol.test(Symbol::Flag::AccDeviceResident)) {
       os << "device_resident";
     } else if (symbol.test(Symbol::Flag::AccLink)) {
       os << "link";
     }
     os << "(" << symbol.name() << ")\n";
   }
 }
 
+void PutOpenMPDirective(llvm::raw_ostream &os, const Symbol &symbol) {
+  if (symbol.test(Symbol::Flag::OmpThreadprivate)) {
+    os << "!$omp threadprivate(" << symbol.name() << ")\n";
+  }
+}
+
+void ModFileWriter::PutDirective(llvm::raw_ostream &os, const Symbol &symbol) {
+  PutOpenACCDirective(os, symbol);
+  PutOpenMPDirective(os, symbol);
+}
+
 struct Temp {
   Temp(int fd, std::string path) : fd{fd}, path{path} {}
   Temp(Temp &&t) : fd{std::exchange(t.fd, -1)}, path{std::move(t.path)} {}
   ~Temp() {
     if (fd >= 0) {
       llvm::sys::fs::file_t native{llvm::sys::fs::convertFDToNativeFile(fd)};
       llvm::sys::fs::closeFile(native);
       llvm::sys::fs::remove(path.c_str());