From: Paul Thomas <pault@gcc.gnu.org>
Date: Wed, 8 Jul 2009 19:00:17 +0000 (+0000)
Subject: re PR fortran/40683 (gfortran.dg/proc_ptr_21.f90 doesn't work for 32bit)
X-Git-Url: https://git.libre-soc.org/?a=commitdiff_plain;h=0f158db0bf587d51a8527e7399d258b5391bdfef;p=gcc.git

re PR fortran/40683 (gfortran.dg/proc_ptr_21.f90 doesn't work for 32bit)

2008-07-08  Paul Thomas  <pault@gcc.gnu.org>

	PR fortran/40683
	* gfortran.dg/proc_ptr_21.f90: Initialize 'i'.

From-SVN: r149383
---

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
index 312dca941ba..875173fd3d8 100644
--- a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
+++ b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
@@ -15,6 +15,7 @@ contains
     procedure(sub1), pointer :: pptr1
     procedure(sub2), pointer :: pptr2
     integer i
+    i = 0
     pptr1 => sub1
     call pptr1 (i)
     pptr1 => sub2