2008-05-18 Thomas Koenig <tkoenig@gcc.gnu.org>

[pf3gnuchains/gcc-fork.git] / libgfortran / m4 / pack.m4

diff --git a/libgfortran/m4/pack.m4 b/libgfortran/m4/pack.m4
index 4f31ffd..9198b65 100644 (file)
--- a/libgfortran/m4/pack.m4
+++ b/libgfortran/m4/pack.m4
@@ -83,7 +83,7 @@ pack_'rtype_code` ('rtype` *ret, const 'rtype` *array,
 {
   /* r.* indicates the return array.  */
   index_type rstride0;
-  'rtype_name` *rptr;
+  'rtype_name` * restrict rptr;
   /* s.* indicates the source array.  */
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type sstride0;