OSDN Git Service

libgfortran ChangeLog:
authorjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 27 Nov 2005 21:03:33 +0000 (21:03 +0000)
committerjb <jb@138bc75d-0d04-0410-961f-82ee72b054a4>
Sun, 27 Nov 2005 21:03:33 +0000 (21:03 +0000)
2005-11-27  Janne Blomqvist  <jb@gcc.gnu.org>

* m4/*: Add const restrict to function arguments.
* generated/*.c: Regenerate.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@107573 138bc75d-0d04-0410-961f-82ee72b054a4

186 files changed:
libgfortran/generated/all_l16.c
libgfortran/generated/all_l4.c
libgfortran/generated/all_l8.c
libgfortran/generated/any_l16.c
libgfortran/generated/any_l4.c
libgfortran/generated/any_l8.c
libgfortran/generated/count_16_l16.c
libgfortran/generated/count_16_l4.c
libgfortran/generated/count_16_l8.c
libgfortran/generated/count_4_l16.c
libgfortran/generated/count_4_l4.c
libgfortran/generated/count_4_l8.c
libgfortran/generated/count_8_l16.c
libgfortran/generated/count_8_l4.c
libgfortran/generated/count_8_l8.c
libgfortran/generated/cshift1_16.c
libgfortran/generated/cshift1_4.c
libgfortran/generated/cshift1_8.c
libgfortran/generated/dotprod_c10.c
libgfortran/generated/dotprod_c16.c
libgfortran/generated/dotprod_c4.c
libgfortran/generated/dotprod_c8.c
libgfortran/generated/dotprod_i16.c
libgfortran/generated/dotprod_i4.c
libgfortran/generated/dotprod_i8.c
libgfortran/generated/dotprod_l16.c
libgfortran/generated/dotprod_l4.c
libgfortran/generated/dotprod_l8.c
libgfortran/generated/dotprod_r10.c
libgfortran/generated/dotprod_r16.c
libgfortran/generated/dotprod_r4.c
libgfortran/generated/dotprod_r8.c
libgfortran/generated/eoshift1_16.c
libgfortran/generated/eoshift1_4.c
libgfortran/generated/eoshift1_8.c
libgfortran/generated/eoshift3_16.c
libgfortran/generated/eoshift3_4.c
libgfortran/generated/eoshift3_8.c
libgfortran/generated/maxloc0_16_i16.c
libgfortran/generated/maxloc0_16_i4.c
libgfortran/generated/maxloc0_16_i8.c
libgfortran/generated/maxloc0_16_r10.c
libgfortran/generated/maxloc0_16_r16.c
libgfortran/generated/maxloc0_16_r4.c
libgfortran/generated/maxloc0_16_r8.c
libgfortran/generated/maxloc0_4_i16.c
libgfortran/generated/maxloc0_4_i4.c
libgfortran/generated/maxloc0_4_i8.c
libgfortran/generated/maxloc0_4_r10.c
libgfortran/generated/maxloc0_4_r16.c
libgfortran/generated/maxloc0_4_r4.c
libgfortran/generated/maxloc0_4_r8.c
libgfortran/generated/maxloc0_8_i16.c
libgfortran/generated/maxloc0_8_i4.c
libgfortran/generated/maxloc0_8_i8.c
libgfortran/generated/maxloc0_8_r10.c
libgfortran/generated/maxloc0_8_r16.c
libgfortran/generated/maxloc0_8_r4.c
libgfortran/generated/maxloc0_8_r8.c
libgfortran/generated/maxloc1_16_i16.c
libgfortran/generated/maxloc1_16_i4.c
libgfortran/generated/maxloc1_16_i8.c
libgfortran/generated/maxloc1_16_r10.c
libgfortran/generated/maxloc1_16_r16.c
libgfortran/generated/maxloc1_16_r4.c
libgfortran/generated/maxloc1_16_r8.c
libgfortran/generated/maxloc1_4_i16.c
libgfortran/generated/maxloc1_4_i4.c
libgfortran/generated/maxloc1_4_i8.c
libgfortran/generated/maxloc1_4_r10.c
libgfortran/generated/maxloc1_4_r16.c
libgfortran/generated/maxloc1_4_r4.c
libgfortran/generated/maxloc1_4_r8.c
libgfortran/generated/maxloc1_8_i16.c
libgfortran/generated/maxloc1_8_i4.c
libgfortran/generated/maxloc1_8_i8.c
libgfortran/generated/maxloc1_8_r10.c
libgfortran/generated/maxloc1_8_r16.c
libgfortran/generated/maxloc1_8_r4.c
libgfortran/generated/maxloc1_8_r8.c
libgfortran/generated/maxval_i16.c
libgfortran/generated/maxval_i4.c
libgfortran/generated/maxval_i8.c
libgfortran/generated/maxval_r10.c
libgfortran/generated/maxval_r16.c
libgfortran/generated/maxval_r4.c
libgfortran/generated/maxval_r8.c
libgfortran/generated/minloc0_16_i16.c
libgfortran/generated/minloc0_16_i4.c
libgfortran/generated/minloc0_16_i8.c
libgfortran/generated/minloc0_16_r10.c
libgfortran/generated/minloc0_16_r16.c
libgfortran/generated/minloc0_16_r4.c
libgfortran/generated/minloc0_16_r8.c
libgfortran/generated/minloc0_4_i16.c
libgfortran/generated/minloc0_4_i4.c
libgfortran/generated/minloc0_4_i8.c
libgfortran/generated/minloc0_4_r10.c
libgfortran/generated/minloc0_4_r16.c
libgfortran/generated/minloc0_4_r4.c
libgfortran/generated/minloc0_4_r8.c
libgfortran/generated/minloc0_8_i16.c
libgfortran/generated/minloc0_8_i4.c
libgfortran/generated/minloc0_8_i8.c
libgfortran/generated/minloc0_8_r10.c
libgfortran/generated/minloc0_8_r16.c
libgfortran/generated/minloc0_8_r4.c
libgfortran/generated/minloc0_8_r8.c
libgfortran/generated/minloc1_16_i16.c
libgfortran/generated/minloc1_16_i4.c
libgfortran/generated/minloc1_16_i8.c
libgfortran/generated/minloc1_16_r10.c
libgfortran/generated/minloc1_16_r16.c
libgfortran/generated/minloc1_16_r4.c
libgfortran/generated/minloc1_16_r8.c
libgfortran/generated/minloc1_4_i16.c
libgfortran/generated/minloc1_4_i4.c
libgfortran/generated/minloc1_4_i8.c
libgfortran/generated/minloc1_4_r10.c
libgfortran/generated/minloc1_4_r16.c
libgfortran/generated/minloc1_4_r4.c
libgfortran/generated/minloc1_4_r8.c
libgfortran/generated/minloc1_8_i16.c
libgfortran/generated/minloc1_8_i4.c
libgfortran/generated/minloc1_8_i8.c
libgfortran/generated/minloc1_8_r10.c
libgfortran/generated/minloc1_8_r16.c
libgfortran/generated/minloc1_8_r4.c
libgfortran/generated/minloc1_8_r8.c
libgfortran/generated/minval_i16.c
libgfortran/generated/minval_i4.c
libgfortran/generated/minval_i8.c
libgfortran/generated/minval_r10.c
libgfortran/generated/minval_r16.c
libgfortran/generated/minval_r4.c
libgfortran/generated/minval_r8.c
libgfortran/generated/product_c10.c
libgfortran/generated/product_c16.c
libgfortran/generated/product_c4.c
libgfortran/generated/product_c8.c
libgfortran/generated/product_i16.c
libgfortran/generated/product_i4.c
libgfortran/generated/product_i8.c
libgfortran/generated/product_r10.c
libgfortran/generated/product_r16.c
libgfortran/generated/product_r4.c
libgfortran/generated/product_r8.c
libgfortran/generated/reshape_c10.c
libgfortran/generated/reshape_c16.c
libgfortran/generated/reshape_c4.c
libgfortran/generated/reshape_c8.c
libgfortran/generated/reshape_i16.c
libgfortran/generated/reshape_i4.c
libgfortran/generated/reshape_i8.c
libgfortran/generated/shape_i16.c
libgfortran/generated/shape_i4.c
libgfortran/generated/shape_i8.c
libgfortran/generated/sum_c10.c
libgfortran/generated/sum_c16.c
libgfortran/generated/sum_c4.c
libgfortran/generated/sum_c8.c
libgfortran/generated/sum_i16.c
libgfortran/generated/sum_i4.c
libgfortran/generated/sum_i8.c
libgfortran/generated/sum_r10.c
libgfortran/generated/sum_r16.c
libgfortran/generated/sum_r4.c
libgfortran/generated/sum_r8.c
libgfortran/generated/transpose_c10.c
libgfortran/generated/transpose_c16.c
libgfortran/generated/transpose_c4.c
libgfortran/generated/transpose_c8.c
libgfortran/generated/transpose_i16.c
libgfortran/generated/transpose_i4.c
libgfortran/generated/transpose_i8.c
libgfortran/m4/cshift1.m4
libgfortran/m4/dotprod.m4
libgfortran/m4/dotprodc.m4
libgfortran/m4/dotprodl.m4
libgfortran/m4/eoshift1.m4
libgfortran/m4/eoshift3.m4
libgfortran/m4/iforeach.m4
libgfortran/m4/ifunction.m4
libgfortran/m4/reshape.m4
libgfortran/m4/shape.m4
libgfortran/m4/transpose.m4

index 40851eb..78df909 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
 
 
-extern void all_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *);
+extern void all_l16 (gfc_array_l16 * const restrict, 
+       gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(all_l16);
 
 void
-all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
+all_l16 (gfc_array_l16 * const restrict retarray, 
+       gfc_array_l16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_16 *base;
-  GFC_LOGICAL_16 *dest;
+  const GFC_LOGICAL_16 * restrict base;
+  GFC_LOGICAL_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ all_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_16 *src;
+      const GFC_LOGICAL_16 * restrict src;
       GFC_LOGICAL_16 result;
       src = base;
       {
index 246ec07..0a6f44d 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
 
 
-extern void all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
+extern void all_l4 (gfc_array_l4 * const restrict, 
+       gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(all_l4);
 
 void
-all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
+all_l4 (gfc_array_l4 * const restrict retarray, 
+       gfc_array_l4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_4 *base;
-  GFC_LOGICAL_4 *dest;
+  const GFC_LOGICAL_4 * restrict base;
+  GFC_LOGICAL_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_4 *src;
+      const GFC_LOGICAL_4 * restrict src;
       GFC_LOGICAL_4 result;
       src = base;
       {
index 996ce35..74a3731 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
 
 
-extern void all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
+extern void all_l8 (gfc_array_l8 * const restrict, 
+       gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(all_l8);
 
 void
-all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
+all_l8 (gfc_array_l8 * const restrict retarray, 
+       gfc_array_l8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_8 *base;
-  GFC_LOGICAL_8 *dest;
+  const GFC_LOGICAL_8 * restrict base;
+  GFC_LOGICAL_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_8 *src;
+      const GFC_LOGICAL_8 * restrict src;
       GFC_LOGICAL_8 result;
       src = base;
       {
index cf4798e..1146880 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
 
 
-extern void any_l16 (gfc_array_l16 *, gfc_array_l16 *, index_type *);
+extern void any_l16 (gfc_array_l16 * const restrict, 
+       gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(any_l16);
 
 void
-any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
+any_l16 (gfc_array_l16 * const restrict retarray, 
+       gfc_array_l16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_16 *base;
-  GFC_LOGICAL_16 *dest;
+  const GFC_LOGICAL_16 * restrict base;
+  GFC_LOGICAL_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ any_l16 (gfc_array_l16 *retarray, gfc_array_l16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_16 *src;
+      const GFC_LOGICAL_16 * restrict src;
       GFC_LOGICAL_16 result;
       src = base;
       {
index 994014a..4a650f0 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
 
 
-extern void any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
+extern void any_l4 (gfc_array_l4 * const restrict, 
+       gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(any_l4);
 
 void
-any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
+any_l4 (gfc_array_l4 * const restrict retarray, 
+       gfc_array_l4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_4 *base;
-  GFC_LOGICAL_4 *dest;
+  const GFC_LOGICAL_4 * restrict base;
+  GFC_LOGICAL_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_4 *src;
+      const GFC_LOGICAL_4 * restrict src;
       GFC_LOGICAL_4 result;
       src = base;
       {
index 9d52b15..ed45e79 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
 
 
-extern void any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
+extern void any_l8 (gfc_array_l8 * const restrict, 
+       gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(any_l8);
 
 void
-any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
+any_l8 (gfc_array_l8 * const restrict retarray, 
+       gfc_array_l8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_8 *base;
-  GFC_LOGICAL_8 *dest;
+  const GFC_LOGICAL_8 * restrict base;
+  GFC_LOGICAL_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_8 *src;
+      const GFC_LOGICAL_8 * restrict src;
       GFC_LOGICAL_8 result;
       src = base;
       {
index 8cb795f..5d27d65 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void count_16_l16 (gfc_array_i16 *, gfc_array_l16 *, index_type *);
+extern void count_16_l16 (gfc_array_i16 * const restrict, 
+       gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(count_16_l16);
 
 void
-count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_16_l16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_l16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_16 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_LOGICAL_16 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_16_l16 (gfc_array_i16 *retarray, gfc_array_l16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_16 *src;
+      const GFC_LOGICAL_16 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
index f4af5ba..b491e90 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void count_16_l4 (gfc_array_i16 *, gfc_array_l4 *, index_type *);
+extern void count_16_l4 (gfc_array_i16 * const restrict, 
+       gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(count_16_l4);
 
 void
-count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_16_l4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_l4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_4 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_LOGICAL_4 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_16_l4 (gfc_array_i16 *retarray, gfc_array_l4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_4 *src;
+      const GFC_LOGICAL_4 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
index 6134f5b..03ff91f 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void count_16_l8 (gfc_array_i16 *, gfc_array_l8 *, index_type *);
+extern void count_16_l8 (gfc_array_i16 * const restrict, 
+       gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(count_16_l8);
 
 void
-count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_16_l8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_l8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_8 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_LOGICAL_8 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_16_l8 (gfc_array_i16 *retarray, gfc_array_l8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_8 *src;
+      const GFC_LOGICAL_8 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
index cbd1717..bad5d5e 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void count_4_l16 (gfc_array_i4 *, gfc_array_l16 *, index_type *);
+extern void count_4_l16 (gfc_array_i4 * const restrict, 
+       gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(count_4_l16);
 
 void
-count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_4_l16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_l16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_16 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_LOGICAL_16 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_4_l16 (gfc_array_i4 *retarray, gfc_array_l16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_16 *src;
+      const GFC_LOGICAL_16 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
index aa98bfc..440a549 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *);
+extern void count_4_l4 (gfc_array_i4 * const restrict, 
+       gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(count_4_l4);
 
 void
-count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_4_l4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_l4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_4 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_LOGICAL_4 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_4 *src;
+      const GFC_LOGICAL_4 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
index fe9eae5..4992b77 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *);
+extern void count_4_l8 (gfc_array_i4 * const restrict, 
+       gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(count_4_l8);
 
 void
-count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_4_l8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_l8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_8 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_LOGICAL_8 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_8 *src;
+      const GFC_LOGICAL_8 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
index 4df2aeb..ec23677 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void count_8_l16 (gfc_array_i8 *, gfc_array_l16 *, index_type *);
+extern void count_8_l16 (gfc_array_i8 * const restrict, 
+       gfc_array_l16 * const restrict, const index_type * const restrict);
 export_proto(count_8_l16);
 
 void
-count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim)
+count_8_l16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_l16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_16 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_LOGICAL_16 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_8_l16 (gfc_array_i8 *retarray, gfc_array_l16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_16 *src;
+      const GFC_LOGICAL_16 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
index b32b30e..97ae10e 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *);
+extern void count_8_l4 (gfc_array_i8 * const restrict, 
+       gfc_array_l4 * const restrict, const index_type * const restrict);
 export_proto(count_8_l4);
 
 void
-count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim)
+count_8_l4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_l4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_4 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_LOGICAL_4 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_4 *src;
+      const GFC_LOGICAL_4 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
index 670fc1d..b2d06b9 100644 (file)
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *);
+extern void count_8_l8 (gfc_array_i8 * const restrict, 
+       gfc_array_l8 * const restrict, const index_type * const restrict);
 export_proto(count_8_l8);
 
 void
-count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim)
+count_8_l8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_l8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_LOGICAL_8 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_LOGICAL_8 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -120,7 +123,7 @@ count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_LOGICAL_8 *src;
+      const GFC_LOGICAL_8 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
index bff20d3..c264bb1 100644 (file)
@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16)
 
 static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
-        const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const GFC_INTEGER_16 * const restrict pwhich, 
+       index_type size)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
     }
 }
 
-void cshift1_16 (gfc_array_char *, const gfc_array_char *,
-                          const gfc_array_i16 *, const GFC_INTEGER_16 *);
+void cshift1_16 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i16 * const restrict, 
+       const GFC_INTEGER_16 * const restrict);
 export_proto(cshift1_16);
 
 void
-cshift1_16 (gfc_array_char * ret,
-                     const gfc_array_char * array,
-                     const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich)
+cshift1_16 (gfc_array_char * const restrict ret,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const GFC_INTEGER_16 * const restrict pwhich)
 {
   cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
 }
 
-void cshift1_16_char (gfc_array_char * ret, GFC_INTEGER_4,
-                                 const gfc_array_char * array,
-                                 const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich,
-                                 GFC_INTEGER_4);
+void cshift1_16_char (gfc_array_char * const restrict ret, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const GFC_INTEGER_16 * const restrict pwhich,
+       GFC_INTEGER_4);
 export_proto(cshift1_16_char);
 
 void
-cshift1_16_char (gfc_array_char * ret,
-                            GFC_INTEGER_4 ret_length __attribute__((unused)),
-                            const gfc_array_char * array,
-                            const gfc_array_i16 * h, const GFC_INTEGER_16 * pwhich,
-                            GFC_INTEGER_4 array_length)
+cshift1_16_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const GFC_INTEGER_16 * const restrict pwhich,
+       GFC_INTEGER_4 array_length)
 {
   cshift1 (ret, array, h, pwhich, array_length);
 }
index 9f9bea0..8eba7b3 100644 (file)
@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4)
 
 static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
-        const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const GFC_INTEGER_4 * const restrict pwhich, 
+       index_type size)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
     }
 }
 
-void cshift1_4 (gfc_array_char *, const gfc_array_char *,
-                          const gfc_array_i4 *, const GFC_INTEGER_4 *);
+void cshift1_4 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i4 * const restrict, 
+       const GFC_INTEGER_4 * const restrict);
 export_proto(cshift1_4);
 
 void
-cshift1_4 (gfc_array_char * ret,
-                     const gfc_array_char * array,
-                     const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich)
+cshift1_4 (gfc_array_char * const restrict ret,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const GFC_INTEGER_4 * const restrict pwhich)
 {
   cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
 }
 
-void cshift1_4_char (gfc_array_char * ret, GFC_INTEGER_4,
-                                 const gfc_array_char * array,
-                                 const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich,
-                                 GFC_INTEGER_4);
+void cshift1_4_char (gfc_array_char * const restrict ret, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const GFC_INTEGER_4 * const restrict pwhich,
+       GFC_INTEGER_4);
 export_proto(cshift1_4_char);
 
 void
-cshift1_4_char (gfc_array_char * ret,
-                            GFC_INTEGER_4 ret_length __attribute__((unused)),
-                            const gfc_array_char * array,
-                            const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich,
-                            GFC_INTEGER_4 array_length)
+cshift1_4_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const GFC_INTEGER_4 * const restrict pwhich,
+       GFC_INTEGER_4 array_length)
 {
   cshift1 (ret, array, h, pwhich, array_length);
 }
index 3a7c509..d8d0f89 100644 (file)
@@ -37,8 +37,11 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8)
 
 static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
-        const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const GFC_INTEGER_8 * const restrict pwhich, 
+       index_type size)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -194,30 +197,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
     }
 }
 
-void cshift1_8 (gfc_array_char *, const gfc_array_char *,
-                          const gfc_array_i8 *, const GFC_INTEGER_8 *);
+void cshift1_8 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i8 * const restrict, 
+       const GFC_INTEGER_8 * const restrict);
 export_proto(cshift1_8);
 
 void
-cshift1_8 (gfc_array_char * ret,
-                     const gfc_array_char * array,
-                     const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich)
+cshift1_8 (gfc_array_char * const restrict ret,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const GFC_INTEGER_8 * const restrict pwhich)
 {
   cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
 }
 
-void cshift1_8_char (gfc_array_char * ret, GFC_INTEGER_4,
-                                 const gfc_array_char * array,
-                                 const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich,
-                                 GFC_INTEGER_4);
+void cshift1_8_char (gfc_array_char * const restrict ret, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const GFC_INTEGER_8 * const restrict pwhich,
+       GFC_INTEGER_4);
 export_proto(cshift1_8_char);
 
 void
-cshift1_8_char (gfc_array_char * ret,
-                            GFC_INTEGER_4 ret_length __attribute__((unused)),
-                            const gfc_array_char * array,
-                            const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich,
-                            GFC_INTEGER_4 array_length)
+cshift1_8_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const GFC_INTEGER_8 * const restrict pwhich,
+       GFC_INTEGER_4 array_length)
 {
   cshift1 (ret, array, h, pwhich, array_length);
 }
index 3fa5955..0dccca7 100644 (file)
@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b);
+extern GFC_COMPLEX_10 dot_product_c10 (gfc_array_c10 * const restrict a, 
+       gfc_array_c10 * const restrict b);
 export_proto(dot_product_c10);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_COMPLEX_10
-dot_product_c10 (gfc_array_c10 * a, gfc_array_c10 * b)
+dot_product_c10 (gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b)
 {
-  GFC_COMPLEX_10 *pa;
-  GFC_COMPLEX_10 *pb;
+  const GFC_COMPLEX_10 * restrict pa;
+  const GFC_COMPLEX_10 * restrict pb;
   GFC_COMPLEX_10 res;
   GFC_COMPLEX_10 conjga;
   index_type count;
index a526b53..6d17ba7 100644 (file)
@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b);
+extern GFC_COMPLEX_16 dot_product_c16 (gfc_array_c16 * const restrict a, 
+       gfc_array_c16 * const restrict b);
 export_proto(dot_product_c16);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_COMPLEX_16
-dot_product_c16 (gfc_array_c16 * a, gfc_array_c16 * b)
+dot_product_c16 (gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b)
 {
-  GFC_COMPLEX_16 *pa;
-  GFC_COMPLEX_16 *pb;
+  const GFC_COMPLEX_16 * restrict pa;
+  const GFC_COMPLEX_16 * restrict pb;
   GFC_COMPLEX_16 res;
   GFC_COMPLEX_16 conjga;
   index_type count;
index ea27dd8..a575dc9 100644 (file)
@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b);
+extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * const restrict a, 
+       gfc_array_c4 * const restrict b);
 export_proto(dot_product_c4);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_COMPLEX_4
-dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b)
+dot_product_c4 (gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b)
 {
-  GFC_COMPLEX_4 *pa;
-  GFC_COMPLEX_4 *pb;
+  const GFC_COMPLEX_4 * restrict pa;
+  const GFC_COMPLEX_4 * restrict pb;
   GFC_COMPLEX_4 res;
   GFC_COMPLEX_4 conjga;
   index_type count;
index aec5fb5..00ac8a9 100644 (file)
@@ -38,15 +38,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b);
+extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * const restrict a, 
+       gfc_array_c8 * const restrict b);
 export_proto(dot_product_c8);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_COMPLEX_8
-dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b)
+dot_product_c8 (gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b)
 {
-  GFC_COMPLEX_8 *pa;
-  GFC_COMPLEX_8 *pb;
+  const GFC_COMPLEX_8 * restrict pa;
+  const GFC_COMPLEX_8 * restrict pb;
   GFC_COMPLEX_8 res;
   GFC_COMPLEX_8 conjga;
   index_type count;
index 1c3e582..292f078 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b);
+extern GFC_INTEGER_16 dot_product_i16 (gfc_array_i16 * const restrict a, 
+       gfc_array_i16 * const restrict b);
 export_proto(dot_product_i16);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_INTEGER_16
-dot_product_i16 (gfc_array_i16 * a, gfc_array_i16 * b)
+dot_product_i16 (gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b)
 {
-  GFC_INTEGER_16 *pa;
-  GFC_INTEGER_16 *pb;
+  const GFC_INTEGER_16 * restrict pa;
+  const GFC_INTEGER_16 * restrict pb;
   GFC_INTEGER_16 res;
   index_type count;
   index_type astride;
index aaf8b8d..5a8dcd9 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b);
+extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * const restrict a, 
+       gfc_array_i4 * const restrict b);
 export_proto(dot_product_i4);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_INTEGER_4
-dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b)
+dot_product_i4 (gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b)
 {
-  GFC_INTEGER_4 *pa;
-  GFC_INTEGER_4 *pb;
+  const GFC_INTEGER_4 * restrict pa;
+  const GFC_INTEGER_4 * restrict pb;
   GFC_INTEGER_4 res;
   index_type count;
   index_type astride;
index 44af1f1..c03cbc3 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b);
+extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * const restrict a, 
+       gfc_array_i8 * const restrict b);
 export_proto(dot_product_i8);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_INTEGER_8
-dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b)
+dot_product_i8 (gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b)
 {
-  GFC_INTEGER_8 *pa;
-  GFC_INTEGER_8 *pb;
+  const GFC_INTEGER_8 * restrict pa;
+  const GFC_INTEGER_8 * restrict pb;
   GFC_INTEGER_8 res;
   index_type count;
   index_type astride;
index 977eb4a..c53b1bb 100644 (file)
@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA.  */
 
 #if defined (HAVE_GFC_LOGICAL_16)
 
-extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_16 dot_product_l16 (gfc_array_l4 * const restrict, 
+       gfc_array_l4 * const restrict);
 export_proto(dot_product_l16);
 
 GFC_LOGICAL_16
-dot_product_l16 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l16 (gfc_array_l4 * const restrict a, 
+       gfc_array_l4 * const restrict b)
 {
-  GFC_LOGICAL_4 *pa;
-  GFC_LOGICAL_4 *pb;
+  const GFC_LOGICAL_4 * restrict pa;
+  const GFC_LOGICAL_4 * restrict pb;
   index_type count;
   index_type astride;
   index_type bstride;
index 50db398..dcec980 100644 (file)
@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA.  */
 
 #if defined (HAVE_GFC_LOGICAL_4)
 
-extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 * const restrict, 
+       gfc_array_l4 * const restrict);
 export_proto(dot_product_l4);
 
 GFC_LOGICAL_4
-dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l4 (gfc_array_l4 * const restrict a, 
+       gfc_array_l4 * const restrict b)
 {
-  GFC_LOGICAL_4 *pa;
-  GFC_LOGICAL_4 *pb;
+  const GFC_LOGICAL_4 * restrict pa;
+  const GFC_LOGICAL_4 * restrict pb;
   index_type count;
   index_type astride;
   index_type bstride;
index f857d08..b579f2f 100644 (file)
@@ -35,14 +35,16 @@ Boston, MA 02110-1301, USA.  */
 
 #if defined (HAVE_GFC_LOGICAL_8)
 
-extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *);
+extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 * const restrict, 
+       gfc_array_l4 * const restrict);
 export_proto(dot_product_l8);
 
 GFC_LOGICAL_8
-dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_l8 (gfc_array_l4 * const restrict a, 
+       gfc_array_l4 * const restrict b)
 {
-  GFC_LOGICAL_4 *pa;
-  GFC_LOGICAL_4 *pb;
+  const GFC_LOGICAL_4 * restrict pa;
+  const GFC_LOGICAL_4 * restrict pb;
   index_type count;
   index_type astride;
   index_type bstride;
index 055c288..e2160c7 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b);
+extern GFC_REAL_10 dot_product_r10 (gfc_array_r10 * const restrict a, 
+       gfc_array_r10 * const restrict b);
 export_proto(dot_product_r10);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_REAL_10
-dot_product_r10 (gfc_array_r10 * a, gfc_array_r10 * b)
+dot_product_r10 (gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b)
 {
-  GFC_REAL_10 *pa;
-  GFC_REAL_10 *pb;
+  const GFC_REAL_10 * restrict pa;
+  const GFC_REAL_10 * restrict pb;
   GFC_REAL_10 res;
   index_type count;
   index_type astride;
index e14eaac..40edc49 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b);
+extern GFC_REAL_16 dot_product_r16 (gfc_array_r16 * const restrict a, 
+       gfc_array_r16 * const restrict b);
 export_proto(dot_product_r16);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_REAL_16
-dot_product_r16 (gfc_array_r16 * a, gfc_array_r16 * b)
+dot_product_r16 (gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b)
 {
-  GFC_REAL_16 *pa;
-  GFC_REAL_16 *pb;
+  const GFC_REAL_16 * restrict pa;
+  const GFC_REAL_16 * restrict pb;
   GFC_REAL_16 res;
   index_type count;
   index_type astride;
index bae99ab..7fdc57f 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b);
+extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * const restrict a, 
+       gfc_array_r4 * const restrict b);
 export_proto(dot_product_r4);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_REAL_4
-dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b)
+dot_product_r4 (gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b)
 {
-  GFC_REAL_4 *pa;
-  GFC_REAL_4 *pb;
+  const GFC_REAL_4 * restrict pa;
+  const GFC_REAL_4 * restrict pb;
   GFC_REAL_4 res;
   index_type count;
   index_type astride;
index 84a6aaa..7604077 100644 (file)
@@ -37,15 +37,16 @@ Boston, MA 02110-1301, USA.  */
 
 typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
 
-extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b);
+extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * const restrict a, 
+       gfc_array_r8 * const restrict b);
 export_proto(dot_product_r8);
 
 /* Both parameters will already have been converted to the result type.  */
 GFC_REAL_8
-dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b)
+dot_product_r8 (gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b)
 {
-  GFC_REAL_8 *pa;
-  GFC_REAL_8 *pb;
+  const GFC_REAL_8 * restrict pa;
+  const GFC_REAL_8 * restrict pb;
   GFC_REAL_8 res;
   index_type count;
   index_type astride;
index c548fef..bfb051f 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16)
 
 static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h,
-         const char *pbound, const GFC_INTEGER_16 *pwhich, index_type size,
-         char filler)
+eoshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i16 * const restrict h,
+       const char * const restrict pbound, 
+       const GFC_INTEGER_16 * const restrict pwhich, 
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16
     }
 }
 
-void eoshift1_16 (gfc_array_char *, const gfc_array_char *,
-                           const gfc_array_i16 *, const char *, const GFC_INTEGER_16 *);
+void eoshift1_16 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i16 * const restrict, const char * const restrict, 
+       const GFC_INTEGER_16 * const restrict);
 export_proto(eoshift1_16);
 
 void
-eoshift1_16 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i16 *h, const char *pbound,
-                      const GFC_INTEGER_16 *pwhich)
+eoshift1_16 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const char * const restrict pbound,
+       const GFC_INTEGER_16 * const restrict pwhich)
 {
   eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-void eoshift1_16_char (gfc_array_char *, GFC_INTEGER_4,
-                                  const gfc_array_char *, const gfc_array_i16 *,
-                                  const char *, const GFC_INTEGER_16 *,
-                                  GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_16_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict, 
+       const gfc_array_i16 * const restrict,
+       const char * const restrict, 
+       const GFC_INTEGER_16 * const restrict,
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift1_16_char);
 
 void
-eoshift1_16_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i16 *h,
-                             const char *pbound, const GFC_INTEGER_16 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift1_16_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i16 * const restrict h,
+       const char *  const restrict pbound, 
+       const GFC_INTEGER_16 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
 }
index 8045679..922c46c 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4)
 
 static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h,
-         const char *pbound, const GFC_INTEGER_4 *pwhich, index_type size,
-         char filler)
+eoshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i4 * const restrict h,
+       const char * const restrict pbound, 
+       const GFC_INTEGER_4 * const restrict pwhich, 
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *
     }
 }
 
-void eoshift1_4 (gfc_array_char *, const gfc_array_char *,
-                           const gfc_array_i4 *, const char *, const GFC_INTEGER_4 *);
+void eoshift1_4 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i4 * const restrict, const char * const restrict, 
+       const GFC_INTEGER_4 * const restrict);
 export_proto(eoshift1_4);
 
 void
-eoshift1_4 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i4 *h, const char *pbound,
-                      const GFC_INTEGER_4 *pwhich)
+eoshift1_4 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const char * const restrict pbound,
+       const GFC_INTEGER_4 * const restrict pwhich)
 {
   eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-void eoshift1_4_char (gfc_array_char *, GFC_INTEGER_4,
-                                  const gfc_array_char *, const gfc_array_i4 *,
-                                  const char *, const GFC_INTEGER_4 *,
-                                  GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_4_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict, 
+       const gfc_array_i4 * const restrict,
+       const char * const restrict, 
+       const GFC_INTEGER_4 * const restrict,
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift1_4_char);
 
 void
-eoshift1_4_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i4 *h,
-                             const char *pbound, const GFC_INTEGER_4 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift1_4_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i4 * const restrict h,
+       const char *  const restrict pbound, 
+       const GFC_INTEGER_4 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
 }
index bcc53ab..ea23adf 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8)
 
 static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h,
-         const char *pbound, const GFC_INTEGER_8 *pwhich, index_type size,
-         char filler)
+eoshift1 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i8 * const restrict h,
+       const char * const restrict pbound, 
+       const GFC_INTEGER_8 * const restrict pwhich, 
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -218,32 +221,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *
     }
 }
 
-void eoshift1_8 (gfc_array_char *, const gfc_array_char *,
-                           const gfc_array_i8 *, const char *, const GFC_INTEGER_8 *);
+void eoshift1_8 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i8 * const restrict, const char * const restrict, 
+       const GFC_INTEGER_8 * const restrict);
 export_proto(eoshift1_8);
 
 void
-eoshift1_8 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i8 *h, const char *pbound,
-                      const GFC_INTEGER_8 *pwhich)
+eoshift1_8 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const char * const restrict pbound,
+       const GFC_INTEGER_8 * const restrict pwhich)
 {
   eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-void eoshift1_8_char (gfc_array_char *, GFC_INTEGER_4,
-                                  const gfc_array_char *, const gfc_array_i8 *,
-                                  const char *, const GFC_INTEGER_8 *,
-                                  GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_8_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict, 
+       const gfc_array_i8 * const restrict,
+       const char * const restrict, 
+       const GFC_INTEGER_8 * const restrict,
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift1_8_char);
 
 void
-eoshift1_8_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i8 *h,
-                             const char *pbound, const GFC_INTEGER_8 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift1_8_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i8 * const restrict h,
+       const char *  const restrict pbound, 
+       const GFC_INTEGER_8 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
 }
index d03c1c7..3a8b046 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16)
 
 static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16 *h,
-         const gfc_array_char *bound, const GFC_INTEGER_16 *pwhich,
-         index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i16 * const restrict h,
+       const gfc_array_char * const restrict bound, 
+       const GFC_INTEGER_16 * const restrict pwhich,
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i16
     }
 }
 
-extern void eoshift3_16 (gfc_array_char *, const gfc_array_char *,
-                                  const gfc_array_i16 *, const gfc_array_char *,
-                                  const GFC_INTEGER_16 *);
+extern void eoshift3_16 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i16 * const restrict, 
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_16 *);
 export_proto(eoshift3_16);
 
 void
-eoshift3_16 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i16 *h, const gfc_array_char *bound,
-                      const GFC_INTEGER_16 *pwhich)
+eoshift3_16 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i16 * const restrict h, 
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_16 * const restrict pwhich)
 {
   eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-extern void eoshift3_16_char (gfc_array_char *, GFC_INTEGER_4,
-                                         const gfc_array_char *,
-                                         const gfc_array_i16 *,
-                                         const gfc_array_char *,
-                                         const GFC_INTEGER_16 *, GFC_INTEGER_4,
-                                         GFC_INTEGER_4);
+extern void eoshift3_16_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict,
+       const gfc_array_i16 * const restrict,
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_16 * const restrict, 
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift3_16_char);
 
 void
-eoshift3_16_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i16 *h,
-                             const gfc_array_char *bound,
-                             const GFC_INTEGER_16 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift3_16_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i16 *  const restrict h,
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_16 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
 }
index 2b84ece..cfbf449 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4)
 
 static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *h,
-         const gfc_array_char *bound, const GFC_INTEGER_4 *pwhich,
-         index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i4 * const restrict h,
+       const gfc_array_char * const restrict bound, 
+       const GFC_INTEGER_4 * const restrict pwhich,
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i4 *
     }
 }
 
-extern void eoshift3_4 (gfc_array_char *, const gfc_array_char *,
-                                  const gfc_array_i4 *, const gfc_array_char *,
-                                  const GFC_INTEGER_4 *);
+extern void eoshift3_4 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i4 * const restrict, 
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_4 *);
 export_proto(eoshift3_4);
 
 void
-eoshift3_4 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i4 *h, const gfc_array_char *bound,
-                      const GFC_INTEGER_4 *pwhich)
+eoshift3_4 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i4 * const restrict h, 
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_4 * const restrict pwhich)
 {
   eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-extern void eoshift3_4_char (gfc_array_char *, GFC_INTEGER_4,
-                                         const gfc_array_char *,
-                                         const gfc_array_i4 *,
-                                         const gfc_array_char *,
-                                         const GFC_INTEGER_4 *, GFC_INTEGER_4,
-                                         GFC_INTEGER_4);
+extern void eoshift3_4_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict,
+       const gfc_array_i4 * const restrict,
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_4 * const restrict, 
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift3_4_char);
 
 void
-eoshift3_4_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i4 *h,
-                             const gfc_array_char *bound,
-                             const GFC_INTEGER_4 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift3_4_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i4 *  const restrict h,
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_4 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
 }
index ba2ef1f..402318f 100644 (file)
@@ -37,9 +37,12 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8)
 
 static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *h,
-         const gfc_array_char *bound, const GFC_INTEGER_8 *pwhich,
-         index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i8 * const restrict h,
+       const gfc_array_char * const restrict bound, 
+       const GFC_INTEGER_8 * const restrict pwhich,
+       index_type size, char filler)
 {
   /* r.* indicates the return array.  */
   index_type rstride[GFC_MAX_DIMENSIONS];
@@ -236,36 +239,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const gfc_array_i8 *
     }
 }
 
-extern void eoshift3_8 (gfc_array_char *, const gfc_array_char *,
-                                  const gfc_array_i8 *, const gfc_array_char *,
-                                  const GFC_INTEGER_8 *);
+extern void eoshift3_8 (gfc_array_char * const restrict, 
+       const gfc_array_char * const restrict,
+       const gfc_array_i8 * const restrict, 
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_8 *);
 export_proto(eoshift3_8);
 
 void
-eoshift3_8 (gfc_array_char *ret, const gfc_array_char *array,
-                      const gfc_array_i8 *h, const gfc_array_char *bound,
-                      const GFC_INTEGER_8 *pwhich)
+eoshift3_8 (gfc_array_char * const restrict ret, 
+       const gfc_array_char * const restrict array,
+       const gfc_array_i8 * const restrict h, 
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_8 * const restrict pwhich)
 {
   eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
 }
 
-extern void eoshift3_8_char (gfc_array_char *, GFC_INTEGER_4,
-                                         const gfc_array_char *,
-                                         const gfc_array_i8 *,
-                                         const gfc_array_char *,
-                                         const GFC_INTEGER_8 *, GFC_INTEGER_4,
-                                         GFC_INTEGER_4);
+extern void eoshift3_8_char (gfc_array_char * const restrict, 
+       GFC_INTEGER_4,
+       const gfc_array_char * const restrict,
+       const gfc_array_i8 * const restrict,
+       const gfc_array_char * const restrict,
+       const GFC_INTEGER_8 * const restrict, 
+       GFC_INTEGER_4, GFC_INTEGER_4);
 export_proto(eoshift3_8_char);
 
 void
-eoshift3_8_char (gfc_array_char *ret,
-                             GFC_INTEGER_4 ret_length __attribute__((unused)),
-                             const gfc_array_char *array, const gfc_array_i8 *h,
-                             const gfc_array_char *bound,
-                             const GFC_INTEGER_8 *pwhich,
-                             GFC_INTEGER_4 array_length,
-                             GFC_INTEGER_4 bound_length
-                               __attribute__((unused)))
+eoshift3_8_char (gfc_array_char * const restrict ret,
+       GFC_INTEGER_4 ret_length __attribute__((unused)),
+       const gfc_array_char * const restrict array, 
+       const gfc_array_i8 *  const restrict h,
+       const gfc_array_char * const restrict bound,
+       const GFC_INTEGER_8 * const restrict pwhich,
+       GFC_INTEGER_4 array_length,
+       GFC_INTEGER_4 bound_length __attribute__((unused)))
 {
   eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
 }
index ca934a1..f61fe0b 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array);
+extern void maxloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(maxloc0_16_i16);
 
 void
-maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
+maxloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mmaxloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_i16);
 
 void
-mmaxloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * 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_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 9dcd7b4..da64cdd 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array);
+extern void maxloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(maxloc0_16_i4);
 
 void
-maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
+maxloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mmaxloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_i4);
 
 void
-mmaxloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * 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_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index d8a6261..07cb378 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array);
+extern void maxloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(maxloc0_16_i8);
 
 void
-maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
+maxloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mmaxloc0_16_i8 (gfc_array_i16 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_i8);
 
 void
-mmaxloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * 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_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 1f0dfb0..e8ff7c4 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array);
+extern void maxloc0_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array);
 export_proto(maxloc0_16_r10);
 
 void
-maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
+maxloc0_16_r10 (gfc_array_i16 * 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_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mmaxloc0_16_r10 (gfc_array_i16 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_r10);
 
 void
-mmaxloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_r10 (gfc_array_i16 * 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_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index d9e3780..da6a3e9 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array);
+extern void maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(maxloc0_16_r16);
 
 void
-maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
+maxloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mmaxloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r16 (gfc_array_i16 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_r16);
 
 void
-mmaxloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * 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_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 6e0e92a..6797bd9 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array);
+extern void maxloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(maxloc0_16_r4);
 
 void
-maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
+maxloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mmaxloc0_16_r4 (gfc_array_i16 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r4 (gfc_array_i16 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_r4);
 
 void
-mmaxloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * 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_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 878e21e..f03019b 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array);
+extern void maxloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(maxloc0_16_r8);
 
 void
-maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
+maxloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mmaxloc0_16_r8 (gfc_array_i16 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_16_r8 (gfc_array_i16 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_16_r8);
 
 void
-mmaxloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * 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_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index e419530..aa1c0c0 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array);
+extern void maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(maxloc0_4_i16);
 
 void
-maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
+maxloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mmaxloc0_4_i16 (gfc_array_i4 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i16 (gfc_array_i4 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_i16);
 
 void
-mmaxloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * 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_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index d882124..e95e040 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
+extern void maxloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(maxloc0_4_i4);
 
 void
-maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
+maxloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_i4);
 
 void
-mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * 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_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index e709d83..94c4997 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
+extern void maxloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(maxloc0_4_i8);
 
 void
-maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
+maxloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_4_i8 (gfc_array_i4 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_i8);
 
 void
-mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * 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_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 63b4ab3..4e9dead 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array);
+extern void maxloc0_4_r10 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r10 * const restrict array);
 export_proto(maxloc0_4_r10);
 
 void
-maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
+maxloc0_4_r10 (gfc_array_i4 * 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_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mmaxloc0_4_r10 (gfc_array_i4 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r10 (gfc_array_i4 * const restrict, 
+       gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_r10);
 
 void
-mmaxloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_r10 (gfc_array_i4 * 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_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 41cecaf..6059c87 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array);
+extern void maxloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(maxloc0_4_r16);
 
 void
-maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
+maxloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mmaxloc0_4_r16 (gfc_array_i4 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r16 (gfc_array_i4 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_r16);
 
 void
-mmaxloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * 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_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 3eba4f2..260c3d3 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
+extern void maxloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(maxloc0_4_r4);
 
 void
-maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
+maxloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r4 (gfc_array_i4 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_r4);
 
 void
-mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * 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_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 3a5f3f2..001b6bf 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
+extern void maxloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(maxloc0_4_r8);
 
 void
-maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
+maxloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_4_r8 (gfc_array_i4 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_4_r8);
 
 void
-mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * 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_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 52316ed..273ceb7 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array);
+extern void maxloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(maxloc0_8_i16);
 
 void
-maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
+maxloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mmaxloc0_8_i16 (gfc_array_i8 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i16 (gfc_array_i8 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_i16);
 
 void
-mmaxloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * 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_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index aa37b6d..4860ccc 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
+extern void maxloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(maxloc0_8_i4);
 
 void
-maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
+maxloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i4 (gfc_array_i8 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_i4);
 
 void
-mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * 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_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 8c825c4..786bf70 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
+extern void maxloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(maxloc0_8_i8);
 
 void
-maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
+maxloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mmaxloc0_8_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_i8);
 
 void
-mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * 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_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 6add177..566757f 100644 (file)
@@ -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;
index 92f0884..d5232a4 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array);
+extern void maxloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(maxloc0_8_r16);
 
 void
-maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
+maxloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mmaxloc0_8_r16 (gfc_array_i8 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r16 (gfc_array_i8 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_r16);
 
 void
-mmaxloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * 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_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 07cebb3..1effd3a 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
+extern void maxloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(maxloc0_8_r4);
 
 void
-maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
+maxloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r4 (gfc_array_i8 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_r4);
 
 void
-mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * 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_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 92f2805..18b7687 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
+extern void maxloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(maxloc0_8_r8);
 
 void
-maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
+maxloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r8 (gfc_array_i8 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mmaxloc0_8_r8);
 
 void
-mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * 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_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index d9666bd..430e6ee 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_i16);
 
 void
-maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_16 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
+      const GFC_INTEGER_16 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_i16);
 
 void
-mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 9df85ec..458b72e 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_i4);
 
 void
-maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_4 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
+      const GFC_INTEGER_4 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_i4);
 
 void
-mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 8d6e003..cda852e 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_i8);
 
 void
-maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_8 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
+      const GFC_INTEGER_8 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_i8);
 
 void
-mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 64b2770..e368bd9 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_r10);
 
 void
-maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_REAL_10 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_10 *src;
+      const GFC_REAL_10 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_r10);
 
 void
-mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_REAL_10 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_REAL_10 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
 
   while (base)
     {
-      GFC_REAL_10 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_10 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index f671808..2d2ec0c 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_16_r16 (gfc_array_i16 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_r16);
 
 void
-maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_REAL_16 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_16 *src;
+      const GFC_REAL_16 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_r16);
 
 void
-mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_REAL_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_REAL_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
 
   while (base)
     {
-      GFC_REAL_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 902e97c..c5dfba1 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_16_r4 (gfc_array_i16 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_r4);
 
 void
-maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_4 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_REAL_4 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_4 *src;
+      const GFC_REAL_4 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_r4);
 
 void
-mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_REAL_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_REAL_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
 
   while (base)
     {
-      GFC_REAL_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 3e28d67..5e965b2 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_16_r8 (gfc_array_i16 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_16_r8);
 
 void
-maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_8 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_REAL_8 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_8 *src;
+      const GFC_REAL_8 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_16_r8);
 
 void
-mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_REAL_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_REAL_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
 
   while (base)
     {
-      GFC_REAL_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 8ca2cf1..c801e0e 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_4_i16 (gfc_array_i4 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_i16);
 
 void
-maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_INTEGER_16 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
+      const GFC_INTEGER_16 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_i16);
 
 void
-mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_INTEGER_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_INTEGER_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index 06a657c..cd6f93a 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_4_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_i4);
 
 void
-maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_INTEGER_4 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
+      const GFC_INTEGER_4 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_i4);
 
 void
-mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_INTEGER_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_INTEGER_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index f03b36c..6d0353b 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_4_i8 (gfc_array_i4 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_i8);
 
 void
-maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_INTEGER_8 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
+      const GFC_INTEGER_8 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_i8);
 
 void
-mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_INTEGER_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_INTEGER_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index 854b0b8..e8364e2 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_4_r10 (gfc_array_i4 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_r10);
 
 void
-maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_REAL_10 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_10 *src;
+      const GFC_REAL_10 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_r10);
 
 void
-mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_REAL_10 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_REAL_10 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
 
   while (base)
     {
-      GFC_REAL_10 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_10 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index fdabd1a..5d7a5a1 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_4_r16 (gfc_array_i4 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_r16);
 
 void
-maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_REAL_16 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_16 *src;
+      const GFC_REAL_16 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_r16);
 
 void
-mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_REAL_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_REAL_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
 
   while (base)
     {
-      GFC_REAL_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index 34510e7..dd0de4b 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_4_r4 (gfc_array_i4 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_r4);
 
 void
-maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_4 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_REAL_4 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_4 *src;
+      const GFC_REAL_4 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_r4);
 
 void
-mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_REAL_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_REAL_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
 
   while (base)
     {
-      GFC_REAL_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index ea67079..fc0f9f5 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_4_r8 (gfc_array_i4 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_4_r8);
 
 void
-maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_8 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_REAL_8 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_8 *src;
+      const GFC_REAL_8 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_4_r8);
 
 void
-mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_REAL_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_REAL_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
 
   while (base)
     {
-      GFC_REAL_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index f3ba50b..8feecfa 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *);
+extern void maxloc1_8_i16 (gfc_array_i8 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_i16);
 
 void
-maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_INTEGER_16 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
+      const GFC_INTEGER_16 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_i16);
 
 void
-mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_INTEGER_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_INTEGER_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index 1c095ff..0bc3cd8 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
+extern void maxloc1_8_i4 (gfc_array_i8 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_i4);
 
 void
-maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_INTEGER_4 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
+      const GFC_INTEGER_4 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_i4);
 
 void
-mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_INTEGER_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_INTEGER_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index ee6d269..dccffc0 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void maxloc1_8_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_i8);
 
 void
-maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_INTEGER_8 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
+      const GFC_INTEGER_8 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_i8);
 
 void
-mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_INTEGER_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_INTEGER_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index 67c7733..06c8cce 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *);
+extern void maxloc1_8_r10 (gfc_array_i8 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_r10);
 
 void
-maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_REAL_10 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_10 *src;
+      const GFC_REAL_10 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_r10);
 
 void
-mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_REAL_10 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_REAL_10 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
 
   while (base)
     {
-      GFC_REAL_10 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_10 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index d0b607f..057724a 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *);
+extern void maxloc1_8_r16 (gfc_array_i8 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_r16);
 
 void
-maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_REAL_16 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_16 *src;
+      const GFC_REAL_16 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_r16);
 
 void
-mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_REAL_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_REAL_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
 
   while (base)
     {
-      GFC_REAL_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index a7dd5ca..4775da2 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
+extern void maxloc1_8_r4 (gfc_array_i8 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_r4);
 
 void
-maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_4 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_REAL_4 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_4 *src;
+      const GFC_REAL_4 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_r4);
 
 void
-mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_REAL_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_REAL_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
 
   while (base)
     {
-      GFC_REAL_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index 188a410..8035aa2 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
+extern void maxloc1_8_r8 (gfc_array_i8 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(maxloc1_8_r8);
 
 void
-maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_8 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_REAL_8 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_8 *src;
+      const GFC_REAL_8 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -178,22 +181,25 @@ maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
 }
 
 
-extern void mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxloc1_8_r8);
 
 void
-mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_REAL_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_REAL_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
 
   while (base)
     {
-      GFC_REAL_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index cdcfe02..9ae812e 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void maxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void maxval_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(maxval_i16);
 
 void
-maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+maxval_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_16 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
+      const GFC_INTEGER_16 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_i16);
 
 void
-mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 5f1ba4d..3ee7ce0 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void maxval_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(maxval_i4);
 
 void
-maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+maxval_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *base;
-  GFC_INTEGER_4 *dest;
+  const GFC_INTEGER_4 * restrict base;
+  GFC_INTEGER_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
+      const GFC_INTEGER_4 * restrict src;
       GFC_INTEGER_4 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_i4);
 
 void
-mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *dest;
-  GFC_INTEGER_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_4 * restrict dest;
+  const GFC_INTEGER_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_4 result;
       src = base;
       msrc = mbase;
index f1d16f3..f2cf7fc 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void maxval_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(maxval_i8);
 
 void
-maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+maxval_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *base;
-  GFC_INTEGER_8 *dest;
+  const GFC_INTEGER_8 * restrict base;
+  GFC_INTEGER_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
+      const GFC_INTEGER_8 * restrict src;
       GFC_INTEGER_8 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_i8);
 
 void
-mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *dest;
-  GFC_INTEGER_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_8 * restrict dest;
+  const GFC_INTEGER_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_8 result;
       src = base;
       msrc = mbase;
index 07c7d7d..9efa92a 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
 
 
-extern void maxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void maxval_r10 (gfc_array_r10 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(maxval_r10);
 
 void
-maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+maxval_r10 (gfc_array_r10 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *base;
-  GFC_REAL_10 *dest;
+  const GFC_REAL_10 * restrict base;
+  GFC_REAL_10 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_10 *src;
+      const GFC_REAL_10 * restrict src;
       GFC_REAL_10 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_r10 (gfc_array_r10 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_r10);
 
 void
-mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r10 (gfc_array_r10 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *dest;
-  GFC_REAL_10 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_REAL_10 * restrict dest;
+  const GFC_REAL_10 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
 
   while (base)
     {
-      GFC_REAL_10 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_10 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_REAL_10 result;
       src = base;
       msrc = mbase;
index 0f8f246..a4d27be 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
 
 
-extern void maxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void maxval_r16 (gfc_array_r16 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(maxval_r16);
 
 void
-maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+maxval_r16 (gfc_array_r16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *base;
-  GFC_REAL_16 *dest;
+  const GFC_REAL_16 * restrict base;
+  GFC_REAL_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_16 *src;
+      const GFC_REAL_16 * restrict src;
       GFC_REAL_16 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_r16 (gfc_array_r16 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_r16);
 
 void
-mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r16 (gfc_array_r16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *dest;
-  GFC_REAL_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_REAL_16 * restrict dest;
+  const GFC_REAL_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
 
   while (base)
     {
-      GFC_REAL_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_REAL_16 result;
       src = base;
       msrc = mbase;
index 4d56bbf..42f95a1 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
 
 
-extern void maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void maxval_r4 (gfc_array_r4 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict);
 export_proto(maxval_r4);
 
 void
-maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+maxval_r4 (gfc_array_r4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_4 *base;
-  GFC_REAL_4 *dest;
+  const GFC_REAL_4 * restrict base;
+  GFC_REAL_4 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_4 *src;
+      const GFC_REAL_4 * restrict src;
       GFC_REAL_4 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_r4 (gfc_array_r4 * const restrict, 
+       gfc_array_r4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_r4);
 
 void
-mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r4 (gfc_array_r4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_4 *dest;
-  GFC_REAL_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_REAL_4 * restrict dest;
+  const GFC_REAL_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
 
   while (base)
     {
-      GFC_REAL_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_REAL_4 result;
       src = base;
       msrc = mbase;
index d84e18c..f704425 100644 (file)
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
 
 
-extern void maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void maxval_r8 (gfc_array_r8 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict);
 export_proto(maxval_r8);
 
 void
-maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+maxval_r8 (gfc_array_r8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_8 *base;
-  GFC_REAL_8 *dest;
+  const GFC_REAL_8 * restrict base;
+  GFC_REAL_8 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -121,7 +124,7 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_8 *src;
+      const GFC_REAL_8 * restrict src;
       GFC_REAL_8 result;
       src = base;
       {
@@ -172,22 +175,25 @@ maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
 }
 
 
-extern void mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mmaxval_r8 (gfc_array_r8 * const restrict, 
+       gfc_array_r8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mmaxval_r8);
 
 void
-mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mmaxval_r8 (gfc_array_r8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_8 *dest;
-  GFC_REAL_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_REAL_8 * restrict dest;
+  const GFC_REAL_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -278,8 +284,8 @@ mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
 
   while (base)
     {
-      GFC_REAL_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_REAL_8 result;
       src = base;
       msrc = mbase;
index af097fa..99d51ef 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array);
+extern void minloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(minloc0_16_i16);
 
 void
-minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
+minloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mminloc0_16_i16 (gfc_array_i16 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_i16);
 
 void
-mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * 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 @@ mminloc0_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 1569381..27b2beb 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array);
+extern void minloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(minloc0_16_i4);
 
 void
-minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
+minloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mminloc0_16_i4 (gfc_array_i16 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_i4);
 
 void
-mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * 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 @@ mminloc0_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 57af892..eed2f9c 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array);
+extern void minloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(minloc0_16_i8);
 
 void
-minloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
+minloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mminloc0_16_i8 (gfc_array_i16 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_i8);
 
 void
-mminloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * 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 @@ mminloc0_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 58ed79d..4126760 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array);
+extern void minloc0_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array);
 export_proto(minloc0_16_r10);
 
 void
-minloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
+minloc0_16_r10 (gfc_array_i16 * 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_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mminloc0_16_r10 (gfc_array_i16 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_r10);
 
 void
-mminloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_r10 (gfc_array_i16 * 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 @@ mminloc0_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 90c8c31..aad0889 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array);
+extern void minloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(minloc0_16_r16);
 
 void
-minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
+minloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mminloc0_16_r16 (gfc_array_i16 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_16_r16 (gfc_array_i16 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_r16);
 
 void
-mminloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * 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 @@ mminloc0_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 6fba3dd..6a89b9b 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array);
+extern void minloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(minloc0_16_r4);
 
 void
-minloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
+minloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mminloc0_16_r4 (gfc_array_i16 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_16_r4 (gfc_array_i16 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_r4);
 
 void
-mminloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_r4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r4 * 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 @@ mminloc0_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 37b9e17..3eee3cf 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array);
+extern void minloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(minloc0_16_r8);
 
 void
-minloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
+minloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_16 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mminloc0_16_r8 (gfc_array_i16 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_16_r8 (gfc_array_i16 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_16_r8);
 
 void
-mminloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_16_r8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r8 * 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 @@ mminloc0_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_16 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 068bbd5..dde98ec 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array);
+extern void minloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(minloc0_4_i16);
 
 void
-minloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
+minloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mminloc0_4_i16 (gfc_array_i4 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_4_i16 (gfc_array_i4 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_i16);
 
 void
-mminloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_i16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i16 * 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 @@ mminloc0_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index e3b15ae..eb12d04 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
+extern void minloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(minloc0_4_i4);
 
 void
-minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
+minloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mminloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_4_i4 (gfc_array_i4 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_i4);
 
 void
-mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_i4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i4 * 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 @@ mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index a021491..715f932 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
+extern void minloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(minloc0_4_i8);
 
 void
-minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
+minloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mminloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_4_i8 (gfc_array_i4 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_i8);
 
 void
-mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_i8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_i8 * 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 @@ mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 3f5ddd9..43118ce 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array);
+extern void minloc0_4_r10 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r10 * const restrict array);
 export_proto(minloc0_4_r10);
 
 void
-minloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
+minloc0_4_r10 (gfc_array_i4 * 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_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mminloc0_4_r10 (gfc_array_i4 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_4_r10 (gfc_array_i4 * const restrict, 
+       gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_r10);
 
 void
-mminloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_r10 (gfc_array_i4 * 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 @@ mminloc0_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_10 *base;
+  const GFC_REAL_10 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 82c5f6a..3751d07 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array);
+extern void minloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(minloc0_4_r16);
 
 void
-minloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
+minloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mminloc0_4_r16 (gfc_array_i4 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_4_r16 (gfc_array_i4 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_r16);
 
 void
-mminloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_r16 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r16 * 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 @@ mminloc0_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index f8cce29..0c93800 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
+extern void minloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(minloc0_4_r4);
 
 void
-minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
+minloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mminloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_4_r4 (gfc_array_i4 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_r4);
 
 void
-mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_r4 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r4 * 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 @@ mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index dbfa667..4226dfd 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
 
 
-extern void minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
+extern void minloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(minloc0_4_r8);
 
 void
-minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
+minloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_4 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mminloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_4_r8 (gfc_array_i4 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_4_r8);
 
 void
-mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_4_r8 (gfc_array_i4 * const restrict retarray, 
+       gfc_array_r8 * 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 @@ mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_4 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 8fabf52..71eaec4 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array);
+extern void minloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * const restrict array);
 export_proto(minloc0_8_i16);
 
 void
-minloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
+minloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * 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_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array)
 }
 
 
-extern void mminloc0_8_i16 (gfc_array_i8 *, gfc_array_i16 *, gfc_array_l4 *);
+extern void mminloc0_8_i16 (gfc_array_i8 * const restrict, 
+       gfc_array_i16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_i16);
 
 void
-mminloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_i16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i16 * 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 @@ mminloc0_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_16 *base;
+  const GFC_INTEGER_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 49fe0f4..c1871f2 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
+extern void minloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * const restrict array);
 export_proto(minloc0_8_i4);
 
 void
-minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
+minloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * 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_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array)
 }
 
 
-extern void mminloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
+extern void mminloc0_8_i4 (gfc_array_i8 * const restrict, 
+       gfc_array_i4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_i4);
 
 void
-mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_i4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i4 * 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 @@ mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_4 *base;
+  const GFC_INTEGER_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index d4327f0..b3fbaff 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
+extern void minloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * const restrict array);
 export_proto(minloc0_8_i8);
 
 void
-minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
+minloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * 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_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array)
 }
 
 
-extern void mminloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
+extern void mminloc0_8_i8 (gfc_array_i8 * const restrict, 
+       gfc_array_i8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_i8);
 
 void
-mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_i8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_i8 * 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 @@ mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_INTEGER_8 *base;
+  const GFC_INTEGER_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 2cd231b..9cdf5c6 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array);
+extern void minloc0_8_r10 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r10 * const restrict array);
 export_proto(minloc0_8_r10);
 
 void
-minloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
+minloc0_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 @@ minloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
 }
 
 
-extern void mminloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mminloc0_8_r10 (gfc_array_i8 * const restrict, 
+       gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_r10);
 
 void
-mminloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_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 @@ mminloc0_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;
index ff5925b..dc86f6f 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array);
+extern void minloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * const restrict array);
 export_proto(minloc0_8_r16);
 
 void
-minloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
+minloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * 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_16 *base;
+  const GFC_REAL_16 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array)
 }
 
 
-extern void mminloc0_8_r16 (gfc_array_i8 *, gfc_array_r16 *, gfc_array_l4 *);
+extern void mminloc0_8_r16 (gfc_array_i8 * const restrict, 
+       gfc_array_r16 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_r16);
 
 void
-mminloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_r16 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r16 * 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 @@ mminloc0_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_16 *base;
+  const GFC_REAL_16 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index a522c75..985d60c 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
+extern void minloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * const restrict array);
 export_proto(minloc0_8_r4);
 
 void
-minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
+minloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * 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_4 *base;
+  const GFC_REAL_4 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array)
 }
 
 
-extern void mminloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
+extern void mminloc0_8_r4 (gfc_array_i8 * const restrict, 
+       gfc_array_r4 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_r4);
 
 void
-mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_r4 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r4 * 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 @@ mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_4 *base;
+  const GFC_REAL_4 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index ba3cfe6..fe98a1e 100644 (file)
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
 
 
-extern void minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
+extern void minloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * const restrict array);
 export_proto(minloc0_8_r8);
 
 void
-minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
+minloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * 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_8 *base;
+  const GFC_REAL_8 *base;
   GFC_INTEGER_8 *dest;
   index_type rank;
   index_type n;
@@ -154,12 +156,14 @@ minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array)
 }
 
 
-extern void mminloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
+extern void mminloc0_8_r8 (gfc_array_i8 * const restrict, 
+       gfc_array_r8 * const restrict, gfc_array_l4 * const restrict);
 export_proto(mminloc0_8_r8);
 
 void
-mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
-                                 gfc_array_l4 * mask)
+mminloc0_8_r8 (gfc_array_i8 * const restrict retarray, 
+       gfc_array_r8 * 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 @@ mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array,
   index_type mstride[GFC_MAX_DIMENSIONS];
   index_type dstride;
   GFC_INTEGER_8 *dest;
-  GFC_REAL_8 *base;
+  const GFC_REAL_8 *base;
   GFC_LOGICAL_4 *mbase;
   int rank;
   index_type n;
index 906030c..5b69c55 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void minloc1_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict);
 export_proto(minloc1_16_i16);
 
 void
-minloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_16 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ minloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
+      const GFC_INTEGER_16 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ minloc1_16_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
 }
 
 
-extern void mminloc1_16_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mminloc1_16_i16 (gfc_array_i16 * const restrict, 
+       gfc_array_i16 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mminloc1_16_i16);
 
 void
-mminloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i16 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_16 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_16 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mminloc1_16_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
 
   while (base)
     {
-      GFC_INTEGER_16 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_16 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index b7fe1a0..8d59189 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *);
+extern void minloc1_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict);
 export_proto(minloc1_16_i4);
 
 void
-minloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_4 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_4 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ minloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
+      const GFC_INTEGER_4 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ minloc1_16_i4 (gfc_array_i16 *retarray, gfc_array_i4 *array, index_type *pdim)
 }
 
 
-extern void mminloc1_16_i4 (gfc_array_i16 *, gfc_array_i4 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mminloc1_16_i4 (gfc_array_i16 * const restrict, 
+       gfc_array_i4 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mminloc1_16_i4);
 
 void
-mminloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i4 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i4 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_4 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_4 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mminloc1_16_i4 (gfc_array_i16 * retarray, gfc_array_i4 * array,
 
   while (base)
     {
-      GFC_INTEGER_4 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_4 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 20c17f2..d3f6995 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *);
+extern void minloc1_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict);
 export_proto(minloc1_16_i8);
 
 void
-minloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_8 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_INTEGER_8 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ minloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
+      const GFC_INTEGER_8 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ minloc1_16_i8 (gfc_array_i16 *retarray, gfc_array_i8 *array, index_type *pdim)
 }
 
 
-extern void mminloc1_16_i8 (gfc_array_i16 *, gfc_array_i8 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mminloc1_16_i8 (gfc_array_i16 * const restrict, 
+       gfc_array_i8 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mminloc1_16_i8);
 
 void
-mminloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_i8 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_i8 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_INTEGER_8 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_INTEGER_8 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mminloc1_16_i8 (gfc_array_i16 * retarray, gfc_array_i8 * array,
 
   while (base)
     {
-      GFC_INTEGER_8 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_INTEGER_8 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 48519c2..0e3d605 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *);
+extern void minloc1_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict);
 export_proto(minloc1_16_r10);
 
 void
-minloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_10 *base;
-  GFC_INTEGER_16 *dest;
+  const GFC_REAL_10 * restrict base;
+  GFC_INTEGER_16 * restrict dest;
   index_type rank;
   index_type n;
   index_type len;
@@ -122,7 +125,7 @@ minloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
 
   while (base)
     {
-      GFC_REAL_10 *src;
+      const GFC_REAL_10 * restrict src;
       GFC_INTEGER_16 result;
       src = base;
       {
@@ -178,22 +181,25 @@ minloc1_16_r10 (gfc_array_i16 *retarray, gfc_array_r10 *array, index_type *pdim)
 }
 
 
-extern void mminloc1_16_r10 (gfc_array_i16 *, gfc_array_r10 *, index_type *,
-                                              gfc_array_l4 *);
+extern void mminloc1_16_r10 (gfc_array_i16 * const restrict, 
+       gfc_array_r10 * const restrict, const index_type * const restrict,
+       gfc_array_l4 * const restrict);
 export_proto(mminloc1_16_r10);
 
 void
-mminloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
-                                 index_type *pdim, gfc_array_l4 * mask)
+mminloc1_16_r10 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r10 * const restrict array, 
+       const index_type * const restrict pdim, 
+       gfc_array_l4 * const restrict mask)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
   index_type mstride[GFC_MAX_DIMENSIONS];
-  GFC_INTEGER_16 *dest;
-  GFC_REAL_10 *base;
-  GFC_LOGICAL_4 *mbase;
+  GFC_INTEGER_16 * restrict dest;
+  const GFC_REAL_10 * restrict base;
+  const GFC_LOGICAL_4 * restrict mbase;
   int rank;
   int dim;
   index_type n;
@@ -284,8 +290,8 @@ mminloc1_16_r10 (gfc_array_i16 * retarray, gfc_array_r10 * array,
 
   while (base)
     {
-      GFC_REAL_10 *src;
-      GFC_LOGICAL_4 *msrc;
+      const GFC_REAL_10 * restrict src;
+      const GFC_LOGICAL_4 * restrict msrc;
       GFC_INTEGER_16 result;
       src = base;
       msrc = mbase;
index 41fed8a..29dfe1d 100644 (file)
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA.  */
 #if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_16)
 
 
-extern void minloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *);
+extern void minloc1_16_r16 (gfc_array_i16 * const restrict, 
+       gfc_array_r16 * const restrict, const index_type * const restrict);
 export_proto(minloc1_16_r16);
 
 void
-minloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_16_r16 (gfc_array_i16 * const restrict retarray, 
+       gfc_array_r16 * const restrict array, 
+       const index_type * const restrict pdim)
 {
   index_type count[GFC_MAX_DIMENSIONS];
   index_type extent[GFC_MAX_DIMENSIONS];
   index_type sstride[GFC_MAX_DIMENSIONS];
   index_type dstride[GFC_MAX_DIMENSIONS];
-  GFC_REAL_16 *base;
-  GFC_INTEGER_16 *dest;