diff --git a/examples/F90/get_native_type.f90 b/examples/F90/get_native_type.f90
index 66a66f9e5..2bc547b2d 100644
--- a/examples/F90/get_native_type.f90
+++ b/examples/F90/get_native_type.f90
@@ -9,7 +9,6 @@
 program get_native_type
    use eccodes
    implicit none
-   integer            :: iret
    integer            :: ihandle
    integer            :: ktype = CODES_TYPE_UNDEFINED