intel/llvm
1
0
Fork 0
mirror of https://github.com/intel/llvm.git synced 2026-02-01 00:46:45 +08:00
Code Issues Packages Projects Releases Wiki Activity

[flang] Comments

Browse Source 
Original-commit: flang-compiler/f18@0c12188e84
Reviewed-on: https://github.com/flang-compiler/f18/pull/926
This commit is contained in:
peter klausler
2020-01-14 16:16:32 -08:00
parent 210992e526
commit 68f021b8ac
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
flang/lib/semantics/check-declarations.cc
View File

@@ -1051,7 +1051,7 @@ void CheckHelper::CheckEquivalenceSet(const EquivalenceSet &set) {
if (&object != &*iter) {
if (auto *details{object.symbol.detailsIf<ObjectEntityDetails>()}) {
if (details->commonBlock()) {
if (details->commonBlock() != &commonBlock) {
if (details->commonBlock() != &commonBlock) { // 8.10.3 paragraph 1
if (auto *msg{messages_.Say(object.symbol.name(),
"Two objects in the same EQUIVALENCE set may not be members of distinct COMMON blocks"_err_en_US)}) {
msg->Attach(iter->symbol.name(),
@@ -1066,7 +1066,8 @@ void CheckHelper::CheckEquivalenceSet(const EquivalenceSet &set) {
}
} else {
// Mark all symbols in the equivalence set with the same COMMON
// block
// block to prevent spurious error messages about initialization
// in BLOCK DATA outside COMMON
details->set_commonBlock(commonBlock);
}
}