From b2a4dd1ddc5eae14687c0b264f77bd4054ea18d7 Mon Sep 17 00:00:00 2001
From: Tom de Vries <tom@codesourcery.com>
Date: Thu, 24 Mar 2016 11:29:27 +0000
Subject: [PATCH] Add goacc/uninit-if-clause.{c,f95}

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

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

From-SVN: r234451
---
 gcc/testsuite/ChangeLog                       |  5 +++
 .../c-c++-common/goacc/uninit-if-clause.c     | 38 +++++++++++++++++++
 .../gfortran.dg/goacc/uninit-if-clause.f95    | 20 ++++++++++
 3 files changed, 63 insertions(+)
 create mode 100644 gcc/testsuite/c-c++-common/goacc/uninit-if-clause.c
 create mode 100644 gcc/testsuite/gfortran.dg/goacc/uninit-if-clause.f95

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 16b718b8d73..01c6f2f10c9 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-if-clause.c: New test.
+	* gfortran.dg/goacc/uninit-if-clause.f95: New test.
+
 2016-03-24  Jakub Jelinek  <jakub@redhat.com>
 
 	PR target/70290
diff --git a/gcc/testsuite/c-c++-common/goacc/uninit-if-clause.c b/gcc/testsuite/c-c++-common/goacc/uninit-if-clause.c
new file mode 100644
index 00000000000..55caa4c2c7f
--- /dev/null
+++ b/gcc/testsuite/c-c++-common/goacc/uninit-if-clause.c
@@ -0,0 +1,38 @@
+/* { dg-do compile } */
+/* { dg-additional-options "-Wuninitialized" } */
+/* { dg-excess-errors "PR70392" { xfail c++ } } */
+
+#include <stdbool.h>
+
+int
+main (void)
+{
+  int l, l2, l3, l4;
+  bool b, b2, b3, b4;
+  int i, i2;
+
+  #pragma acc parallel if(l) /* { dg-warning "is used uninitialized in this function" } */
+  ;
+
+  #pragma acc parallel if(b) /* { dg-warning "is used uninitialized in this function" "" { xfail c++ } } */
+  ;
+
+  #pragma acc kernels if(l2) /* { dg-warning "is used uninitialized in this function" } */
+  ;
+
+  #pragma acc kernels if(b2) /* { dg-warning "is used uninitialized in this function" "" { xfail c++ } } */
+  ;
+
+  #pragma acc data if(l3) /* { dg-warning "is used uninitialized in this function" } */
+  ;
+
+  #pragma acc data if(b3) /* { dg-warning "is used uninitialized in this function" "" { xfail c++ } } */
+  ;
+
+  #pragma acc update if(l4) self(i) /* { dg-warning "is used uninitialized in this function" } */
+  ;
+
+  #pragma acc update if(b4) self(i2) /* { dg-warning "is used uninitialized in this function" "" { xfail c++ } } */
+  ;
+
+}
diff --git a/gcc/testsuite/gfortran.dg/goacc/uninit-if-clause.f95 b/gcc/testsuite/gfortran.dg/goacc/uninit-if-clause.f95
new file mode 100644
index 00000000000..60dc53e7850
--- /dev/null
+++ b/gcc/testsuite/gfortran.dg/goacc/uninit-if-clause.f95
@@ -0,0 +1,20 @@
+! { dg-do compile }
+! { dg-additional-options "-Wuninitialized" }
+
+program test
+  implicit none
+  logical :: b, b2, b3, b4
+  integer :: data, data2
+
+  !$acc parallel if(b) ! { dg-warning "is used uninitialized in this function" }
+  !$acc end parallel
+
+  !$acc kernels if(b2) ! { dg-warning "is used uninitialized in this function" }
+  !$acc end kernels
+
+  !$acc data if(b3) ! { dg-warning "is used uninitialized in this function" }
+  !$acc end data
+
+  !$acc update if(b4) self(data2) ! { dg-warning "is used uninitialized in this function" }
+
+end program test
-- 
2.30.2