libgomp/testsuite/libgomp.fortran/declare-target-2.f90

   1 ! Don't compile this anywhere, it is just auxiliary
   2 ! file compiled together with declare-target-1.f90
   3 ! to verify inter-CU module handling of omp declare target.
   4 ! { dg-do compile { target { lp64 && { ! lp64 } } } }
   5
   6 subroutine foo
   7   use declare_target_1_mod
   8
   9   var_x = 10
  10   var_y = 20
  11   var_z = 30
  12   !$omp target update to(var_x, var_y, var_z)
  13
  14   !$omp target
  15     var_x = var_x * 2;
  16     var_y = var_y * 3;
  17     var_z = var_z * 4;
  18   !$omp end target
  19
  20   !$omp target update from(var_x, var_y, var_z)
  21   if (var_x /= 20) stop 1
  22   if (var_y /= 20*3) stop 2
  23   if (var_z /= 30*4) stop 3
  24 end subroutine foo