diff options
| author | Tom de Vries <tom@codesourcery.com> | 2016-03-24 16:15:45 +0000 |
|---|---|---|
| committer | Tom de Vries <vries@gcc.gnu.org> | 2016-03-24 16:15:45 +0000 |
| commit | 45780041365e0c64e25e45cb00d16c79478558c7 (patch) | |
| tree | 0a6b15392a9860027c186a6b2a2d44aba327910a /gcc | |
| parent | 887ab4e55402409cd7b56ad518607d05687b7ed2 (diff) | |
| download | gcc-45780041365e0c64e25e45cb00d16c79478558c7.zip gcc-45780041365e0c64e25e45cb00d16c79478558c7.tar.gz gcc-45780041365e0c64e25e45cb00d16c79478558c7.tar.bz2 | |
Add goacc/uninit-dim-clause.{c,f95}
2016-03-24 Tom de Vries <tom@codesourcery.com>
* c-c++-common/goacc/uninit-dim-clause.c: New test.
* gfortran.dg/goacc/uninit-dim-clause.f95: New test.
From-SVN: r234458
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/c-c++-common/goacc/uninit-dim-clause.c | 19 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95 | 17 |
3 files changed, 41 insertions, 0 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 582bb8b..d268679 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2016-03-24 Tom de Vries <tom@codesourcery.com> + + * c-c++-common/goacc/uninit-dim-clause.c: New test. + * gfortran.dg/goacc/uninit-dim-clause.f95: New test. + 2016-03-24 Patrick Palka <ppalka@gcc.gnu.org> PR c++/62212 diff --git a/gcc/testsuite/c-c++-common/goacc/uninit-dim-clause.c b/gcc/testsuite/c-c++-common/goacc/uninit-dim-clause.c new file mode 100644 index 0000000..0a006e3 --- /dev/null +++ b/gcc/testsuite/c-c++-common/goacc/uninit-dim-clause.c @@ -0,0 +1,19 @@ +/* { dg-do compile } */ +/* { dg-additional-options "-Wuninitialized" } */ + +#include <stdbool.h> + +int +main (void) +{ + int i, j, k; + + #pragma acc parallel num_gangs(i) /* { dg-warning "is used uninitialized in this function" } */ + ; + + #pragma acc parallel num_workers(j) /* { dg-warning "is used uninitialized in this function" } */ + ; + + #pragma acc parallel vector_length(k) /* { dg-warning "is used uninitialized in this function" } */ + ; +} diff --git a/gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95 b/gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95 new file mode 100644 index 0000000..b87d26f --- /dev/null +++ b/gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95 @@ -0,0 +1,17 @@ +! { dg-do compile } +! { dg-additional-options "-Wuninitialized" } + +program test + implicit none + integer :: i, j, k + + !$acc parallel num_gangs(i) ! { dg-warning "is used uninitialized in this function" } + !$acc end parallel + + !$acc parallel num_workers(j) ! { dg-warning "is used uninitialized in this function" } + !$acc end parallel + + !$acc parallel vector_length(k) ! { dg-warning "is used uninitialized in this function" } + !$acc end parallel + +end program test |