From 0f158db0bf587d51a8527e7399d258b5391bdfef Mon Sep 17 00:00:00 2001 From: Paul Thomas Date: Wed, 8 Jul 2009 19:00:17 +0000 Subject: [PATCH] re PR fortran/40683 (gfortran.dg/proc_ptr_21.f90 doesn't work for 32bit) 2008-07-08 Paul Thomas PR fortran/40683 * gfortran.dg/proc_ptr_21.f90: Initialize 'i'. From-SVN: r149383 --- gcc/testsuite/gfortran.dg/proc_ptr_21.f90 | 1 + 1 file changed, 1 insertion(+) diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 index 312dca9..875173f 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 -- 2.7.4