From 320a112bef48a2fcbc8c2146f3373ca790f0c138 Mon Sep 17 00:00:00 2001
From: xnpster <xnpster@yandex.ru>
Date: Wed, 10 Sep 2025 22:13:31 +0300
Subject: [PATCH] ArrayAnalysis: consider case of IO_PRIV array from module

---
 src/Distribution/ArrayAnalysis.cpp | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/src/Distribution/ArrayAnalysis.cpp b/src/Distribution/ArrayAnalysis.cpp
index 57ac0d9..0a189f6 100644
--- a/src/Distribution/ArrayAnalysis.cpp
+++ b/src/Distribution/ArrayAnalysis.cpp
@@ -270,6 +270,12 @@ static void findArrayRefs (SgExpression* ex, SgStatement* st, string fName, int
                         fillPrivatesFromComment(new Statement(prev), privatesS);
                         if (privatesS.find(symb->identifier()) != privatesS.end())
                             itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV);
+
+                        if (!(itNew->second.first->IsNotDistribute()) &&
+                            deprecatedByIO.find(symb->identifier()) != deprecatedByIO.end())
+                        {
+                            itNew->second.first->SetDistributeFlag(DIST::IO_PRIV);
+                        }
                     }
                     else
                         itNew->second.first->SetDistributeFlag(DIST::SPF_PRIV);
@@ -648,6 +654,9 @@ int getAllDeclaredArrays(SgFile* file, map<tuple<int, string, string>, pair<DIST
             }
         }
 
+        for (const auto& n : deprecatedByIO)
+            __spf_print(1, "depr io: %s\n", n.c_str());
+
         while (st != lastNode)
         {
             if (st->variant() == CONTAINS_STMT)