Fortran: Bug in grib_f_get_error_string
@@ -2181,7 +2181,7 @@ int grib_f_get_error_string_(int* err, char* buf, int len){
const char* err_msg = grib_get_error_message(*err);
const size_t erlen = strlen(err_msg);
if( len < erlen) return GRIB_ARRAY_TOO_SMALL;
- strncpy(buf, err_msg,(size_t)len);
+ strncpy(buf, err_msg, (size_t)erlen); /* ECC-1488 */
return GRIB_SUCCESS;
}
int grib_f_get_error_string__(int* err, char* buf, int len){
