Alexander_KS/SAPFOR
4
2
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

REMOVE_DIST_ARRAYS_FROM_IO Handle assumed-size and assumed-shape arrays #64

Merged
Alexander_KS merged 6 commits from replace_io_arrays into master 2025-09-16 05:23:31 +00:00
Conversation 9 Commits 6 Files Changed 2 -4
1 changed files with 0 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 16b2c6b42b - Show all commits

4
src/Transformations/ReplaceArraysInIO/replace_dist_arrays_in_io.cpp
View File

@@ -61,7 +61,6 @@ static SgExpression* findExprWithVariant(SgExpression* exp, int variant)
static bool checkAssumedSize(SgStatement *st, const string &arrayName, const string &currentFile) static bool checkAssumedSize(SgStatement *st, const string &arrayName, const string &currentFile)
{ {
__spf_print(1, "Try array %s\n", arrayName.c_str());
bool found = false; bool found = false;
DIST::Array* array_p = getArrayFromDeclarated(st, arrayName); DIST::Array* array_p = getArrayFromDeclarated(st, arrayName);
@@ -74,8 +73,6 @@ static bool checkAssumedSize(SgStatement *st, const string &arrayName, const str
SgExpression* list = st->expr(0); SgExpression* list = st->expr(0);
while (list) while (list)
{ {
__spf_print(1, "Try list %s\n", list->lhs()->unparse());
if (list->lhs() && list->lhs()->symbol()->identifier() == arrayName) if (list->lhs() && list->lhs()->symbol()->identifier() == arrayName)
{ {
if(findExprWithVariant(list->lhs(), STAR_RANGE)) if(findExprWithVariant(list->lhs(), STAR_RANGE))
@@ -724,7 +721,6 @@ void replaceDistributedArraysInIO(vector<ParallelRegion*>& regions,
{ {
if (next->hasLabel()) if (next->hasLabel())
{ {
__spf_print(1, "%s has label\n", next->unparse());
moveLabelBefore(next); moveLabelBefore(next);
find_return_stmt = next->lexPrev(); find_return_stmt = next->lexPrev();
} }