File tree Expand file tree Collapse file tree 2 files changed +5
-5
lines changed
Expand file tree Collapse file tree 2 files changed +5
-5
lines changed Original file line number Diff line number Diff line change @@ -2174,13 +2174,13 @@ bool IsAutomatic(const Symbol &original) {
21742174}
21752175
21762176bool CanCUDASymbolHaveSaveAttr (const Symbol &sym) {
2177- if (const auto *details =
2178- sym.GetUltimate ().detailsIf <semantics::ObjectEntityDetails>()) {
2177+ if (const auto *details{
2178+ sym.GetUltimate ().detailsIf <semantics::ObjectEntityDetails>()} ) {
21792179 const Fortran::semantics::DeclTypeSpec *type{details->type ()};
21802180 const Fortran::semantics::DerivedTypeSpec *derived{
21812181 type ? type->AsDerived () : nullptr };
21822182 if (derived) {
2183- if (auto iter{ FindCUDADeviceAllocatableUltimateComponent (*derived)} ) {
2183+ if (FindCUDADeviceAllocatableUltimateComponent (*derived)) {
21842184 return false ;
21852185 }
21862186 }
Original file line number Diff line number Diff line change @@ -1083,8 +1083,8 @@ const Scope *FindCUDADeviceContext(const Scope *scope) {
10831083
10841084bool IsDeviceAllocatable (const Symbol &symbol) {
10851085 if (IsAllocatable (symbol)) {
1086- if (const auto *details =
1087- symbol.GetUltimate ().detailsIf <semantics::ObjectEntityDetails>()) {
1086+ if (const auto *details{
1087+ symbol.GetUltimate ().detailsIf <semantics::ObjectEntityDetails>()} ) {
10881088 if (details->cudaDataAttr () &&
10891089 *details->cudaDataAttr () != common::CUDADataAttr::Pinned) {
10901090 return true ;
You can’t perform that action at this time.
0 commit comments