[flang] Accept polymorphic component element in storage_size

[llvm-project.git] / flang / test / Lower / variable.f90

! RUN: bbc -emit-fir %s -o - | FileCheck %s

! CHECK-LABEL: func @_QPs() {
subroutine s
  ! CHECK-DAG: fir.alloca !fir.box<!fir.heap<i32>> {{{.*}}uniq_name = "{{.*}}Eally"}
  integer, allocatable :: ally
  ! CHECK-DAG: fir.alloca !fir.box<!fir.ptr<i32>> {{{.*}}uniq_name = "{{.*}}Epointy"} 
  integer, pointer :: pointy
  ! CHECK-DAG: fir.alloca i32 {{{.*}}fir.target{{.*}}uniq_name = "{{.*}}Ebullseye"}
  integer, target :: bullseye
  ! CHECK: return
end subroutine s