in_pack.m4 (internal_pack_'rtype_code`): Destination pointer is restrict.

[thirdparty/gcc.git] / libgfortran / generated / pack_i16.c

diff --git a/libgfortran/generated/pack_i16.c b/libgfortran/generated/pack_i16.c
index e9c154379775d80054deaeb03a9dcf27f0f3be6f..a175d02d34d2f582199a8fe560199e03ffef0f37 100644 (file)
--- a/libgfortran/generated/pack_i16.c
+++ b/libgfortran/generated/pack_i16.c
@@ -82,7 +82,7 @@ pack_i16 (gfc_array_i16 *ret, const gfc_array_i16 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_16 *rptr;
+  GFC_INTEGER_16 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;