From 0461c32b061d5fa1579272f559a994a3c373f6ec Mon Sep 17 00:00:00 2001
From: Enrico Fucile <mac@ecmwf.int>
Date: Thu, 16 Jun 2016 14:55:57 +0100
Subject: [PATCH] fixed memory error

---
 fortran/grib_fortran.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fortran/grib_fortran.c b/fortran/grib_fortran.c
index 1cd017608..c2d2b4cf5 100644
--- a/fortran/grib_fortran.c
+++ b/fortran/grib_fortran.c
@@ -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;
 
     for (i=0;i<lsize;i++) {
-        memcpy(p,cval[i],*slen);
+        strcpy(p,cval[i]);
         czstr_to_fortran(p,*slen);
         p+= *slen;
     }