squiid/llvm
1
0
Fork 0
Code Issues Pull requests 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
Show stats 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);
}
}