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

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

diff --git a/libgfortran/generated/pack_c10.c b/libgfortran/generated/pack_c10.c
index 0bad32385d87a566fd2ed5c7a7c8f4b59d738f4b..7aad775131a1f2b58d3d1d58d1109eb46923bbd8 100644 (file)
--- a/libgfortran/generated/pack_c10.c
+++ b/libgfortran/generated/pack_c10.c
@@ -82,7 +82,7 @@ pack_c10 (gfc_array_c10 *ret, const gfc_array_c10 *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  GFC_COMPLEX_10 *rptr;
+  GFC_COMPLEX_10 * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;