! RUN: bbc -emit-hlfir -frepack-arrays %s -o - | FileCheck --check-prefixes=CHECK %s

! Check that there is no repacking for ASYNCHRONOUS dummy argument.

! CHECK-LABEL:   func.func @_QPtest(
! CHECK-NOT: fir.pack_array
! CHECK-NOT: fir.unpack_array
subroutine test(x)
  integer, asynchronous :: x(:)
end subroutine test