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

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