diff --git a/gcc/testsuite/gfortran.dg/proc_ptr_21.f90 b/gcc/testsuite/gfortran.dg/proc_ptr_21.f90
index 312dca941bae..875173fd3d8e 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