[flang-commits] [flang] [flang] Cray pointer in module (PR #66119)

[Valentin Clement バレンタイン クレメン via flang-commits]

================
@@ -759,6 +759,15 @@ void ModFileWriter::PutObjectEntity(
     PutLower(os << "attributes(", common::EnumToString(*attr))
         << ") " << symbol.name() << '\n';
   }
+  if (symbol.test(Fortran::semantics::Symbol::Flag::CrayPointer)) {
+    if (!symbol.owner().crayPointers().empty()) {
+      for (const auto &[pointee, pointer] : symbol.owner().crayPointers()) {
+        if (pointer == symbol) {
+          os << "pointer(" << symbol.name() << "," << pointee << ")\n";
+        }
+      }
+    }
+  }
----------------
clementval wrote:

Can you add a test that check the mod file is correct?

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