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

fixed

Browse Source
This commit is contained in:
ALEXks
2023-11-05 10:25:29 +03:00
parent 8a69ee3a40
commit 2288ef3edf
3 changed files with 18 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
dvm/fdvm/trunk/fdvm/dvm.cpp
View File

@@ -6263,6 +6263,14 @@ SgExpression *doShapeList(SgSymbol *ar, SgStatement *st) /* RTS2 */
l_bound = &(c1.copy());
}
else {
if(sbe->ubound() && sbe->ubound()->variant() == STAR_RANGE) {
if(st->variant()==DVM_PARALLEL_ON_DIR )
Error("Assumed-size array in parallel loop: %s",ar->identifier(), 162,st);
else if( st->variant()==ACC_REGION_DIR)
Error("Assumed-size array in region: %s",ar->identifier(), 162,st);
else
Error("Assumed-size array: %s",ar->identifier(), 162,st);
}
u_bound = UBOUNDFunction(ar,i+1);
l_bound = LBOUNDFunction(ar,i+1);
}
@@ -6274,6 +6282,14 @@ SgExpression *doShapeList(SgSymbol *ar, SgStatement *st) /* RTS2 */
l_bound = &(c1.copy());
}
else {
if(pe->variant() == STAR_RANGE) {
if(st->variant()==DVM_PARALLEL_ON_DIR )
Error("Assumed-size array in parallel loop: %s",ar->identifier(), 162,st);
else if( st->variant()==ACC_REGION_DIR)
Error("Assumed-size array in region: %s",ar->identifier(), 162,st);
else
Error("Assumed-size array: %s",ar->identifier(), 162,st);
}
u_bound = UBOUNDFunction(ar,i+1);
l_bound = LBOUNDFunction(ar,i+1);
}

2
sapfor/experts/Sapfor_2017/_src/Utils/errors.h
View File

@@ -532,7 +532,7 @@ static const wchar_t *R197 = L"R197:";
//2024
static const wchar_t *R198 = L"R198:%d";
//2025
static const wchar_t *R203 = L"R203:%s%s";
static const wchar_t *R203 = L"R203:%s#%s";
//3001
static const wchar_t *R108 = L"R108:%s";

2
sapfor/experts/Sapfor_2017/_src/Utils/version.h
View File

@@ -1,3 +1,3 @@
#pragma once
#define VERSION_SPF "2230"
#define VERSION_SPF "2231"