diff --git a/flang/lib/Evaluate/tools.cpp b/flang/lib/Evaluate/tools.cpp index 6b3db619c1e2f1..400f27aef98da6 100644 --- a/flang/lib/Evaluate/tools.cpp +++ b/flang/lib/Evaluate/tools.cpp @@ -1011,6 +1011,9 @@ struct CollectCudaSymbolsHelper : public SetTraverse>> ! CHECK-NOT: cuf.data_transfer + +subroutine sub18() + integer, device, allocatable :: a(:) + integer :: isz + + isz = size(a) +end subroutine + +! CHECK-LABEL: func.func @_QPsub18() +! CHECK-NOT: cuf.data_transfer