aboutsummaryrefslogtreecommitdiff
path: root/flang/lib/Semantics/check-cuda.cpp
diff options
context:
space:
mode:
Diffstat (limited to 'flang/lib/Semantics/check-cuda.cpp')
-rw-r--r--flang/lib/Semantics/check-cuda.cpp3
1 files changed, 3 insertions, 0 deletions
diff --git a/flang/lib/Semantics/check-cuda.cpp b/flang/lib/Semantics/check-cuda.cpp
index 3d2db6a..caa9bdd 100644
--- a/flang/lib/Semantics/check-cuda.cpp
+++ b/flang/lib/Semantics/check-cuda.cpp
@@ -131,6 +131,9 @@ struct FindHostArray
return (*this)(x.base());
}
Result operator()(const Symbol &symbol) const {
+ if (symbol.IsFuncResult()) {
+ return nullptr;
+ }
if (const auto *details{
symbol.GetUltimate().detailsIf<semantics::ObjectEntityDetails>()}) {
if (details->IsArray() &&