diff --git a/examples/F90/samples.f90 b/examples/F90/samples.f90
index 66cdf11a8..9ab5fdb71 100644
--- a/examples/F90/samples.f90
+++ b/examples/F90/samples.f90
@@ -87,6 +87,7 @@ program sample
 
   enddo
 
+  call grib_release(igribsample)
   deallocate(v)
   deallocate(v1)
   deallocate(v2)