25 lines · plain
1! Test forwarding of -f[no-]repack-arrays options:2! RUN: %flang -frepack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=REPACKCMD %s3! RUN: %flang -fno-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=NOREPACKCMD %s4! RUN: %flang -frepack-arrays -fno-repack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=NOREPACKCMD %s5! RUN: %flang -fno-repack-arrays -frepack-arrays %s -### -fsyntax-only 2>&1 | FileCheck --check-prefix=REPACKCMD %s6 7! Test proper setting of the lowering options:8! RUN: %flang_fc1 -frepack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=REPACK %s9! RUN: %flang_fc1 -fno-repack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=NOREPACK %s10! RUN: %flang_fc1 -frepack-arrays -fno-repack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=NOREPACK %s11! RUN: %flang_fc1 -fno-repack-arrays -frepack-arrays %s -emit-hlfir -o - | FileCheck --check-prefix=REPACK %s12 13! REPACKCMD: "-fc1"{{.*}}"-frepack-arrays"14! REPACKCMD-NOT: -fno-repack-arrays15! NOREPACKCMD: "-fc1"{{.*}}"-fno-repack-arrays"16! NOREPACKCMD-NOT: -frepack-arrays17 18subroutine test(x)19 real :: x(:)20 ! REPACK: fir.pack_array21 ! REPACK: fir.unpack_array22 ! NOREPACK-NOT: fir.pack_array23 ! NOREPACK-NOT: fir.unpack_array24end subroutine25