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

fixed memory error

This commit is contained in:
Enrico Fucile 2016-06-16 14:55:57 +01:00
parent 308944fbf4
commit 0461c32b06
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fortran/grib_fortran.c
View File

@ -2727,7 +2727,7 @@ int grib_f_get_string_array_(int* gid, char* key, char* val,int* nvals,int* slen
if (strlen(cval[0])>*slen) err=GRIB_ARRAY_TOO_SMALL; if (strlen(cval[0])>*slen) err=GRIB_ARRAY_TOO_SMALL;
for (i=0;i<lsize;i++) { for (i=0;i<lsize;i++) {
memcpy(p,cval[i],*slen); strcpy(p,cval[i]);
czstr_to_fortran(p,*slen); czstr_to_fortran(p,*slen);
p+= *slen; p+= *slen;
} }