! Test lowering of assumed-size cray pointee. This is an
! odd case where an assumed-size symbol is not a dummy.
! Test that no bogus stack allocation is created for it
! (it will take its address from the cray pointer when used).
! RUN: bbc -emit-hlfir -o - %s | FileCheck %s

subroutine assumed_size_cray_ptr
  implicit none
  pointer(ivar,var)
  real :: var(*)
end subroutine
! CHECK-LABEL: func.func @_QPassumed_size_cray_ptr
! CHECK-NOT: fir.alloca !fir.array<?xf32>
! CHECK: return