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
This commit is contained in:
Paul Thomas 2009-07-08 19:00:17 +00:00
parent a729ce289c
commit 0f158db0bf

View File

@ -15,6 +15,7 @@ contains
procedure(sub1), pointer :: pptr1
procedure(sub2), pointer :: pptr2
integer i
i = 0
pptr1 => sub1
call pptr1 (i)
pptr1 => sub2