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);
}