OSDN Git Service

2008-05-18 Thomas Koenig <tkoenig@gcc.gnu.org>
[pf3gnuchains/gcc-fork.git] / libgfortran / generated / in_unpack_i1.c
index 4b455b7..0e7ab11 100644 (file)
@@ -45,7 +45,7 @@ internal_unpack_1 (gfc_array_i1 * d, const GFC_INTEGER_1 * src)
   index_type stride0;
   index_type dim;
   index_type dsize;
-  GFC_INTEGER_1 *dest;
+  GFC_INTEGER_1 * restrict dest;
   int n;
 
   dest = d->data;