projects / gcc.git / commitdiff
? search:
summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: a729ce2)
re PR fortran/40683 (gfortran.dg/proc_ptr_21.f90 doesn't work for 32bit)
authorPaul Thomas <pault@gcc.gnu.org>
Wed, 8 Jul 2009 19:00:17 +0000 (19:00 +0000)
committerPaul Thomas <pault@gcc.gnu.org>
Wed, 8 Jul 2009 19:00:17 +0000 (19:00 +0000)
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 patch | blob | history

diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
index 312dca941baecacc4d3bf95b8711b928c9d42e73..875173fd3d8ee7334f9d6b9c896fa033ee60495e 100644 (file)
--- 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\r
     procedure(sub2), pointer :: pptr2
     integer i\r
+    i = 0\r
     pptr1 => sub1
     call pptr1 (i)\r
     pptr1 => sub2