25 lines · plain
1! Test forwarding of -f[no-]stack-repack-arrays options:2! RUN: %flang -fstack-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=STACKCMD %s3! RUN: %flang -fno-stack-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=HEAPCMD %s4! RUN: %flang -fstack-repack-arrays -fno-stack-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=HEAPCMD %s5! RUN: %flang -fno-stack-repack-arrays -fstack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=HEAPCMD %s6! RUN: %flang -fno-stack-repack-arrays -fstack-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=STACKCMD %s7 8! Test proper setting of the lowering options:9! RUN: %flang_fc1 -frepack-arrays -fstack-repack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=STACK %s10! RUN: %flang_fc1 -frepack-arrays -fno-stack-repack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=HEAP %s11 12! Default setting is 'heap':13! RUN: %flang_fc1 -frepack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=HEAP %s14 15! STACKCMD: "-fc1"{{.*}}"-fstack-repack-arrays"16! HEAPCMD: "-fc1"{{.*}}"-fno-stack-repack-arrays"17 18subroutine test(x)19 real :: x(:,:)20 ! STACK: fir.pack_array{{.*}}stack21 ! STACK: fir.unpack_array{{.*}}stack22 ! HEAP: fir.pack_array{{.*}}heap23 ! HEAP: fir.unpack_array{{.*}}heap24end subroutine25