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.
---
gcc/testsuite/c-c++-common/goacc/uninit-dim-clause.c | 19 +++++++++++++++++++
gcc/testsuite/gfortran.dg/goacc/uninit-dim-clause.f95 | 17 +++++++++++++++++
2 files changed, 36 insertions(+)
new file mode 100644
@@ -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" } */
+ ;
+}
new file mode 100644
@@ -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