X-Git-Url: http://git.sourceforge.jp/view?p=pf3gnuchains%2Fgcc-fork.git;a=blobdiff_plain;f=libgfortran%2Fgenerated%2Fmaxloc0_8_r10.c;h=566757febc7d146fe805ff7f5f94b3536f9beea4;hp=6add1779ef1868c4ce042df68d20c07431d542ee;hb=b4cafd6717ebdc99a68ca9d2de7090e6053a713c;hpb=b92d95502eb80ce009645b3efad36efe7fea81c5

diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c
index 6add1779ef1..566757febc7 100644
--- a/libgfortran/generated/maxloc0_8_r10.c
+++ b/libgfortran/generated/maxloc0_8_r10.c
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array);
+extern void maxloc0_8_r10 (gfc_array_i8 * const restrict retarray, 
+	gfc_array_r10 * const restrict array);
 export_proto(maxloc0_8_r10);
 
 void
-maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
+maxloc0_8_r10 (gfc_array_i8 * const restrict retarray, 
+	gfc_array_r10 * const restrict array)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mmaxloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r10 (gfc_array_i8 * const restrict, 
+	gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_r10);
 
 void
-mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
-				  gfc_array_l4 * mask)
+mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray, 
+	gfc_array_r10 * const restrict array,
+	gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
@@ -167,7 +171,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;