From f0bd218441dbf52a88eec5187fa0e801148a69b9 Mon Sep 17 00:00:00 2001 From: Shahram Najm Date: Wed, 14 Aug 2024 14:08:39 +0000 Subject: [PATCH] Examples: Fix valgrind errors --- examples/F90/grib_read_bytes.f90 | 2 +- examples/F90/grib_sections_copy.f90 | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/examples/F90/grib_read_bytes.f90 b/examples/F90/grib_read_bytes.f90 index c118bdab4..8333760e4 100644 --- a/examples/F90/grib_read_bytes.f90 +++ b/examples/F90/grib_read_bytes.f90 @@ -13,7 +13,7 @@ program read_bytes integer :: ifile integer :: intsize parameter(intsize=10000) - character, dimension(intsize) :: bufferChar + character, dimension(intsize) :: bufferChar = '' character(len=32) :: input_grib_file = '../../data/v.grib2' call codes_open_file(ifile, input_grib_file, 'r') diff --git a/examples/F90/grib_sections_copy.f90 b/examples/F90/grib_sections_copy.f90 index 93e72675f..bc20f0f6d 100644 --- a/examples/F90/grib_sections_copy.f90 +++ b/examples/F90/grib_sections_copy.f90 @@ -12,7 +12,7 @@ program grib_sections_copy implicit none integer :: igrib_a, igrib_b, igrib_c, iret - character(len=40) :: error_message + character(len=40) :: error_message = '' call codes_grib_new_from_samples(igrib_a, 'regular_ll_sfc_grib1') call codes_grib_new_from_samples(igrib_b, 'reduced_gg_pl_640_grib1')