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

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

diff --git a/libgfortran/generated/unpack_r4.c b/libgfortran/generated/unpack_r4.c
index b9983182b6f406902ed49c48dd3314b8ca5a5da2..d20856cf641708bb612c1bf5ad13e92b8792ef40 100644 (file)
--- a/libgfortran/generated/unpack_r4.c
+++ b/libgfortran/generated/unpack_r4.c
@@ -45,7 +45,7 @@ unpack0_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_4 *vptr;
@@ -188,7 +188,7 @@ unpack1_r4 (gfc_array_r4 *ret, const gfc_array_r4 *vector,
   index_type rstride[GFC_MAX_DIMENSIONS];
   index_type rstride0;
   index_type rs;
-  GFC_REAL_4 *rptr;
+  GFC_REAL_4 * restrict rptr;
   /* v.* indicates the vector array.  */
   index_type vstride0;
   GFC_REAL_4 *vptr;