From: vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 24 Mar 2016 16:15:45 +0000 (+0000)
Subject: Add goacc/uninit-dim-clause.{c,f95}
X-Git-Url: http://git.ipfire.org/gitweb.cgi?a=commitdiff_plain;h=17af0b14df9fb0ec4bb2cbc6d500f1d8edebcced;p=thirdparty%2Fgcc.git

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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@234458 138bc75d-0d04-0410-961f-82ee72b054a4
---

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 582bb8bcad06..d268679d5ec4 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 000000000000..0a006e370e40
--- /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 000000000000..b87d26f521fb
--- /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