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   !$omp target update to(var_x)
  11
  12   !$omp target
  13     var_x = var_x * 2;
  14   !$omp end target
  15
  16   !$omp target update from(var_x)
  17   if (var_x /= 20) call abort
  18 end subroutine foo