[flang-commits] [flang] [flang] Cray pointer in module (PR #66119)
Valentin Clement バレンタイン クレメン via flang-commits
flang-commits at lists.llvm.org
Tue Sep 12 10:59:37 PDT 2023
================
@@ -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
More information about the flang-commits
mailing list