diff --git a/examples/F90/grib_multi.f90 b/examples/F90/grib_multi.f90
index c18b005fe..f225e6f04 100644
--- a/examples/F90/grib_multi.f90
+++ b/examples/F90/grib_multi.f90
@@ -16,7 +16,7 @@ program multi
    use eccodes
    implicit none
 
-   integer          :: iret, counter
+   integer          :: iret, counter=0
    integer(kind=4)  :: step
    integer          :: ifile, igrib