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

[flang] Fix bug flang-compiler/f18#642 

Original-commit: flang-compiler/f18@d898b29285
Reviewed-on: https://github.com/flang-compiler/f18/pull/648
This commit is contained in:
peter klausler 2019-08-12 12:10:43 -07:00
parent 09670c9a61
commit f3b5d156cb
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
flang/lib/semantics/expression.cc
View File

@ -1191,7 +1191,7 @@ MaybeExpr ExpressionAnalyzer::Analyze(
}
}
// This list holds all of the components in the derived type and its
// This iterator traverses all of the components in the derived type and its
// parents. The symbols for whole parent components appear after their
// own components and before the components of the types that extend them.
// E.g., TYPE :: A; REAL X; END TYPE
@ -1334,6 +1334,7 @@ MaybeExpr ExpressionAnalyzer::Analyze(
if (IsPointer(*symbol)) {
CheckPointerAssignment(messages, context_.intrinsics(), *symbol,
*value); // C7104, C7105
result.Add(*symbol, Fold(GetFoldingContext(), std::move(*value)));
} else if (MaybeExpr converted{
ConvertToType(*symbol, std::move(*value))}) {
result.Add(*symbol, std::move(*converted));