PR c++/86342 - -Wdeprecated-copy and system headers.
[official-gcc.git] / libgomp / testsuite / libgomp.fortran / declare-target-2.f90
blob1fbc0dc0cb7ebb10a80bb86eb2634be63eddff6a
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 } } } }
6 subroutine foo
7 use declare_target_1_mod
9 var_x = 10
10 !$omp target update to(var_x)
12 !$omp target
13 var_x = var_x * 2;
14 !$omp end target
16 !$omp target update from(var_x)
17 if (var_x /= 20) STOP 1
18 end subroutine foo