diff --git a/examples/F90/grib_get_pv.f90 b/examples/F90/grib_get_pv.f90
index eda580ffa..a7201846d 100644
--- a/examples/F90/grib_get_pv.f90
+++ b/examples/F90/grib_get_pv.f90
@@ -16,7 +16,7 @@ program grib_get_pv
    integer                         :: infile
    integer                         :: igrib
    integer                         :: PVPresent, nb_pv
-   real, dimension(:), allocatable :: pv
+   real(kind=8), dimension(:), allocatable :: pv
 
    call codes_open_file(infile, '../../data/reduced_gaussian_model_level.grib1', 'r')