flang/test/Lower/HLFIR/assumed-size-cray-pointee.f90

   1 ! Test lowering of assumed-size cray pointee. This is an
   2 ! odd case where an assumed-size symbol is not a dummy.
   3 ! Test that no bogus stack allocation is created for it
   4 ! (it will take its address from the cray pointer when used).
   5 ! RUN: bbc -emit-hlfir -o - %s | FileCheck %s
   6
   7 subroutine assumed_size_cray_ptr
   8   implicit none
   9   pointer(ivar,var)
  10   real :: var(*)
  11 end subroutine
  12 ! CHECK-LABEL: func.func @_QPassumed_size_cray_ptr
  13 ! CHECK-NOT: fir.alloca !fir.array<?xf32>
  14 ! CHECK: return