mirrors/llvm-project
0
0
Fork 0
mirror of https://github.com/llvm/llvm-project.git synced 2025-04-27 06:16:06 +00:00
Code Issues Projects Releases Wiki Activity

[flang] Fix build warning, add comment about extension not supported

Browse Source 
Original-commit: flang-compiler/f18@1033ae05ca
Reviewed-on: https://github.com/flang-compiler/f18/pull/477
This commit is contained in:
peter klausler 2019-06-04 14:51:56 -07:00
parent cab9b3072b
commit 2e44404e94
2 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
flang/documentation/Extensions.md
View File

@ -97,3 +97,4 @@ Extensions and legacy features deliberately not supported
* `T` and `F` as abbreviations for `.TRUE.` and `.FALSE.` in DATA (PGI/XLF)
* Use of host FORMAT labels in internal subprograms (PGI-only feature)
* ALLOCATE(TYPE(derived)::...) as variant of correct ALLOCATE(derived::...) (PGI only)
* USE association of a procedure interface within that same procedure's definition

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

@ -4675,8 +4675,7 @@ bool ResolveNamesVisitor::Pre(const parser::ProgramUnit &x) {
// to be procedures, so that they don't get converted to objects by default.
class ExecutionPartSkimmer {
public:
ExecutionPartSkimmer(SemanticsContext &c, Scope &s)
: context_{c}, scope_{s} {}
explicit ExecutionPartSkimmer(Scope &s) : scope_{s} {}
void Walk(const parser::ExecutionPart *exec) {
if (exec != nullptr) {
@ -4696,7 +4695,6 @@ public:
private:
void NoteCall(Symbol::Flag, const parser::Call &);
SemanticsContext &context_;
Scope &scope_;
};
@ -4738,7 +4736,7 @@ void ResolveNamesVisitor::ResolveSpecificationParts(ProgramTree &node) {
}
}
}
ExecutionPartSkimmer{context(), scope}.Walk(node.exec());
ExecutionPartSkimmer{scope}.Walk(node.exec());
for (auto &child : node.children()) {
ResolveSpecificationParts(child);
}