15 lines · plain
1! Test lowering of assumed-size cray pointee. This is an2! odd case where an assumed-size symbol is not a dummy.3! Test that no bogus stack allocation is created for it4! (it will take its address from the cray pointer when used).5! RUN: bbc -emit-hlfir -o - %s | FileCheck %s6 7subroutine assumed_size_cray_ptr8 implicit none9 pointer(ivar,var)10 real :: var(*)11end subroutine12! CHECK-LABEL: func.func @_QPassumed_size_cray_ptr13! CHECK-NOT: fir.alloca !fir.array<?xf32>14! CHECK: return15