+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
--- /dev/null
+/* { 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++ } } */
+ ;
+
+}
--- /dev/null
+! { 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