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 +3 -15
1 changed files with 3 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files
Showing only changes of commit 49d3b9b96e - Show all commits

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

@@ -17,19 +17,6 @@ using std::pair;
#define DEBUG_TRACE 0
static SgStatement* getDeclStatement(int line_num)
{
PTR_BFND node = current_file->firstStatement()->thebif;
for (; node; node = node->thread)
{
SgStatement *st = BfndMapping(node);
if (st->lineNumber() == line_num && isSgDeclarationStatement(st))
return st;
}
return NULL;
}
static SgExpression* findExprWithVariant(SgExpression* exp, int variant)
{
if (exp)
@@ -134,7 +121,7 @@ static bool checkAssumedSize(const string &array_name, DIST::Array* array_p, con
if (!switchToDeclarationFile(array_p, decl_place, current_file_name, current_func))
return true;
auto *st = getDeclStatement(decl_place.second);
auto *st = SgStatement::getStatementByFileAndLine(decl_place.first, decl_place.second);
if (!st)
printInternalError(convertFileName(__FILE__).c_str(), __LINE__);
@@ -666,7 +653,8 @@ void replaceDistributedArraysInIO(vector<ParallelRegion*>& regions,
// original declaration statement
auto* decl_stmt = getDeclStatement(decl_place.second);
auto *decl_stmt = SgStatement::getStatementByFileAndLine(decl_place.first, decl_place.second);
if (!decl_stmt || !isSgDeclarationStatement(decl_stmt))
printInternalError(convertFileName(__FILE__).c_str(), __LINE__);