diff options
| author | Paul Thomas <pault@gcc.gnu.org> | 2009-07-08 19:00:17 +0000 |
|---|---|---|
| committer | Paul Thomas <pault@gcc.gnu.org> | 2009-07-08 19:00:17 +0000 |
| commit | 0f158db0bf587d51a8527e7399d258b5391bdfef (patch) | |
| tree | 7e59cc8875b45d3618de5167fc778966064e9aa9 | |
| parent | a729ce289ca13b72f707d3420b4b60fab16bfb6f (diff) | |
| download | gcc-0f158db0bf587d51a8527e7399d258b5391bdfef.zip gcc-0f158db0bf587d51a8527e7399d258b5391bdfef.tar.gz gcc-0f158db0bf587d51a8527e7399d258b5391bdfef.tar.bz2 | |
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
| -rw-r--r-- | gcc/testsuite/gfortran.dg/proc_ptr_21.f90 | 1 |
1 files changed, 1 insertions, 0 deletions
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 |