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 85a8aca commit 16d0951Copy full SHA for 16d0951
flang/lib/Lower/Allocatable.cpp
@@ -629,7 +629,7 @@ class AllocateStmtHelper {
629
unsigned allocatorIdx = Fortran::lower::getAllocatorIdx(alloc.getSymbol());
630
fir::ExtendedValue exv = isSource ? sourceExv : moldExv;
631
632
- if (const Fortran::semantics::Symbol * sym{GetLastSymbol(sourceExpr)})
+ if (const Fortran::semantics::Symbol *sym{GetLastSymbol(sourceExpr)})
633
if (Fortran::semantics::IsCUDADevice(*sym))
634
TODO(loc, "CUDA Fortran: allocate with device source");
635
0 commit comments