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

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

diff --git a/libgfortran/generated/pack_i4.c b/libgfortran/generated/pack_i4.c
index 861670d6865b7f7f61fe11708b5d9df49bb95b83..32ec8e30881975defdd5659780f71e73635d18c7 100644 (file)
--- a/libgfortran/generated/pack_i4.c
+++ b/libgfortran/generated/pack_i4.c
@@ -82,7 +82,7 @@ pack_i4 (gfc_array_i4 *ret, const gfc_array_i4 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_INTEGER_4 *rptr;
+  GFC_INTEGER_4 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;