core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

bufr_dump -Efortran: do not trim (valgrind errors)

This commit is contained in:
Shahram Najm 2016-07-21 18:01:37 +01:00
parent eb6ee169cc
commit 9540532e3e
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
fortran/eccodes_f90_tail.f90
View File

@ -1602,7 +1602,8 @@ subroutine codes_set_string_array ( gribid, key, value, status )
slen=len(value(0))
j=1
do i=1,nb_values
cvalue(j:j+slen-1)=transfer(trim(value(i)),svalue)
!cvalue(j:j+slen-1)=transfer(trim(value(i)),svalue)
cvalue(j:j+slen-1)=transfer(value(i),svalue)
j=j+slen
enddo

3
tests/bufr_dump_fortran.sh
View File

@ -60,6 +60,7 @@ do
if [ $COMPILE_AND_RUN -eq 1 ]; then
$COMPILER -o $tempExe $tempSrc $FLAGS_COMPILER $FLAGS_LINKER
# The executable always creates a file called outfile.bufr
# valgrind --error-exitcode=1 ./$tempExe
./$tempExe
${tools_dir}bufr_compare ${data_dir}/bufr/$file $tempBufr
@ -67,7 +68,7 @@ do
TEMP_JSON2=${label}.$tempBufr.json
${tools_dir}bufr_dump ${data_dir}/bufr/$file > $TEMP_JSON1
${tools_dir}bufr_dump $tempBufr > $TEMP_JSON2
diff $TEMP_JSON1 $TEMP_JSON2
diff -w $TEMP_JSON1 $TEMP_JSON2
rm -f $TEMP_JSON1 $TEMP_JSON2
fi
done