diff options
Diffstat (limited to 'libgomp')
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-decompose-1.c | 8 | ||||
| -rw-r--r-- | libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 | 8 |
2 files changed, 16 insertions, 0 deletions
diff --git a/libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-decompose-1.c b/libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-decompose-1.c index fa8ae6c79cd..e76e4099f3a 100644 --- a/libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-decompose-1.c +++ b/libgomp/testsuite/libgomp.oacc-c-c++-common/kernels-decompose-1.c @@ -3,6 +3,14 @@ /* { dg-additional-options "-fopt-info-omp-all" } */ /* { dg-additional-options "-fopenacc-kernels=decompose" } */ +/* It's only with Tcl 8.5 (released in 2007) that "the variable 'varName' + passed to 'incr' may be unset, and in that case, it will be set to [...]", + so to maintain compatibility with earlier Tcl releases, we manually + initialize counter variables: + { dg-line l_dummy[variable c_loop_i 0] } + { dg-message "dummy" "" { target iN-VAl-Id } l_dummy } to avoid + "WARNING: dg-line var l_dummy defined, but not used". */ + #undef NDEBUG #include <assert.h> diff --git a/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 b/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 index 82d8351f0e3..99a70418a4d 100644 --- a/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 +++ b/libgomp/testsuite/libgomp.oacc-fortran/pr94358-1.f90 @@ -2,6 +2,14 @@ ! { dg-additional-options "-fopt-info-omp-all" } ! { dg-additional-options "-fopenacc-kernels=decompose" } +! It's only with Tcl 8.5 (released in 2007) that "the variable 'varName' +! passed to 'incr' may be unset, and in that case, it will be set to [...]", +! so to maintain compatibility with earlier Tcl releases, we manually +! initialize counter variables: +! { dg-line l_dummy[variable c_loop_i 0] } +! { dg-message "dummy" "" { target iN-VAl-Id } l_dummy } to avoid +! "WARNING: dg-line var l_dummy defined, but not used". + subroutine kernel(lo, hi, a, b, c) implicit none integer :: lo, hi, i |