We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
There was an error while loading. Please reload this page.
1 parent 664e223 commit ee30ea6Copy full SHA for ee30ea6
flang/lib/Lower/OpenACC.cpp
@@ -3200,9 +3200,10 @@ genACCHostDataOp(Fortran::lower::AbstractConverter &converter,
3200
} else if (const auto *useDevice =
3201
std::get_if<Fortran::parser::AccClause::UseDevice>(
3202
&clause.u)) {
3203
- // When CUDA Fotran is en
+ // When CUDA Fotran is enabled, extra symbolds are used in the host_data
3204
+ // region. Look for them and bind their value with the symbol in the outer
3205
+ // scope.
3206
if (semanticsContext.IsEnabled(Fortran::common::LanguageFeature::CUDA)) {
-
3207
const Fortran::parser::AccObjectList &objectList{useDevice->v};
3208
for (const auto &accObject : objectList.v) {
3209
Fortran::semantics::Symbol &symbol =
0 commit comments