11 lines · plain
1! RUN: bbc -emit-hlfir -frepack-arrays %s -o - | FileCheck --check-prefixes=CHECK %s2 3! Check that there is no repacking for ASYNCHRONOUS dummy argument.4 5! CHECK-LABEL: func.func @_QPtest(6! CHECK-NOT: fir.pack_array7! CHECK-NOT: fir.unpack_array8subroutine test(x)9 integer, asynchronous :: x(:)10end subroutine test11