]>
Commit | Line | Data |
---|---|---|
b1a73b48 | 1 | ! Ensure that write on the offload device works. |
8916ba87 AS |
2 | |
3 | ! { dg-do run } | |
4 | ! { dg-output "The answer is 42(\n|\r\n|\r)+" } | |
b1a73b48 | 5 | |
3a4775d4 TS |
6 | ! See 'print-1-nvptx.f90' regarding the nvptx offloading XFAIL. |
7 | ! { dg-xfail-run-if TODO { openacc_nvidia_accel_selected } } | |
8916ba87 | 8 | |
2a570f11 TS |
9 | ! { dg-additional-options "-fopt-info-note-omp" } |
10 | ! { dg-additional-options "-foffload=-fopt-info-note-omp" } | |
11 | ||
12 | ! { dg-additional-options "--param=openacc-privatization=noisy" } | |
13 | ! { dg-additional-options "-foffload=--param=openacc-privatization=noisy" } | |
14 | ! Prune a few: uninteresting, and potentially varying depending on GCC configuration (data types): | |
15 | ! { dg-prune-output {note: variable 'D\.[0-9]+' declared in block isn't candidate for adjusting OpenACC privatization level: not addressable} } */ | |
16 | ||
17 | ! It's only with Tcl 8.5 (released in 2007) that "the variable 'varName' | |
18 | ! passed to 'incr' may be unset, and in that case, it will be set to [...]", | |
19 | ! so to maintain compatibility with earlier Tcl releases, we manually | |
20 | ! initialize counter variables: | |
21 | ! { dg-line l_dummy[variable c_compute 0] } | |
22 | ! { dg-message dummy {} { target iN-VAl-Id } l_dummy } to avoid | |
23 | ! "WARNING: dg-line var l_dummy defined, but not used". | |
24 | ||
8916ba87 AS |
25 | program main |
26 | implicit none | |
27 | integer :: var = 42 | |
28 | ||
2a570f11 | 29 | !$acc parallel ! { dg-line l_compute[incr c_compute] } |
11e811d8 | 30 | ! { dg-note {variable 'dt_parm\.[0-9]+' declared in block isn't candidate for adjusting OpenACC privatization level: artificial} {} { target *-*-* } l_compute$c_compute } |
8916ba87 AS |
31 | write (0, '("The answer is ", I2)') var |
32 | !$acc end parallel | |
33 | ||
34 | end program main |