18 lines · plain
1! Test that fir.acc_safe_temp_array_copy and fir.omp_safe_temp_array_copy2! are properly attached to fir.[un]pack_array by the lowering.3 4! RUN: bbc -emit-hlfir -fopenacc -frepack-arrays %s -o - | FileCheck --check-prefixes=ALL,ACC %s5! RUN: bbc -emit-hlfir -fopenmp -frepack-arrays %s -o - | FileCheck --check-prefixes=ALL,OMP %s6! RUN: bbc -emit-hlfir -fopenacc -fopenmp -frepack-arrays %s -o - | FileCheck --check-prefixes=ALL,ACCOMP %s7 8subroutine test(x)9 real :: x(:)10end subroutine test11! ALL-LABEL: func.func @_QPtest(12! ACC: %[[VAL_2:.*]] = fir.pack_array{{.*}}is_safe [#fir.acc_safe_temp_array_copy]13! ACC: fir.unpack_array{{.*}}is_safe [#fir.acc_safe_temp_array_copy]14! OMP: %[[VAL_2:.*]] = fir.pack_array{{.*}}is_safe [#fir.omp_safe_temp_array_copy]15! OMP: fir.unpack_array{{.*}}is_safe [#fir.omp_safe_temp_array_copy]16! ACCOMP: %[[VAL_2:.*]] = fir.pack_array{{.*}}is_safe [#fir.acc_safe_temp_array_copy, #fir.omp_safe_temp_array_copy]17! ACCOMP: fir.unpack_array{{.*}}is_safe [#fir.acc_safe_temp_array_copy, #fir.omp_safe_temp_array_copy]18