From 108e7ee446aae3121c038250a3223fc0baca6158 Mon Sep 17 00:00:00 2001
From: vries <vries@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 24 Mar 2016 16:15:56 +0000
Subject: [PATCH] Add goacc/uninit-use-device-clause.{c,f95}

2016-03-24  Tom de Vries  <tom@codesourcery.com>

	* c-c++-common/goacc/uninit-use-device-clause.c: New test.
	* gfortran.dg/goacc/uninit-use-device-clause.f95: New test.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@234459 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                                    |  5 +++++
 .../c-c++-common/goacc/uninit-use-device-clause.c          | 14 ++++++++++++++
 .../gfortran.dg/goacc/uninit-use-device-clause.f95         | 10 ++++++++++
 3 files changed, 29 insertions(+)
 create mode 100644 gcc/testsuite/c-c++-common/goacc/uninit-use-device-clause.c
 create mode 100644 gcc/testsuite/gfortran.dg/goacc/uninit-use-device-clause.f95

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index d268679..f0150c2 100644
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,5 +1,10 @@
 2016-03-24  Tom de Vries  <tom@codesourcery.com>
 
+	* c-c++-common/goacc/uninit-use-device-clause.c: New test.
+	* gfortran.dg/goacc/uninit-use-device-clause.f95: New test.
+
+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.
 
diff --git a/gcc/testsuite/c-c++-common/goacc/uninit-use-device-clause.c b/gcc/testsuite/c-c++-common/goacc/uninit-use-device-clause.c
new file mode 100644
index 0000000..c5d327c
--- /dev/null
+++ b/gcc/testsuite/c-c++-common/goacc/uninit-use-device-clause.c
@@ -0,0 +1,14 @@
+/* Test fails due to PR70388.  */
+/* { dg-do compile } */
+/* { dg-excess-errors "PR70388" { xfail *-*-* } } */
+/* { dg-additional-options "-Wuninitialized" } */
+
+void
+foo (void)
+{
+  int i;
+
+#pragma acc host_data use_device(i) /* { dg-warning "is used uninitialized in this function" "" { xfail *-*-* } } */
+  {
+  }
+}
diff --git a/gcc/testsuite/gfortran.dg/goacc/uninit-use-device-clause.f95 b/gcc/testsuite/gfortran.dg/goacc/uninit-use-device-clause.f95
new file mode 100644
index 0000000..873eea7
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/goacc/uninit-use-device-clause.f95
@@ -0,0 +1,10 @@
+! { dg-do compile }
+! { dg-additional-options "-Wuninitialized" }
+
+subroutine test
+  integer :: i
+
+  !$acc host_data use_device(i) ! { dg-warning "is used uninitialized in this function" }
+  !$acc end host_data
+end subroutine test
+
-- 
2.7.4