diff mbox

[testsuite,committed] Add missing initialization in goacc/host_data-tree.f95

Message ID 56F413D5.9010806@mentor.com
State New
Headers show

Commit Message

Tom de Vries March 24, 2016, 4:20 p.m. UTC 
Hi,

I've run the goacc.exp testcases with -Wuninitialized and found one more 
missing initialization. Fixed and committed as attached.

Thanks,
- Tom
diff mbox

Patch

Add missing initialization in goacc/host_data-tree.f95

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

	* gfortran.dg/goacc/host_data-tree.f95: Add missing initialization.

---
 gcc/testsuite/gfortran.dg/goacc/host_data-tree.f95 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gcc/testsuite/gfortran.dg/goacc/host_data-tree.f95 b/gcc/testsuite/gfortran.dg/goacc/host_data-tree.f95
index 23aba8c..4a11b9d 100644
--- a/gcc/testsuite/gfortran.dg/goacc/host_data-tree.f95
+++ b/gcc/testsuite/gfortran.dg/goacc/host_data-tree.f95
@@ -3,7 +3,7 @@ 
 
 program test
   implicit none
-  integer :: i
+  integer :: i = 1
 
   !$acc host_data use_device(i)
   !$acc end host_data