maxjhandsome
/
llvm-project
forked from OSchip/llvm-project
1
0
Fork 0
Code Issues Pull Requests Packages Releases Wiki Activity

[flang] Removing two sentence error 

Original-commit: flang-compiler/f18@fd5aafc5af
Reviewed-on: https://github.com/flang-compiler/f18/pull/584
Tree-same-pre-rewrite: false
This commit is contained in:
Caroline Concatto 2019-08-06 09:26:40 +01:00
parent 23b0337598
commit 7aaf74c1bc
2 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
flang/lib/semantics/resolve-names.cc
View File

@ -3691,9 +3691,7 @@ void DeclarationVisitor::CheckSaveStmts() {
"'%s' appears as a COMMON block in a SAVE statement but not in" "'%s' appears as a COMMON block in a SAVE statement but not in"
" a COMMON statement"_err_en_US); " a COMMON statement"_err_en_US);
} else { // C1108 } else { // C1108
Say(name, Say(name,"SAVE statement in BLOCK construct may not contain a common block name '%s'"_err_en_US);
"'%s' specifier is not allowed in a BLOCK Construct."
" It is a Common Block Name"_err_en_US);
} }
} else { } else {
for (Symbol *object : symbol->get<CommonBlockDetails>().objects()) { for (Symbol *object : symbol->get<CommonBlockDetails>().objects()) {

2
flang/test/semantics/blockconstruct02.f90
View File

@ -22,7 +22,7 @@ program main
!ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement !ERROR: 'argmnt1' appears as a COMMON block in a SAVE statement but not in a COMMON statement
save /argmnt1/ save /argmnt1/
block block
!ERROR: 'argmnt2' specifier is not allowed in a BLOCK Construct. It is a Common Block Name !ERROR: SAVE statement in BLOCK construct may not contain a common block name 'argmnt2'
save /argmnt2/ save /argmnt2/
end block end block
end program end program