50 lines · plain
1! Offloading test checking interaction of mapping a full common block in a2! target region3! REQUIRES: flang, amdgcn-amd-amdhsa4! UNSUPPORTED: nvptx64-nvidia-cuda5! UNSUPPORTED: nvptx64-nvidia-cuda-LTO6! UNSUPPORTED: aarch64-unknown-linux-gnu7! UNSUPPORTED: aarch64-unknown-linux-gnu-LTO8! UNSUPPORTED: x86_64-unknown-linux-gnu9! UNSUPPORTED: x86_64-unknown-linux-gnu-LTO10 11! RUN: %libomptarget-compile-fortran-run-and-check-generic12program main13 implicit none14 common /var_common/ var1, var215 integer :: var1, var216 17 call modify_118 19 !$omp target map(tofrom: /var_common/)20 var1 = var1 + 2021 var2 = var2 + 5022 !$omp end target23 24 call modify_225 26 print *, var127 print *, var228end program29 30subroutine modify_131 common /var_common/ var1, var232 integer :: var1, var233!$omp target map(tofrom: /var_common/)34 var1 = var1 + 2035 var2 = var2 + 3036!$omp end target37end38 39subroutine modify_240 common /var_common/ var1, var241 integer :: var1, var242!$omp target map(tofrom: /var_common/)43 var1 = var1 * 1044 var2 = var2 * 1045!$omp end target46end47 48!CHECK: 40049!CHECK: 80050