[flang] Accept polymorphic component element in storage_size

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

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

! CHECK-LABEL pause_test
subroutine pause_test()
  ! CHECK: fir.call @_Fortran{{.*}}PauseStatement()
  ! CHECK-NEXT: return
  pause
end subroutine