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

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

diff --git a/libgfortran/generated/unpack_r16.c b/libgfortran/generated/unpack_r16.c
index 65121c1b90ecfaa201bcabd1176664e14b7ee33a..6cbb7b24ce0c5b9514b3c1cdd3a8888aab04e13d 100644 (file)
--- a/libgfortran/generated/unpack_r16.c
+++ b/libgfortran/generated/unpack_r16.c
@@ -45,7 +45,7 @@ unpack0_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_16 *vptr;
@@ -188,7 +188,7 @@ unpack1_r16 (gfc_array_r16 *ret, const gfc_array_r16 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_16 *rptr;
+  GFC_REAL_16 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_16 *vptr;