From f4a6fe026d6d4d3cbd19c84003a8724742d33f16 Mon Sep 17 00:00:00 2001 From: Caroline Concatto Date: Wed, 7 Aug 2019 08:47:04 +0100 Subject: [PATCH] [flang] Removing TODO comments as they are implemented by this patch Original-commit: flang-compiler/f18@885eb92b4f8ce07fc39af3655f6c04b74a10a9fa Reviewed-on: https://github.com/flang-compiler/f18/pull/584 --- flang/lib/parser/parse-tree.h | 3 --- flang/lib/semantics/resolve-names.cc | 4 +++- 2 files changed, 3 insertions(+), 4 deletions(-) diff --git a/flang/lib/parser/parse-tree.h b/flang/lib/parser/parse-tree.h index 93b0136..434c741 100644 --- a/flang/lib/parser/parse-tree.h +++ b/flang/lib/parser/parse-tree.h @@ -2092,9 +2092,6 @@ WRAPPER_CLASS(BlockSpecificationPart, SpecificationPart); // SpecificationPart, it can misrecognize an ImplicitPart as part of // the BlockSpecificationPart during parsing, and we have to detect and // flag such usage in semantics. -// TODO: error if any COMMON, EQUIVALENCE, INTENT, NAMELIST, OPTIONAL, -// VALUE, ENTRY, SAVE /common/, or statement function definition statement -// appears in a block-specification part (C1107, C1570). // R1107 block-construct -> // block-stmt [block-specification-part] block end-block-stmt diff --git a/flang/lib/semantics/resolve-names.cc b/flang/lib/semantics/resolve-names.cc index 643c384..fd45ed8 100644 --- a/flang/lib/semantics/resolve-names.cc +++ b/flang/lib/semantics/resolve-names.cc @@ -3691,7 +3691,9 @@ void DeclarationVisitor::CheckSaveStmts() { "'%s' appears as a COMMON block in a SAVE statement but not in" " a COMMON statement"_err_en_US); } else { // C1108 - Say(name,"SAVE statement in BLOCK construct may not contain a common block name '%s'"_err_en_US); + Say(name, + "SAVE statement in BLOCK construct may not contain a" + " common block name '%s'"_err_en_US); } } else { for (Symbol *object : symbol->get().objects()) { -- 2.7.4