diff --git a/libgfortran/generated/all_l16.c b/libgfortran/generated/all_l16.c
index 40851eb2c19d763b75c07b4b1d51a380f82789d0..78df909369b547dfd2bdcb3a714c66290633c639 100644
--- a/libgfortran/generated/all_l16.c
+++ b/libgfortran/generated/all_l16.c
@@ -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;
{
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c
index 246ec07a5074b72b6acb8fbbea75370d125361e2..0a6f44de38142d55e6360c901893d2098e02f65a 100644
--- a/libgfortran/generated/all_l4.c
+++ b/libgfortran/generated/all_l4.c
@@ -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;
{
diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c
index 996ce3560bf98f4952c147ee32c72fcdec9a4b38..74a3731c5eee80cfc5ea3d14c9e2f19951e793ef 100644
--- a/libgfortran/generated/all_l8.c
+++ b/libgfortran/generated/all_l8.c
@@ -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;
{
diff --git a/libgfortran/generated/any_l16.c b/libgfortran/generated/any_l16.c
index cf4798e7962bd019fd03bb9dd0711179df7f8314..114688084591a25dbfe0889403e81d78d0fa2254 100644
--- a/libgfortran/generated/any_l16.c
+++ b/libgfortran/generated/any_l16.c
@@ -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;
{
diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c
index 994014a2cacf1bfeddbfe7ecd913643267ab156a..4a650f019a8621988f335b820d6d330ed300d43f 100644
--- a/libgfortran/generated/any_l4.c
+++ b/libgfortran/generated/any_l4.c
@@ -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;
{
diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c
index 9d52b15c509468ec4eeaee4d5d4099ed0ca8a225..ed45e790db21be1fa2a6d8157c7af2bf39dbf7ce 100644
--- a/libgfortran/generated/any_l8.c
+++ b/libgfortran/generated/any_l8.c
@@ -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;
{
diff --git a/libgfortran/generated/count_16_l16.c b/libgfortran/generated/count_16_l16.c
index 8cb795faf5ebfebc301615b161cf39ff89eac8ae..5d27d652213f50f10c579d8067585e736feba61d 100644
--- a/libgfortran/generated/count_16_l16.c
+++ b/libgfortran/generated/count_16_l16.c
@@ -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;
{
diff --git a/libgfortran/generated/count_16_l4.c b/libgfortran/generated/count_16_l4.c
index f4af5ba31525d3d2e3370acb60ba03be954c0b7a..b491e90e0445d9632eed16501839e116de8621cd 100644
--- a/libgfortran/generated/count_16_l4.c
+++ b/libgfortran/generated/count_16_l4.c
@@ -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;
{
diff --git a/libgfortran/generated/count_16_l8.c b/libgfortran/generated/count_16_l8.c
index 6134f5b13c685969f90c5fc64cf1e7e5d40f7ca9..03ff91f32dd6234bc1ad1d2e96dad0f7e271f3a1 100644
--- a/libgfortran/generated/count_16_l8.c
+++ b/libgfortran/generated/count_16_l8.c
@@ -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;
{
diff --git a/libgfortran/generated/count_4_l16.c b/libgfortran/generated/count_4_l16.c
index cbd1717df2550db3d2738f4ec7a7ab1ca167feb6..bad5d5e8a8e874e7fa6450ecd85d42a66461e551 100644
--- a/libgfortran/generated/count_4_l16.c
+++ b/libgfortran/generated/count_4_l16.c
@@ -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;
{
diff --git a/libgfortran/generated/count_4_l4.c b/libgfortran/generated/count_4_l4.c
index aa98bfc66c1d93f21428a8194689214cc0ceba88..440a549b9541687412ad9ea6f3e8c042505240c4 100644
--- a/libgfortran/generated/count_4_l4.c
+++ b/libgfortran/generated/count_4_l4.c
@@ -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;
{
diff --git a/libgfortran/generated/count_4_l8.c b/libgfortran/generated/count_4_l8.c
index fe9eae530cf7f9187956248840e71cac47b8bde2..4992b77120635d9ac7322ddb93ce10bd17ec0bca 100644
--- a/libgfortran/generated/count_4_l8.c
+++ b/libgfortran/generated/count_4_l8.c
@@ -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;
{
diff --git a/libgfortran/generated/count_8_l16.c b/libgfortran/generated/count_8_l16.c
index 4df2aeb82147368f4aed3c1a1231b2a7433f2afa..ec23677298276062dbd1dd172808e111ccbf0428 100644
--- a/libgfortran/generated/count_8_l16.c
+++ b/libgfortran/generated/count_8_l16.c
@@ -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;
{
diff --git a/libgfortran/generated/count_8_l4.c b/libgfortran/generated/count_8_l4.c
index b32b30e173a16b3d807832ce6b1af4a1eff8cc4e..97ae10e97fb9b46126bc1806a6a351024c5ab8a0 100644
--- a/libgfortran/generated/count_8_l4.c
+++ b/libgfortran/generated/count_8_l4.c
@@ -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;
{
diff --git a/libgfortran/generated/count_8_l8.c b/libgfortran/generated/count_8_l8.c
index 670fc1d1cf1aa2d24d323dc772c896ef5838a6e9..b2d06b968736e512eb346269d0ac487383a86377 100644
--- a/libgfortran/generated/count_8_l8.c
+++ b/libgfortran/generated/count_8_l8.c
@@ -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;
{
diff --git a/libgfortran/generated/cshift1_16.c b/libgfortran/generated/cshift1_16.c
index bff20d3b4be1dae04a2fbbfb7880280a6b5d33aa..c264bb13f923d57cc9fdf6efb73820091ba85d02 100644
--- a/libgfortran/generated/cshift1_16.c
+++ b/libgfortran/generated/cshift1_16.c
@@ -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);
}
diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c
index 9f9bea07c1ecc08ff2ebbeff4b294dc8633982be..8eba7b331aa93fe33601ac067299e948d6c315d3 100644
--- a/libgfortran/generated/cshift1_4.c
+++ b/libgfortran/generated/cshift1_4.c
@@ -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);
}
diff --git a/libgfortran/generated/cshift1_8.c b/libgfortran/generated/cshift1_8.c
index 3a7c509b00c2f6cf911c55f0711d73c4e7b8fe68..d8d0f898377df59b2c1970d273cf8200eef1e887 100644
--- a/libgfortran/generated/cshift1_8.c
+++ b/libgfortran/generated/cshift1_8.c
@@ -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);
}
diff --git a/libgfortran/generated/dotprod_c10.c b/libgfortran/generated/dotprod_c10.c
index 3fa5955e200bf25f318439641dadad6fef5406dd..0dccca71ec72eb42d07b9702d345cba318e9dccd 100644
--- a/libgfortran/generated/dotprod_c10.c
+++ b/libgfortran/generated/dotprod_c10.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_c16.c b/libgfortran/generated/dotprod_c16.c
index a526b533d4401e1f89dcc191f191654e2d3eab89..6d17ba7409d928ced2559e2a21dd38adcbbcb22c 100644
--- a/libgfortran/generated/dotprod_c16.c
+++ b/libgfortran/generated/dotprod_c16.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_c4.c b/libgfortran/generated/dotprod_c4.c
index ea27dd8457e8cd048c22f12d82a635befd343103..a575dc9896906577f05e2473dcfd7d1aecbccffd 100644
--- a/libgfortran/generated/dotprod_c4.c
+++ b/libgfortran/generated/dotprod_c4.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_c8.c b/libgfortran/generated/dotprod_c8.c
index aec5fb5a3bce8da36b01dfc15b7307d9d0e41a4a..00ac8a9d0cc4ecafdac555c7dc3e982c6d7aac26 100644
--- a/libgfortran/generated/dotprod_c8.c
+++ b/libgfortran/generated/dotprod_c8.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_i16.c b/libgfortran/generated/dotprod_i16.c
index 1c3e5825d0e6506a3f83a3078a76746b850cfc5f..292f078653806ff65a99aef71fa739433b8e0276 100644
--- a/libgfortran/generated/dotprod_i16.c
+++ b/libgfortran/generated/dotprod_i16.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_i4.c b/libgfortran/generated/dotprod_i4.c
index aaf8b8d4efa1f78cd7fc40330954d586f52abc40..5a8dcd930fef5c42d8883c3c2f49d2449a9161e7 100644
--- a/libgfortran/generated/dotprod_i4.c
+++ b/libgfortran/generated/dotprod_i4.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_i8.c b/libgfortran/generated/dotprod_i8.c
index 44af1f15954acc7bce39a7c83485be645d43a020..c03cbc311e9d3a021f53bcd30ae0a1922788a74c 100644
--- a/libgfortran/generated/dotprod_i8.c
+++ b/libgfortran/generated/dotprod_i8.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_l16.c b/libgfortran/generated/dotprod_l16.c
index 977eb4a3915659ef1b0bf0f936719a7269a24995..c53b1bb7af5ae2956502a0fce67af99797d68d1b 100644
--- a/libgfortran/generated/dotprod_l16.c
+++ b/libgfortran/generated/dotprod_l16.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_l4.c b/libgfortran/generated/dotprod_l4.c
index 50db3981285395e4ed3296da92b0ce3833bf6db3..dcec980b564ec22da19f75b42a1137a8250ca7be 100644
--- a/libgfortran/generated/dotprod_l4.c
+++ b/libgfortran/generated/dotprod_l4.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_l8.c b/libgfortran/generated/dotprod_l8.c
index f857d08ecd56890cae87d256586cfc9cc70a2ecd..b579f2ff9ed2e3c079eb472b92b5be36fd17533a 100644
--- a/libgfortran/generated/dotprod_l8.c
+++ b/libgfortran/generated/dotprod_l8.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_r10.c b/libgfortran/generated/dotprod_r10.c
index 055c28837c4ad489fdeec4c47b2c076b18d73eca..e2160c796a209c157bfccc7a3f8f530721db6f80 100644
--- a/libgfortran/generated/dotprod_r10.c
+++ b/libgfortran/generated/dotprod_r10.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_r16.c b/libgfortran/generated/dotprod_r16.c
index e14eaac4208e08a83c3e40d00a2635c40ec21c5c..40edc497a0d4eda5f410c300a5ef3d407333cda9 100644
--- a/libgfortran/generated/dotprod_r16.c
+++ b/libgfortran/generated/dotprod_r16.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_r4.c b/libgfortran/generated/dotprod_r4.c
index bae99ab3f3664de4c535358dc7ea28c378113233..7fdc57fa0a58c71d82769f1116d2d79fab0d7672 100644
--- a/libgfortran/generated/dotprod_r4.c
+++ b/libgfortran/generated/dotprod_r4.c
@@ -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;
diff --git a/libgfortran/generated/dotprod_r8.c b/libgfortran/generated/dotprod_r8.c
index 84a6aaa011093ec6d470afefb3a5510d64bc52f4..760407736c99850c99c15969f4cd7a554f91f8c2 100644
--- a/libgfortran/generated/dotprod_r8.c
+++ b/libgfortran/generated/dotprod_r8.c
@@ -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;
diff --git a/libgfortran/generated/eoshift1_16.c b/libgfortran/generated/eoshift1_16.c
index c548fef3ae47e53a441b776222d44763e03f5d3e..bfb051fe1c65eff612f7a0bcff0bcbc83f8becdf 100644
--- a/libgfortran/generated/eoshift1_16.c
+++ b/libgfortran/generated/eoshift1_16.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/eoshift1_4.c b/libgfortran/generated/eoshift1_4.c
index 8045679ce921fb12b261c823f0e0ef408a1d393b..922c46c6830a2c674dcc62b84d70f05f63b72dd9 100644
--- a/libgfortran/generated/eoshift1_4.c
+++ b/libgfortran/generated/eoshift1_4.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/eoshift1_8.c b/libgfortran/generated/eoshift1_8.c
index bcc53ab705461b4599f562319ba55bc17e71aaab..ea23adfaabf11d45cec3e661b261ee8f09d6d937 100644
--- a/libgfortran/generated/eoshift1_8.c
+++ b/libgfortran/generated/eoshift1_8.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/eoshift3_16.c b/libgfortran/generated/eoshift3_16.c
index d03c1c7f1c9ee00c25dff6b0e7d895c9b23d2bc0..3a8b046bc8e2c7f085ce93922ed407a740f24b24 100644
--- a/libgfortran/generated/eoshift3_16.c
+++ b/libgfortran/generated/eoshift3_16.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/eoshift3_4.c b/libgfortran/generated/eoshift3_4.c
index 2b84ece377cc0f0e47291c43321398214d37b2c1..cfbf449901e839fcb2d694d3448d080307e1c48d 100644
--- a/libgfortran/generated/eoshift3_4.c
+++ b/libgfortran/generated/eoshift3_4.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/eoshift3_8.c b/libgfortran/generated/eoshift3_8.c
index ba2ef1faa339337b5c536bff68f9b8901a42a61a..402318ff6069d16dca06ab524451289f0a7397d1 100644
--- a/libgfortran/generated/eoshift3_8.c
+++ b/libgfortran/generated/eoshift3_8.c
@@ -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, ' ');
}
diff --git a/libgfortran/generated/maxloc0_16_i16.c b/libgfortran/generated/maxloc0_16_i16.c
index ca934a14d7007f08a846a75da8fcffa2df6106bd..f61fe0b78d35bfbd2dfd454284e9e8c68655e8ad 100644
--- a/libgfortran/generated/maxloc0_16_i16.c
+++ b/libgfortran/generated/maxloc0_16_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_i4.c b/libgfortran/generated/maxloc0_16_i4.c
index 9dcd7b48a50cda3bb58a9797fab42cfd2a84e20e..da64cddaa5bf6fc53f364266056fe3395881f42c 100644
--- a/libgfortran/generated/maxloc0_16_i4.c
+++ b/libgfortran/generated/maxloc0_16_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_i8.c b/libgfortran/generated/maxloc0_16_i8.c
index d8a6261ea4457c626aae10c638d80b41fdcea838..07cb378d40dca191b1c25b72c24e04a376fc8841 100644
--- a/libgfortran/generated/maxloc0_16_i8.c
+++ b/libgfortran/generated/maxloc0_16_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_r10.c b/libgfortran/generated/maxloc0_16_r10.c
index 1f0dfb0383e9bbf7ae67f623008a78c0cb261b3b..e8ff7c4aae7da7133e3f258848e5503fc59cb9aa 100644
--- a/libgfortran/generated/maxloc0_16_r10.c
+++ b/libgfortran/generated/maxloc0_16_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_r16.c b/libgfortran/generated/maxloc0_16_r16.c
index d9e3780470cb8134f4306909608cc5662306f598..da6a3e9c2fd2be475be3823d3095f1e1ca633025 100644
--- a/libgfortran/generated/maxloc0_16_r16.c
+++ b/libgfortran/generated/maxloc0_16_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_r4.c b/libgfortran/generated/maxloc0_16_r4.c
index 6e0e92aa372cebbe7a4f6b2a505df7e083dc0992..6797bd9d52bf14177e5bedf8beb8d83fd711d1eb 100644
--- a/libgfortran/generated/maxloc0_16_r4.c
+++ b/libgfortran/generated/maxloc0_16_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_16_r8.c b/libgfortran/generated/maxloc0_16_r8.c
index 878e21e1e16f0718d6081afec2bfef5ae35f1fcc..f03019bd90bdc7aec5778b34a7b60f7c095de5dd 100644
--- a/libgfortran/generated/maxloc0_16_r8.c
+++ b/libgfortran/generated/maxloc0_16_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_i16.c b/libgfortran/generated/maxloc0_4_i16.c
index e41953010aa5b18fc00b95f3541df2516878b5a0..aa1c0c0d514011e4b056379e10234aa78a4eb66e 100644
--- a/libgfortran/generated/maxloc0_4_i16.c
+++ b/libgfortran/generated/maxloc0_4_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c
index d88212411cf18ac6b75b7fb52cdaa2a7cc96b5d6..e95e040538fac07ea9e82275e1e9f88003b244e4 100644
--- a/libgfortran/generated/maxloc0_4_i4.c
+++ b/libgfortran/generated/maxloc0_4_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c
index e709d8308f131e4fa3accd041792a0ea1b28d1e2..94c4997139a156177c139cc9584be6fa59ea217a 100644
--- a/libgfortran/generated/maxloc0_4_i8.c
+++ b/libgfortran/generated/maxloc0_4_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_r10.c b/libgfortran/generated/maxloc0_4_r10.c
index 63b4ab3b3456ccf64476eac7ac1f511108fa969f..4e9dead2e93032e83a63d1385a03b68804b0c894 100644
--- a/libgfortran/generated/maxloc0_4_r10.c
+++ b/libgfortran/generated/maxloc0_4_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_r16.c b/libgfortran/generated/maxloc0_4_r16.c
index 41cecafe38a4f9d9452c8c050dbcf138ca86b666..6059c8793f8a1ccf17513c6c281af8238029dc82 100644
--- a/libgfortran/generated/maxloc0_4_r16.c
+++ b/libgfortran/generated/maxloc0_4_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c
index 3eba4f2cc24dc0a2a4e68a5bf57b874b00f68b29..260c3d35e666793d3f6419e8476de86e46878c23 100644
--- a/libgfortran/generated/maxloc0_4_r4.c
+++ b/libgfortran/generated/maxloc0_4_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c
index 3a5f3f2d38a894bee608bf76327aa20fa3c25718..001b6bf2436f1e31fce7b68ae7dd740d58d88961 100644
--- a/libgfortran/generated/maxloc0_4_r8.c
+++ b/libgfortran/generated/maxloc0_4_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_i16.c b/libgfortran/generated/maxloc0_8_i16.c
index 52316ed08502ca30a71dd8309102fad84f33ad88..273ceb7c55823ac6dff6d409ac67e57195d79be1 100644
--- a/libgfortran/generated/maxloc0_8_i16.c
+++ b/libgfortran/generated/maxloc0_8_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c
index aa37b6d1f38bfc14a54c25cc3f9017b13030635e..4860ccc2253b426496ae35c7ee24ca31d3d09647 100644
--- a/libgfortran/generated/maxloc0_8_i4.c
+++ b/libgfortran/generated/maxloc0_8_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c
index 8c825c4a45aaaff06048c8f0f99890859c54490a..786bf70a295a8d219d827e4e125b821ff55fe39c 100644
--- a/libgfortran/generated/maxloc0_8_i8.c
+++ b/libgfortran/generated/maxloc0_8_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_r10.c b/libgfortran/generated/maxloc0_8_r10.c
index 6add1779ef1868c4ce042df68d20c07431d542ee..566757febc7d146fe805ff7f5f94b3536f9beea4 100644
--- a/libgfortran/generated/maxloc0_8_r10.c
+++ b/libgfortran/generated/maxloc0_8_r10.c
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array);
+extern void maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array);
export_proto(maxloc0_8_r10);
void
-maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
+maxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_INTEGER_8 *dest;
index_type rank;
index_type n;
@@ -154,12 +156,14 @@ maxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array)
}
-extern void mmaxloc0_8_r10 (gfc_array_i8 *, gfc_array_r10 *, gfc_array_l4 *);
+extern void mmaxloc0_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, gfc_array_l4 * const restrict);
export_proto(mmaxloc0_8_r10);
void
-mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
- gfc_array_l4 * mask)
+mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
@@ -167,7 +171,7 @@ mmaxloc0_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 *array,
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
GFC_INTEGER_8 *dest;
- GFC_REAL_10 *base;
+ const GFC_REAL_10 *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
diff --git a/libgfortran/generated/maxloc0_8_r16.c b/libgfortran/generated/maxloc0_8_r16.c
index 92f0884f7a5fe727dc3ce058efb85c702f9620dd..d5232a48248fb0b10119b551ad706d5cbc2fb2cf 100644
--- a/libgfortran/generated/maxloc0_8_r16.c
+++ b/libgfortran/generated/maxloc0_8_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c
index 07cebb377027415714c449b82f4c4c4d28654e25..1effd3a277f96e6ce86f33d5589b7e70e1b0c7fe 100644
--- a/libgfortran/generated/maxloc0_8_r4.c
+++ b/libgfortran/generated/maxloc0_8_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c
index 92f2805a5b2431d1f5d310a9802cfecf28f8fedf..18b7687d0c8c276e5ce038c33f2a3e9d336f91e0 100644
--- a/libgfortran/generated/maxloc0_8_r8.c
+++ b/libgfortran/generated/maxloc0_8_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index d9666bdbe1b6ea89a08663097001a807e3524707..430e6eedcf4b4011c1f2fe00f86f51cbf57648ad 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index 9df85ec107a67b44051d2c1a981391b8c772cfcd..458b72e7d721882c04bbc6ba64ec50d9d07aa4db 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_i8.c b/libgfortran/generated/maxloc1_16_i8.c
index 8d6e003f38365a635983ce1c4426b922d6e5a071..cda852e1327019b7c4d45a4591d1290d903d4b85 100644
--- a/libgfortran/generated/maxloc1_16_i8.c
+++ b/libgfortran/generated/maxloc1_16_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index 64b277005acab24f92f7b45d1435624068384f50..e368bd900e0d8a57382a19abaa9a60003928c260 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index f6718083f5cf3923d30093a77110382eca494e81..2d2ec0cfadd16b597cc6e6c006bc345d5a42925d 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index 902e97c994e928c3c70a1d87f53a7e9fbbc9d82e..c5dfba11d1a20c1214abcbc6db01552352560b1a 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index 3e28d6706e28b0dfc780b0dfa6e461177bc5186e..5e965b269030b6d431a90a086bb737d093f138d9 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_i16.c b/libgfortran/generated/maxloc1_4_i16.c
index 8ca2cf1195be633e301e962ec01cf4c32a5e8913..c801e0ec7a5a4598752b1d8beeb3fff872ff8854 100644
--- a/libgfortran/generated/maxloc1_4_i16.c
+++ b/libgfortran/generated/maxloc1_4_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index 06a657cca4e9644ae8f55a74f5e9c37e9c760339..cd6f93a12f5276185ae2f1a01f6bb21f5b9585e8 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c
index f03b36ca6a671148f09ee122a63c887fdb576bd3..6d0353b0a78d31956b5c12a6a8b865f3b87c185c 100644
--- a/libgfortran/generated/maxloc1_4_i8.c
+++ b/libgfortran/generated/maxloc1_4_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index 854b0b8042e5ced5cbf3c7cec890049021c27c13..e8364e2dcea3adc32cab7d355db3cf1f46a6da7a 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index fdabd1ae4f25cda7c66e30f7321e4594b052690f..5d7a5a15bd038702a6c31ebb077fc485eaa0adfc 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index 34510e7de1a1454dde7393cbffdde35b0c109c46..dd0de4b9ee0b461d86677d359c6ef20c7535122c 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index ea67079c6c0e3aeb6c3cfb45a925e878122ab1e7..fc0f9f534cfe66bcc3f5a75dee55b4e5770e4623 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_i16.c b/libgfortran/generated/maxloc1_8_i16.c
index f3ba50b32c3fe5b058f84a6127f01aae976fa60c..8feecfaaf7d603985d3eeec08d4e79754eb29feb 100644
--- a/libgfortran/generated/maxloc1_8_i16.c
+++ b/libgfortran/generated/maxloc1_8_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index 1c095ff7bb97c90d0c13cf07d2723c232593f5ef..0bc3cd8bc97972c9fa85d5bbf887c56405fea7b4 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c
index ee6d269f3070aa121dd7c62b6686943a0ccd61f3..dccffc0d8d008dc7a287ba6f2ccb854f10571a94 100644
--- a/libgfortran/generated/maxloc1_8_i8.c
+++ b/libgfortran/generated/maxloc1_8_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index 67c77330142a6b170439ad92f615ea2e668992e8..06c8cce98365cacafa5afed0d9e0b67933c31cfb 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index d0b607f25dc32b735b17984a89effb6f7f8951c2..057724ad80ed6ca84b489cf54f703b84a2da9594 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index a7dd5ca1c0e65ab728e9b95c3a21b235b362982d..4775da2319036266767893ba4030266c87106bda 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index 188a4105a5c0a897fc112186fc19580de45f284d..8035aa2196b8251fc696adec5d1b0d9e7abe8926 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -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;
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index cdcfe0207274feaa4c665c800a4585dbe59d34d3..9ae812ed7eae6300ad8232a349fe03f1511e5eb2 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -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;
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index 5f1ba4d65b1516e5f226eef7e2ce43dd5dacdfda..3ee7ce04edd831e24e20a3111c01dca904918dbf 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -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;
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index f1d16f3b389870efc57b28fba08e42e7ea475652..f2cf7fc908fd51073f29f4461e9b435e1c5ef703 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -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;
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index 07c7d7d462a4b066156df3ac06f1fcd24593955e..9efa92aac8d56b4c447e8801e858fab1cba40e45 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -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;
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index 0f8f246fb176d75131b645d75dfffe51d3333ffd..a4d27be7316853af787f73516d53ad3db8be3748 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -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;
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index 4d56bbf5b163f90f073ed2f31e6dcb42890f56cd..42f95a18adbabba5e6e935b0444f7e520c93d253 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -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;
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index d84e18ccd0cfeeead8ff29263040b5b4cf7938c4..f70442506dccfbf6e4ddceef8029d6515ca60083 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_i16.c b/libgfortran/generated/minloc0_16_i16.c
index af097faad01d325be74af66428d611ac0bdb8f1f..99d51efe94762514dc9a4cd9e807baddb829b967 100644
--- a/libgfortran/generated/minloc0_16_i16.c
+++ b/libgfortran/generated/minloc0_16_i16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_i4.c b/libgfortran/generated/minloc0_16_i4.c
index 156938158fe6b6864882c472a95111d20d6f59a9..27b2bebf021c2655327f3bae80dcc1683177f85b 100644
--- a/libgfortran/generated/minloc0_16_i4.c
+++ b/libgfortran/generated/minloc0_16_i4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_i8.c b/libgfortran/generated/minloc0_16_i8.c
index 57af8927c5b9c92c5424dd4ae552a66b53b5b438..eed2f9c7a10688559905daa01f78e981965190be 100644
--- a/libgfortran/generated/minloc0_16_i8.c
+++ b/libgfortran/generated/minloc0_16_i8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_r10.c b/libgfortran/generated/minloc0_16_r10.c
index 58ed79d5fef92055b3ca4521dabfa8c142f4fe4e..412676059b9806299d9e1ae5b5d0c43cd51c3c49 100644
--- a/libgfortran/generated/minloc0_16_r10.c
+++ b/libgfortran/generated/minloc0_16_r10.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_r16.c b/libgfortran/generated/minloc0_16_r16.c
index 90c8c311df779b086824a2e7257572eeb19f6bd3..aad0889e03984f786198bfb2735463e11f30cbfe 100644
--- a/libgfortran/generated/minloc0_16_r16.c
+++ b/libgfortran/generated/minloc0_16_r16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_r4.c b/libgfortran/generated/minloc0_16_r4.c
index 6fba3ddd12b6071017a915dcbe92460ede3646de..6a89b9be3611d1c7b97dd2c2e1c801694fa95c8a 100644
--- a/libgfortran/generated/minloc0_16_r4.c
+++ b/libgfortran/generated/minloc0_16_r4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_16_r8.c b/libgfortran/generated/minloc0_16_r8.c
index 37b9e178e1129a477f1ee851b49a9bfd96f1a01c..3eee3cf501a23ad997663bab3373999b5975efb3 100644
--- a/libgfortran/generated/minloc0_16_r8.c
+++ b/libgfortran/generated/minloc0_16_r8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_i16.c b/libgfortran/generated/minloc0_4_i16.c
index 068bbd5137c80abd863615b86a95cf7828895d41..dde98ec86e6a217e2d581a6d88f142eabdea1954 100644
--- a/libgfortran/generated/minloc0_4_i16.c
+++ b/libgfortran/generated/minloc0_4_i16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c
index e3b15ae895b804f04992dcf492493754bf278e27..eb12d04c4bac06ba727a0caadac189916e8802ff 100644
--- a/libgfortran/generated/minloc0_4_i4.c
+++ b/libgfortran/generated/minloc0_4_i4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c
index a0214913eb19450f9bc86e3d739ae68afd8534a6..715f932f5d21ed0ae9e79955bdaab8fd3473fe19 100644
--- a/libgfortran/generated/minloc0_4_i8.c
+++ b/libgfortran/generated/minloc0_4_i8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_r10.c b/libgfortran/generated/minloc0_4_r10.c
index 3f5ddd95d2e117a2e11c54e5e64a56e8acbb6d02..43118cee8f6565f6e0f85e840b0803351e0f2e77 100644
--- a/libgfortran/generated/minloc0_4_r10.c
+++ b/libgfortran/generated/minloc0_4_r10.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_r16.c b/libgfortran/generated/minloc0_4_r16.c
index 82c5f6a01b26bf4ccbd88e781d2d7f52195671ad..3751d0748e3aedc3e4b06163bcde97b7fa860f0e 100644
--- a/libgfortran/generated/minloc0_4_r16.c
+++ b/libgfortran/generated/minloc0_4_r16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c
index f8cce29a119f2b404a7b428586d1945b01cc4eb4..0c93800a8b81f934e09a5cf66915fc1ab63a7190 100644
--- a/libgfortran/generated/minloc0_4_r4.c
+++ b/libgfortran/generated/minloc0_4_r4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c
index dbfa667abad6749c1d00cdd9812a5dd94bf1f0e9..4226dfd67533fd5ede27ede98480d07420f21845 100644
--- a/libgfortran/generated/minloc0_4_r8.c
+++ b/libgfortran/generated/minloc0_4_r8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_i16.c b/libgfortran/generated/minloc0_8_i16.c
index 8fabf52e46e5958315a094be7247e16762960f65..71eaec4ad4d667bc3d60dfb61a0e006b3274e98d 100644
--- a/libgfortran/generated/minloc0_8_i16.c
+++ b/libgfortran/generated/minloc0_8_i16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c
index 49fe0f4b36e6e8d6307ae2ed51b8d3fc29e5db7b..c1871f25918df22495821159911c499b2461f235 100644
--- a/libgfortran/generated/minloc0_8_i4.c
+++ b/libgfortran/generated/minloc0_8_i4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c
index d4327f05546fa045126b93b6963bb4c571cf79be..b3fbaff52791edccf10e428bd4a88ffc57aab608 100644
--- a/libgfortran/generated/minloc0_8_i8.c
+++ b/libgfortran/generated/minloc0_8_i8.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_r10.c b/libgfortran/generated/minloc0_8_r10.c
index 2cd231b387a7036ae56f6043d4a4ff9ddc569613..9cdf5c611f7a9d0648c0ef5bce8f76fad1394323 100644
--- a/libgfortran/generated/minloc0_8_r10.c
+++ b/libgfortran/generated/minloc0_8_r10.c
@@ -39,17 +39,19 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void 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;
diff --git a/libgfortran/generated/minloc0_8_r16.c b/libgfortran/generated/minloc0_8_r16.c
index ff5925bd8eb58806ff71daf171f428973ebf9891..dc86f6f539fb47475cc793e430538a37b013594d 100644
--- a/libgfortran/generated/minloc0_8_r16.c
+++ b/libgfortran/generated/minloc0_8_r16.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c
index a522c75516252f847809c34f3f29cfe3cefc5540..985d60c2dd54278d8d7b2cea7e0fd71b70a9d70c 100644
--- a/libgfortran/generated/minloc0_8_r4.c
+++ b/libgfortran/generated/minloc0_8_r4.c
@@ -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;
diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c
index ba3cfe625ee36f7546526e028f854ab80902bfce..fe98a1e3d14858764ad722eb276b3e9d860c8e0e 100644
--- a/libgfortran/generated/minloc0_8_r8.c
+++ b/libgfortran/generated/minloc0_8_r8.c
@@ -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;
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index 906030c9b6dbc74f16b481f7ffa07ede8dfd5c33..5b69c5566b6bc4de0da1b021b83708d28102056c 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -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;
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index b7fe1a0843f7f535f7989ab9f839a60839964800..8d5918972a6fe819ef039a4ca3f603644ad72844 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -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;
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index 20c17f2a9cbd8880f9601ffdb03b5e878cc7ca4a..d3f699503161c2e399d92f0e1a9f9e359f1f7506 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -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;
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index 48519c2697e8074bce113d37453ff03a5f37d9e8..0e3d6053f8bf4515c90cb73a501e6c3de422d663 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -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;
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index 41fed8a3067a4bb496bdd9a1bdc61e3b1f1455fa..29dfe1de0b9c243c9091a1d234b6acca4bbbac97 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -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;
+ const GFC_REAL_16 * restrict base;
+ GFC_INTEGER_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -122,7 +125,7 @@ minloc1_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 @@ minloc1_16_r16 (gfc_array_i16 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void mminloc1_16_r16 (gfc_array_i16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r16);
void
-mminloc1_16_r16 (gfc_array_i16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index b3a4017a9f77b8baadf90fb07d0f7f1765f74cec..65ffe2cfbaf095ffabda4cd3b038258418ac4f94 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *);
+extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r4);
void
-minloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_16_r4 (gfc_array_i16 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void mminloc1_16_r4 (gfc_array_i16 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r4);
void
-mminloc1_16_r4 (gfc_array_i16 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index a9a0267aa5abe5e5e216ea0a589124a7278848de..379ca41166d1f930d568688d6abf347658174b38 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_16)
-extern void minloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *);
+extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_16_r8);
void
-minloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_16_r8 (gfc_array_i16 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void mminloc1_16_r8 (gfc_array_i16 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_16_r8);
void
-mminloc1_16_r8 (gfc_array_i16 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index 3446a1a585c16ed161c58d7cfcd12dfdd756cb07..13ac2d9768cc5a30a73231463ea127d3d84f8989 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *);
+extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i16);
void
-minloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_i16 (gfc_array_i4 *retarray, gfc_array_i16 *array, index_type *pdim)
}
-extern void mminloc1_4_i16 (gfc_array_i4 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i16);
void
-mminloc1_4_i16 (gfc_array_i4 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index f7207192b1c2396a714c0e9f4d32acf7d8c6e775..c9f5194bc3b940ac024db772a9fc0a204ce68299 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i4);
void
-minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
}
-extern void mminloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i4);
void
-mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index b049b19d755994599f60001c96e28de2f68cbd5b..57aee811d50a2eb4abd64e87c32dfd6f3afee330 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
+extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_i8);
void
-minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim)
}
-extern void mminloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_i8);
void
-mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index 983db754f5f637988d0007b90a4478ae8da3257e..d33be8450309c5e783daf0ad2c922ea5522d3046 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *);
+extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r10);
void
-minloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_r10 (gfc_array_i4 *retarray, gfc_array_r10 *array, index_type *pdim)
}
-extern void mminloc1_4_r10 (gfc_array_i4 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r10);
void
-mminloc1_4_r10 (gfc_array_i4 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index 68f142125c9136ece42acb9121eb0e4ef91f1409..fb602e20f3001019daa742006f8dd0008b008d2b 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *);
+extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r16);
void
-minloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_r16 (gfc_array_i4 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void mminloc1_4_r16 (gfc_array_i4 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r16);
void
-mminloc1_4_r16 (gfc_array_i4 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index e7191fd4de48564370ac7be102b9eb17a5ae1662..d8e7fbff0787fdb884402e77f293d168c7012fbf 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
+extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r4);
void
-minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void mminloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r4);
void
-mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index 9d4c981cdc78ba5e3f05595116312af06db49122..a0f018b15b362862cb5da6e15b72ed489fe145ff 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_4)
-extern void minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
+extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_4_r8);
void
-minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void mminloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_4_r8);
void
-mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index 13c2cb74a42aee8f259e638f8fb308646f38c562..9e90549a6cd6fa8dd79709dbe45016dd9b6ee7d5 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *);
+extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i16);
void
-minloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_i16 (gfc_array_i8 *retarray, gfc_array_i16 *array, index_type *pdim)
}
-extern void mminloc1_8_i16 (gfc_array_i8 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i16);
void
-mminloc1_8_i16 (gfc_array_i8 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index f682c10936c3dbe11fccb6f3c72075a338d73068..078ba6fcf8591a05427dc5c26c62ae5b85e8499f 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
+extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i4);
void
-minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim)
}
-extern void mminloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i4);
void
-mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index 9a2a5231b5a29cd2982a4cca48ec2d3a5ed0cf97..6de37f1753e0158e490db3a09f414980d554f876 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_i8);
void
-minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
}
-extern void mminloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_i8);
void
-mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index 2058453584adb2aa7ccb4fcb28fccd6e2b0eb9a5..cb6d4d43a1eaae60d82a06a7c5f951ec9359291c 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *);
+extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r10);
void
-minloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_r10 (gfc_array_i8 *retarray, gfc_array_r10 *array, index_type *pdim)
}
-extern void mminloc1_8_r10 (gfc_array_i8 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r10);
void
-mminloc1_8_r10 (gfc_array_i8 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index e417f620ba657a4fa8a46e917eabd743f00aad28..d0a0445d330ee44d24a35636fcb74aa543e670bb 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *);
+extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r16);
void
-minloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_r16 (gfc_array_i8 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void mminloc1_8_r16 (gfc_array_i8 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r16);
void
-mminloc1_8_r16 (gfc_array_i8 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index 8f154dce2756d63350fcadbcac34d4e1ab8b4cca..ec8e6129d760a577c6d7c41a9ad360f35a39d53f 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
+extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r4);
void
-minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r4);
void
-mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index 20a757a9217f4962f97d20ff79f1bb027d90a8e0..ef2dd2b4af295a4cb6f215a864aeeddfcb8e69ea 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -39,18 +39,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
+extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minloc1_8_r8);
void
-minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
+minloc1_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 @@ minloc1_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 @@ minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void mminloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminloc1_8_r8);
void
-mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminloc1_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 @@ mminloc1_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;
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index 34963ae9725b7fb96933d911929f7a8c0eb8b8df..5b34eafaaf70bc87eac024cb02437c6b1065db59 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void minval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(minval_i16);
void
-minval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
}
-extern void mminval_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i16);
void
-mminval_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index 826d2e902e26485b85bf56deea178455096d680f..bcdb55f31206acc8dd06d0e12c0d602881919ec0 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void minval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(minval_i4);
void
-minval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
}
-extern void mminval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i4);
void
-mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index e58a97ba90d35575758165d811498ba951125913..eb37d4824b93472e9b2c4f8566c43d6bea181260 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void minval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(minval_i8);
void
-minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
}
-extern void mminval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_i8);
void
-mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index ec494fba168272c8441f9b6858d4f9a6cf786b84..a52e5a1b35addd7b84f93b54101ec58229d574a9 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void minval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void minval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(minval_r10);
void
-minval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
}
-extern void mminval_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r10);
void
-mminval_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index d71b00756de39e9ba593393c7caf6c3b16aff1c7..61ecd81746f89bd5920b62e3fccff93f72de031b 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void minval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void minval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(minval_r16);
void
-minval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void mminval_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r16);
void
-mminval_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index 8228f991fcb7d71edb8ba38b195826282666900b..4eafed2eda13f6cace0bb5d44f32449de3f9506e 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void minval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(minval_r4);
void
-minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void mminval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r4);
void
-mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index 81a8b2127e81100d60c00a50bfc715aeb3b159de..6b83f9b05d3f852ad7e29be92b8e979ebdd1c8e3 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -38,18 +38,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void minval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(minval_r8);
void
-minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+minval_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 @@ minval_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 @@ minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mminval_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mminval_r8);
void
-mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mminval_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 @@ mminval_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;
diff --git a/libgfortran/generated/product_c10.c b/libgfortran/generated/product_c10.c
index 0313c712626d0b08be4f589a105745c6d3d2918b..bc1e9f0aef266907a0aa49c793032bd08720684a 100644
--- a/libgfortran/generated/product_c10.c
+++ b/libgfortran/generated/product_c10.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_10) && defined (HAVE_GFC_COMPLEX_10)
-extern void product_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *);
+extern void product_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict);
export_proto(product_c10);
void
-product_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
+product_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * 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_COMPLEX_10 *base;
- GFC_COMPLEX_10 *dest;
+ const GFC_COMPLEX_10 * restrict base;
+ GFC_COMPLEX_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ product_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_10 *src;
+ const GFC_COMPLEX_10 * restrict src;
GFC_COMPLEX_10 result;
src = base;
{
@@ -170,22 +173,25 @@ product_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
}
-extern void mproduct_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c10);
void
-mproduct_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * 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_COMPLEX_10 *dest;
- GFC_COMPLEX_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_10 * restrict dest;
+ const GFC_COMPLEX_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ mproduct_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
while (base)
{
- GFC_COMPLEX_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_10 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/product_c16.c b/libgfortran/generated/product_c16.c
index 866ed451134ce8651e9b1d29d88bf1bbf283ae4b..c5ac52fb8346698c7ad2769bae6b7804e57991e3 100644
--- a/libgfortran/generated/product_c16.c
+++ b/libgfortran/generated/product_c16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_16) && defined (HAVE_GFC_COMPLEX_16)
-extern void product_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *);
+extern void product_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict);
export_proto(product_c16);
void
-product_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
+product_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * 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_COMPLEX_16 *base;
- GFC_COMPLEX_16 *dest;
+ const GFC_COMPLEX_16 * restrict base;
+ GFC_COMPLEX_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ product_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_16 *src;
+ const GFC_COMPLEX_16 * restrict src;
GFC_COMPLEX_16 result;
src = base;
{
@@ -170,22 +173,25 @@ product_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
}
-extern void mproduct_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c16);
void
-mproduct_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * 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_COMPLEX_16 *dest;
- GFC_COMPLEX_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_16 * restrict dest;
+ const GFC_COMPLEX_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ mproduct_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
while (base)
{
- GFC_COMPLEX_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_16 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c
index 42fb1ed2c6c2e7ddfeeeea8647d51a6861b15cfd..c8e932bdde235274d9f911ff151d0e1fdd04a88d 100644
--- a/libgfortran/generated/product_c4.c
+++ b/libgfortran/generated/product_c4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_4) && defined (HAVE_GFC_COMPLEX_4)
-extern void product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
+extern void product_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict);
export_proto(product_c4);
void
-product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
+product_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * 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_COMPLEX_4 *base;
- GFC_COMPLEX_4 *dest;
+ const GFC_COMPLEX_4 * restrict base;
+ GFC_COMPLEX_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_4 *src;
+ const GFC_COMPLEX_4 * restrict src;
GFC_COMPLEX_4 result;
src = base;
{
@@ -170,22 +173,25 @@ product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
}
-extern void mproduct_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c4);
void
-mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * 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_COMPLEX_4 *dest;
- GFC_COMPLEX_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_4 * restrict dest;
+ const GFC_COMPLEX_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
while (base)
{
- GFC_COMPLEX_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_4 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c
index c554c513fb97c93e508288a4e81c6d96989e4f96..56485797edb7519a645c9fe3f43f91f3b9221448 100644
--- a/libgfortran/generated/product_c8.c
+++ b/libgfortran/generated/product_c8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_8) && defined (HAVE_GFC_COMPLEX_8)
-extern void product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
+extern void product_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict);
export_proto(product_c8);
void
-product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
+product_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * 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_COMPLEX_8 *base;
- GFC_COMPLEX_8 *dest;
+ const GFC_COMPLEX_8 * restrict base;
+ GFC_COMPLEX_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_8 *src;
+ const GFC_COMPLEX_8 * restrict src;
GFC_COMPLEX_8 result;
src = base;
{
@@ -170,22 +173,25 @@ product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
}
-extern void mproduct_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_c8);
void
-mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * 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_COMPLEX_8 *dest;
- GFC_COMPLEX_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_8 * restrict dest;
+ const GFC_COMPLEX_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
while (base)
{
- GFC_COMPLEX_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_8 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 3c2aa9e4fba70ea589cf99a5ebc6aad05a4ab3d5..2b2f314f5cc749bd80cdf8768d5d2a062fa56118 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void product_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void product_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(product_i16);
void
-product_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
}
-extern void mproduct_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i16);
void
-mproduct_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c
index 3620d8da20379f7aac054d8d8168982727cc0093..19a7858e4143dcb7cea156ec3ff65bca5d82f7bc 100644
--- a/libgfortran/generated/product_i4.c
+++ b/libgfortran/generated/product_i4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void product_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(product_i4);
void
-product_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
}
-extern void mproduct_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i4);
void
-mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c
index 65b0bb0fc42d084581e2f68e0b1152daafcd103e..22b513530de635edc1f924cf5db99ab3e6044699 100644
--- a/libgfortran/generated/product_i8.c
+++ b/libgfortran/generated/product_i8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void product_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(product_i8);
void
-product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
}
-extern void mproduct_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_i8);
void
-mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c
index 292bbaa972665ec899914e4b23b8eb05ab2e2695..9777df66a29ca19783129c2a53b03132d8605062 100644
--- a/libgfortran/generated/product_r10.c
+++ b/libgfortran/generated/product_r10.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void product_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void product_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(product_r10);
void
-product_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
}
-extern void mproduct_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r10);
void
-mproduct_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_r16.c b/libgfortran/generated/product_r16.c
index f0a2c9818bbc20c28e51ace6ac29954894bb69ea..e9d84eab314e61bb5de8914d86063738a191fbe9 100644
--- a/libgfortran/generated/product_r16.c
+++ b/libgfortran/generated/product_r16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void product_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void product_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(product_r16);
void
-product_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void mproduct_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r16);
void
-mproduct_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c
index 6ca9ff84cf202125b1740fec9e81df62cb681c84..8b421d36539b547651cf96124a1754e8e603c8ba 100644
--- a/libgfortran/generated/product_r4.c
+++ b/libgfortran/generated/product_r4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void product_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(product_r4);
void
-product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void mproduct_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r4);
void
-mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c
index d73ccc7b0e0da86c34f197e7a95ab9be5838960f..57094cf6f0ac28069b275c4d21decd6852ba8fb4 100644
--- a/libgfortran/generated/product_r8.c
+++ b/libgfortran/generated/product_r8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void product_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(product_r8);
void
-product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+product_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;
@@ -120,7 +123,7 @@ product_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;
{
@@ -170,22 +173,25 @@ product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void mproduct_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void mproduct_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(mproduct_r8);
void
-mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+mproduct_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;
@@ -276,8 +282,8 @@ mproduct_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;
diff --git a/libgfortran/generated/reshape_c10.c b/libgfortran/generated/reshape_c10.c
index 30988e87eff573b83b733d2a2598ed405c863dc6..21789f87fc68d34ebbd57f1279cd5c1533f0f13c 100644
--- a/libgfortran/generated/reshape_c10.c
+++ b/libgfortran/generated/reshape_c10.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c10 (gfc_array_c10 *, gfc_array_c10 *, shape_type *,
- gfc_array_c10 *, shape_type *);
+extern void reshape_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c10 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c10);
void
-reshape_c10 (gfc_array_c10 * ret, gfc_array_c10 * source, shape_type * shape,
- gfc_array_c10 * pad, shape_type * order)
+reshape_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c10 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_c16.c b/libgfortran/generated/reshape_c16.c
index 1c238de22ebfa98bdc84f3a7aad362dab430b78d..f3c4a901141b3982052eb61bf86a948ea6668771 100644
--- a/libgfortran/generated/reshape_c16.c
+++ b/libgfortran/generated/reshape_c16.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c16 (gfc_array_c16 *, gfc_array_c16 *, shape_type *,
- gfc_array_c16 *, shape_type *);
+extern void reshape_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c16 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c16);
void
-reshape_c16 (gfc_array_c16 * ret, gfc_array_c16 * source, shape_type * shape,
- gfc_array_c16 * pad, shape_type * order)
+reshape_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c16 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_c4.c b/libgfortran/generated/reshape_c4.c
index 4416b9060bc38de63485f52623b4e207039f6723..384f36f2a5d015b91db95be3482340a43edb0581 100644
--- a/libgfortran/generated/reshape_c4.c
+++ b/libgfortran/generated/reshape_c4.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c4 (gfc_array_c4 *, gfc_array_c4 *, shape_type *,
- gfc_array_c4 *, shape_type *);
+extern void reshape_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c4 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c4);
void
-reshape_c4 (gfc_array_c4 * ret, gfc_array_c4 * source, shape_type * shape,
- gfc_array_c4 * pad, shape_type * order)
+reshape_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c4 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_c8.c b/libgfortran/generated/reshape_c8.c
index 425c6ebac0c281fbd4c52b8d5d3a1a7460e32747..e2c7c399b431cb1b5e19c8a5b5f5b9b0b809c43e 100644
--- a/libgfortran/generated/reshape_c8.c
+++ b/libgfortran/generated/reshape_c8.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_c8 (gfc_array_c8 *, gfc_array_c8 *, shape_type *,
- gfc_array_c8 *, shape_type *);
+extern void reshape_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict,
+ shape_type * const restrict,
+ gfc_array_c8 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_c8);
void
-reshape_c8 (gfc_array_c8 * ret, gfc_array_c8 * source, shape_type * shape,
- gfc_array_c8 * pad, shape_type * order)
+reshape_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_c8 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_i16.c b/libgfortran/generated/reshape_i16.c
index 2d793e2929dc5f04e33886c6f4bb0bb3a76a705a..a8fece516fdcf1bd5ce9db43da7c196b657577f8 100644
--- a/libgfortran/generated/reshape_i16.c
+++ b/libgfortran/generated/reshape_i16.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_16 (gfc_array_i16 *, gfc_array_i16 *, shape_type *,
- gfc_array_i16 *, shape_type *);
+extern void reshape_16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i16 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_16);
void
-reshape_16 (gfc_array_i16 * ret, gfc_array_i16 * source, shape_type * shape,
- gfc_array_i16 * pad, shape_type * order)
+reshape_16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i16 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c
index 565d79c6222d92980021c73612924655e80016b4..2c8ee4b93a8a148d5708491a03e494c3ad7d07e1 100644
--- a/libgfortran/generated/reshape_i4.c
+++ b/libgfortran/generated/reshape_i4.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_4 (gfc_array_i4 *, gfc_array_i4 *, shape_type *,
- gfc_array_i4 *, shape_type *);
+extern void reshape_4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i4 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_4);
void
-reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape,
- gfc_array_i4 * pad, shape_type * order)
+reshape_4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i4 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c
index 465d532ed8aa1e07eddd58d12196e07db4d998b5..6ffb681700bb71136faa8f5adb315388f8c7a0e5 100644
--- a/libgfortran/generated/reshape_i8.c
+++ b/libgfortran/generated/reshape_i8.c
@@ -40,13 +40,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
/* The shape parameter is ignored. We can currently deduce the shape from the
return array. */
-extern void reshape_8 (gfc_array_i8 *, gfc_array_i8 *, shape_type *,
- gfc_array_i8 *, shape_type *);
+extern void reshape_8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict,
+ shape_type * const restrict,
+ gfc_array_i8 * const restrict,
+ shape_type * const restrict);
export_proto(reshape_8);
void
-reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape,
- gfc_array_i8 * pad, shape_type * order)
+reshape_8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source,
+ shape_type * const restrict shape,
+ gfc_array_i8 * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/shape_i16.c b/libgfortran/generated/shape_i16.c
index 87a58ffe5a6ed87d6872464cd0a6714596b11362..30209d5de9ad68eac7f69a0754cdf764b043167a 100644
--- a/libgfortran/generated/shape_i16.c
+++ b/libgfortran/generated/shape_i16.c
@@ -35,11 +35,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16)
-extern void shape_16 (gfc_array_i16 * ret, const gfc_array_i16 * array);
+extern void shape_16 (gfc_array_i16 * const restrict ret,
+ const gfc_array_i16 * const restrict array);
export_proto(shape_16);
void
-shape_16 (gfc_array_i16 * ret, const gfc_array_i16 * array)
+shape_16 (gfc_array_i16 * const restrict ret,
+ const gfc_array_i16 * const restrict array)
{
int n;
index_type stride;
diff --git a/libgfortran/generated/shape_i4.c b/libgfortran/generated/shape_i4.c
index 7a56eee5b5f8fee747ffc4ac51bccd62ea875141..d4b323a3cb6782bb58909ffbc338680fadcaeb81 100644
--- a/libgfortran/generated/shape_i4.c
+++ b/libgfortran/generated/shape_i4.c
@@ -35,11 +35,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4)
-extern void shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array);
+extern void shape_4 (gfc_array_i4 * const restrict ret,
+ const gfc_array_i4 * const restrict array);
export_proto(shape_4);
void
-shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array)
+shape_4 (gfc_array_i4 * const restrict ret,
+ const gfc_array_i4 * const restrict array)
{
int n;
index_type stride;
diff --git a/libgfortran/generated/shape_i8.c b/libgfortran/generated/shape_i8.c
index 2e696c27b182835beb5b1cfe6d67156fb3163302..acf925fd8b9959bf5f70d9e24746d256e92461a7 100644
--- a/libgfortran/generated/shape_i8.c
+++ b/libgfortran/generated/shape_i8.c
@@ -35,11 +35,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8)
-extern void shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array);
+extern void shape_8 (gfc_array_i8 * const restrict ret,
+ const gfc_array_i8 * const restrict array);
export_proto(shape_8);
void
-shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array)
+shape_8 (gfc_array_i8 * const restrict ret,
+ const gfc_array_i8 * const restrict array)
{
int n;
index_type stride;
diff --git a/libgfortran/generated/sum_c10.c b/libgfortran/generated/sum_c10.c
index 655529a7fe9e176c5e427aea9bff951fd3e6f84f..393f04ece4c5e8341679dfcccdb6a5e2cc8e7648 100644
--- a/libgfortran/generated/sum_c10.c
+++ b/libgfortran/generated/sum_c10.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_10) && defined (HAVE_GFC_COMPLEX_10)
-extern void sum_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *);
+extern void sum_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict);
export_proto(sum_c10);
void
-sum_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
+sum_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * 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_COMPLEX_10 *base;
- GFC_COMPLEX_10 *dest;
+ const GFC_COMPLEX_10 * restrict base;
+ GFC_COMPLEX_10 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ sum_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_10 *src;
+ const GFC_COMPLEX_10 * restrict src;
GFC_COMPLEX_10 result;
src = base;
{
@@ -170,22 +173,25 @@ sum_c10 (gfc_array_c10 *retarray, gfc_array_c10 *array, index_type *pdim)
}
-extern void msum_c10 (gfc_array_c10 *, gfc_array_c10 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c10 (gfc_array_c10 * const restrict,
+ gfc_array_c10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c10);
void
-msum_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c10 (gfc_array_c10 * const restrict retarray,
+ gfc_array_c10 * 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_COMPLEX_10 *dest;
- GFC_COMPLEX_10 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_10 * restrict dest;
+ const GFC_COMPLEX_10 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ msum_c10 (gfc_array_c10 * retarray, gfc_array_c10 * array,
while (base)
{
- GFC_COMPLEX_10 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_10 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_10 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/sum_c16.c b/libgfortran/generated/sum_c16.c
index ee40ba5149cca256f51fdb6db32773068d6f396a..9e5c8edb138b3dad9ac2424f71664f1c7ba539a4 100644
--- a/libgfortran/generated/sum_c16.c
+++ b/libgfortran/generated/sum_c16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_16) && defined (HAVE_GFC_COMPLEX_16)
-extern void sum_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *);
+extern void sum_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict);
export_proto(sum_c16);
void
-sum_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
+sum_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * 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_COMPLEX_16 *base;
- GFC_COMPLEX_16 *dest;
+ const GFC_COMPLEX_16 * restrict base;
+ GFC_COMPLEX_16 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ sum_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_16 *src;
+ const GFC_COMPLEX_16 * restrict src;
GFC_COMPLEX_16 result;
src = base;
{
@@ -170,22 +173,25 @@ sum_c16 (gfc_array_c16 *retarray, gfc_array_c16 *array, index_type *pdim)
}
-extern void msum_c16 (gfc_array_c16 *, gfc_array_c16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c16 (gfc_array_c16 * const restrict,
+ gfc_array_c16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c16);
void
-msum_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c16 (gfc_array_c16 * const restrict retarray,
+ gfc_array_c16 * 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_COMPLEX_16 *dest;
- GFC_COMPLEX_16 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_16 * restrict dest;
+ const GFC_COMPLEX_16 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ msum_c16 (gfc_array_c16 * retarray, gfc_array_c16 * array,
while (base)
{
- GFC_COMPLEX_16 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_16 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_16 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c
index bb08a4b558d001bbdb4b323476497bef3acd2e06..72d28f8afa0bae9ab762d58cd38a22b95dd2555e 100644
--- a/libgfortran/generated/sum_c4.c
+++ b/libgfortran/generated/sum_c4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_4) && defined (HAVE_GFC_COMPLEX_4)
-extern void sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
+extern void sum_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict);
export_proto(sum_c4);
void
-sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
+sum_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * 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_COMPLEX_4 *base;
- GFC_COMPLEX_4 *dest;
+ const GFC_COMPLEX_4 * restrict base;
+ GFC_COMPLEX_4 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_4 *src;
+ const GFC_COMPLEX_4 * restrict src;
GFC_COMPLEX_4 result;
src = base;
{
@@ -170,22 +173,25 @@ sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim)
}
-extern void msum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c4 (gfc_array_c4 * const restrict,
+ gfc_array_c4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c4);
void
-msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c4 (gfc_array_c4 * const restrict retarray,
+ gfc_array_c4 * 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_COMPLEX_4 *dest;
- GFC_COMPLEX_4 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_4 * restrict dest;
+ const GFC_COMPLEX_4 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array,
while (base)
{
- GFC_COMPLEX_4 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_4 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_4 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c
index fd8e3560aa34914fa129d3438840ae6997ff993f..485b46d75fb6e2c8a5bd2982c126cbe461e9fbff 100644
--- a/libgfortran/generated/sum_c8.c
+++ b/libgfortran/generated/sum_c8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_8) && defined (HAVE_GFC_COMPLEX_8)
-extern void sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
+extern void sum_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict);
export_proto(sum_c8);
void
-sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
+sum_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * 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_COMPLEX_8 *base;
- GFC_COMPLEX_8 *dest;
+ const GFC_COMPLEX_8 * restrict base;
+ GFC_COMPLEX_8 * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -120,7 +123,7 @@ sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
while (base)
{
- GFC_COMPLEX_8 *src;
+ const GFC_COMPLEX_8 * restrict src;
GFC_COMPLEX_8 result;
src = base;
{
@@ -170,22 +173,25 @@ sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim)
}
-extern void msum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_c8 (gfc_array_c8 * const restrict,
+ gfc_array_c8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_c8);
void
-msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_c8 (gfc_array_c8 * const restrict retarray,
+ gfc_array_c8 * 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_COMPLEX_8 *dest;
- GFC_COMPLEX_8 *base;
- GFC_LOGICAL_4 *mbase;
+ GFC_COMPLEX_8 * restrict dest;
+ const GFC_COMPLEX_8 * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -276,8 +282,8 @@ msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array,
while (base)
{
- GFC_COMPLEX_8 *src;
- GFC_LOGICAL_4 *msrc;
+ const GFC_COMPLEX_8 * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
GFC_COMPLEX_8 result;
src = base;
msrc = mbase;
diff --git a/libgfortran/generated/sum_i16.c b/libgfortran/generated/sum_i16.c
index b1ba2353fb936fa068812b76ce53d516be202ac2..00446895d0a91a2276255fbf9a0d3815f0d40ca3 100644
--- a/libgfortran/generated/sum_i16.c
+++ b/libgfortran/generated/sum_i16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void sum_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *);
+extern void sum_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(sum_i16);
void
-sum_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_i16 (gfc_array_i16 *retarray, gfc_array_i16 *array, index_type *pdim)
}
-extern void msum_i16 (gfc_array_i16 *, gfc_array_i16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i16 (gfc_array_i16 * const restrict,
+ gfc_array_i16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i16);
void
-msum_i16 (gfc_array_i16 * retarray, gfc_array_i16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c
index 1efb59e134e77239ee7a7f9709b56d1e1c3e2041..f00c4ea3f157fbbf5fb613fb42a4132c8669d092 100644
--- a/libgfortran/generated/sum_i4.c
+++ b/libgfortran/generated/sum_i4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
+extern void sum_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(sum_i4);
void
-sum_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim)
}
-extern void msum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i4 (gfc_array_i4 * const restrict,
+ gfc_array_i4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i4);
void
-msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c
index a7c3d2f6b83b0a40a3c8d6e7a8397e3e06f9ea81..78505da9865889f5583959a0facc0e10fb0db25f 100644
--- a/libgfortran/generated/sum_i8.c
+++ b/libgfortran/generated/sum_i8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
+extern void sum_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(sum_i8);
void
-sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim)
}
-extern void msum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_i8 (gfc_array_i8 * const restrict,
+ gfc_array_i8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_i8);
void
-msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_r10.c b/libgfortran/generated/sum_r10.c
index e0231ca645b0843506203720db85c111a6634fcb..49071021f0db4a07aedd89116aad55293adb1414 100644
--- a/libgfortran/generated/sum_r10.c
+++ b/libgfortran/generated/sum_r10.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void sum_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *);
+extern void sum_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(sum_r10);
void
-sum_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_r10 (gfc_array_r10 *retarray, gfc_array_r10 *array, index_type *pdim)
}
-extern void msum_r10 (gfc_array_r10 *, gfc_array_r10 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r10 (gfc_array_r10 * const restrict,
+ gfc_array_r10 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r10);
void
-msum_r10 (gfc_array_r10 * retarray, gfc_array_r10 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_r16.c b/libgfortran/generated/sum_r16.c
index 4168f8c0669d1ca834b2dd07e5c75e363220fb85..eddd45b864690e6d88e09dfb1c789a176847ed77 100644
--- a/libgfortran/generated/sum_r16.c
+++ b/libgfortran/generated/sum_r16.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void sum_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *);
+extern void sum_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(sum_r16);
void
-sum_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_r16 (gfc_array_r16 *retarray, gfc_array_r16 *array, index_type *pdim)
}
-extern void msum_r16 (gfc_array_r16 *, gfc_array_r16 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r16 (gfc_array_r16 * const restrict,
+ gfc_array_r16 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r16);
void
-msum_r16 (gfc_array_r16 * retarray, gfc_array_r16 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c
index bf76631811abbdbd6cc8c179b2da5698213633e2..97bf717ba5abb30b1ff80ef61e88576ad6a9021e 100644
--- a/libgfortran/generated/sum_r4.c
+++ b/libgfortran/generated/sum_r4.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
+extern void sum_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(sum_r4);
void
-sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim)
}
-extern void msum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r4 (gfc_array_r4 * const restrict,
+ gfc_array_r4 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r4);
void
-msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c
index c6d0546b2c3a64173311384b22e35280ccf7f6d3..0f3b49c278bc7089b117cb66ee5ef14a7c4e1c5a 100644
--- a/libgfortran/generated/sum_r8.c
+++ b/libgfortran/generated/sum_r8.c
@@ -37,18 +37,21 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
+extern void sum_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(sum_r8);
void
-sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
+sum_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;
@@ -120,7 +123,7 @@ sum_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;
{
@@ -170,22 +173,25 @@ sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim)
}
-extern void msum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
- gfc_array_l4 *);
+extern void msum_r8 (gfc_array_r8 * const restrict,
+ gfc_array_r8 * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(msum_r8);
void
-msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array,
- index_type *pdim, gfc_array_l4 * mask)
+msum_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;
@@ -276,8 +282,8 @@ msum_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;
diff --git a/libgfortran/generated/transpose_c10.c b/libgfortran/generated/transpose_c10.c
index cb2f992e6f86589fd31eaf9d0196d944b11b0934..9400c82fc1876baa367a7da4506289d2bc2a3a61 100644
--- a/libgfortran/generated/transpose_c10.c
+++ b/libgfortran/generated/transpose_c10.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_10)
-extern void transpose_c10 (gfc_array_c10 * ret, gfc_array_c10 * source);
+extern void transpose_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source);
export_proto(transpose_c10);
void
-transpose_c10 (gfc_array_c10 * ret, gfc_array_c10 * source)
+transpose_c10 (gfc_array_c10 * const restrict ret,
+ gfc_array_c10 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_c16.c b/libgfortran/generated/transpose_c16.c
index 4c39c58ba3099e63ff162f339930b34afade6132..a572be3859d0a6f9fcdf9086dd217e78420f7747 100644
--- a/libgfortran/generated/transpose_c16.c
+++ b/libgfortran/generated/transpose_c16.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_16)
-extern void transpose_c16 (gfc_array_c16 * ret, gfc_array_c16 * source);
+extern void transpose_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source);
export_proto(transpose_c16);
void
-transpose_c16 (gfc_array_c16 * ret, gfc_array_c16 * source)
+transpose_c16 (gfc_array_c16 * const restrict ret,
+ gfc_array_c16 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_c4.c b/libgfortran/generated/transpose_c4.c
index a8e22c9f65977fb83ed89e3ce1ef044988395631..3dc14756dbbdb1c4b6f19581666c2a8e839d98c2 100644
--- a/libgfortran/generated/transpose_c4.c
+++ b/libgfortran/generated/transpose_c4.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_4)
-extern void transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source);
+extern void transpose_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source);
export_proto(transpose_c4);
void
-transpose_c4 (gfc_array_c4 * ret, gfc_array_c4 * source)
+transpose_c4 (gfc_array_c4 * const restrict ret,
+ gfc_array_c4 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_c8.c b/libgfortran/generated/transpose_c8.c
index a61ecc4d2c2b97996d59ca9134feef5b0b3244d5..c127d947f56201df97bf3de032b5b21b21eac3b1 100644
--- a/libgfortran/generated/transpose_c8.c
+++ b/libgfortran/generated/transpose_c8.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_COMPLEX_8)
-extern void transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source);
+extern void transpose_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source);
export_proto(transpose_c8);
void
-transpose_c8 (gfc_array_c8 * ret, gfc_array_c8 * source)
+transpose_c8 (gfc_array_c8 * const restrict ret,
+ gfc_array_c8 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_i16.c b/libgfortran/generated/transpose_i16.c
index fcebdf3c9d88d60c5e413e4043674db8f1f04920..d780fb12c4f23329fef3258535f43c277ff5957a 100644
--- a/libgfortran/generated/transpose_i16.c
+++ b/libgfortran/generated/transpose_i16.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_16)
-extern void transpose_i16 (gfc_array_i16 * ret, gfc_array_i16 * source);
+extern void transpose_i16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source);
export_proto(transpose_i16);
void
-transpose_i16 (gfc_array_i16 * ret, gfc_array_i16 * source)
+transpose_i16 (gfc_array_i16 * const restrict ret,
+ gfc_array_i16 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c
index b3979a87d4c48eb612d1d370478d713f793284ab..cf2bfc7ee87b7ad07612ea1a2bb3cef2b870c691 100644
--- a/libgfortran/generated/transpose_i4.c
+++ b/libgfortran/generated/transpose_i4.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_4)
-extern void transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source);
+extern void transpose_i4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source);
export_proto(transpose_i4);
void
-transpose_i4 (gfc_array_i4 * ret, gfc_array_i4 * source)
+transpose_i4 (gfc_array_i4 * const restrict ret,
+ gfc_array_i4 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c
index e195d592841258d8dbf2b3e81da32665d2a06c2b..4fd16648729ab771697e826e705b0a69c00f9694 100644
--- a/libgfortran/generated/transpose_i8.c
+++ b/libgfortran/generated/transpose_i8.c
@@ -34,11 +34,13 @@ Boston, MA 02110-1301, USA. */
#if defined (HAVE_GFC_INTEGER_8)
-extern void transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source);
+extern void transpose_i8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source);
export_proto(transpose_i8);
void
-transpose_i8 (gfc_array_i8 * ret, gfc_array_i8 * source)
+transpose_i8 (gfc_array_i8 * const restrict ret,
+ gfc_array_i8 * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;
diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4
index 28494d8f8b98e637348b493dc87ebf80f153a73e..964689fa12d1d4313874353db48653a66b922156 100644
--- a/libgfortran/m4/cshift1.m4
+++ b/libgfortran/m4/cshift1.m4
@@ -38,8 +38,11 @@ include(iparm.m4)dnl
`#if defined (HAVE_'atype_name`)'
static void
-cshift1 (gfc_array_char * ret, const gfc_array_char * array,
- const atype * h, const atype_name * pwhich, index_type size)
+cshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ index_type size)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
@@ -195,30 +198,36 @@ cshift1 (gfc_array_char * ret, const gfc_array_char * array,
}
}
-void cshift1_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const atype_name *);
+void cshift1_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const atype_name * const restrict);
export_proto(cshift1_`'atype_kind);
void
-cshift1_`'atype_kind (gfc_array_char * ret,
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich)
+cshift1_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich)
{
cshift1 (ret, array, h, pwhich, GFC_DESCRIPTOR_SIZE (array));
}
-void cshift1_`'atype_kind`'_char (gfc_array_char * ret, GFC_INTEGER_4,
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich,
- GFC_INTEGER_4);
+void cshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4);
export_proto(cshift1_`'atype_kind`'_char);
void
-cshift1_`'atype_kind`'_char (gfc_array_char * ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char * array,
- const atype * h, const atype_name * pwhich,
- GFC_INTEGER_4 array_length)
+cshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length)
{
cshift1 (ret, array, h, pwhich, array_length);
}
diff --git a/libgfortran/m4/dotprod.m4 b/libgfortran/m4/dotprod.m4
index af41fcc8e856b13bfabc458b925b1da491e146ee..f46796e7e4951686298c8c554ba50e085ba07597 100644
--- a/libgfortran/m4/dotprod.m4
+++ b/libgfortran/m4/dotprod.m4
@@ -38,15 +38,16 @@ include(iparm.m4)dnl
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b);
+extern rtype_name dot_product_`'rtype_code (rtype * const restrict a,
+ rtype * const restrict b);
export_proto(dot_product_`'rtype_code);
/* Both parameters will already have been converted to the result type. */
rtype_name
-dot_product_`'rtype_code (rtype * a, rtype * b)
+dot_product_`'rtype_code (rtype * const restrict a, rtype * const restrict b)
{
- rtype_name *pa;
- rtype_name *pb;
+ const rtype_name * restrict pa;
+ const rtype_name * restrict pb;
rtype_name res;
index_type count;
index_type astride;
diff --git a/libgfortran/m4/dotprodc.m4 b/libgfortran/m4/dotprodc.m4
index 36740b077ce6d9112099bcf0c65c5e2925a2ba1c..2b8c45f15c589a790c31920eb58e6d8c5cd7ded3 100644
--- a/libgfortran/m4/dotprodc.m4
+++ b/libgfortran/m4/dotprodc.m4
@@ -39,15 +39,16 @@ include(iparm.m4)dnl
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array;
-extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b);
+extern rtype_name dot_product_`'rtype_code (rtype * const restrict a,
+ rtype * const restrict b);
export_proto(dot_product_`'rtype_code);
/* Both parameters will already have been converted to the result type. */
rtype_name
-dot_product_`'rtype_code (rtype * a, rtype * b)
+dot_product_`'rtype_code (rtype * const restrict a, rtype * const restrict b)
{
- rtype_name *pa;
- rtype_name *pb;
+ const rtype_name * restrict pa;
+ const rtype_name * restrict pb;
rtype_name res;
rtype_name conjga;
index_type count;
diff --git a/libgfortran/m4/dotprodl.m4 b/libgfortran/m4/dotprodl.m4
index 946fe228519f246e4d290db979a07d9dcd3c03b5..37c34673b0c07b0e8a8c0de8cc62deff6fc7b40a 100644
--- a/libgfortran/m4/dotprodl.m4
+++ b/libgfortran/m4/dotprodl.m4
@@ -36,14 +36,16 @@ include(iparm.m4)dnl
`#if defined (HAVE_'rtype_name`)'
-extern rtype_name dot_product_`'rtype_code (gfc_array_l4 *, gfc_array_l4 *);
+extern rtype_name dot_product_`'rtype_code (gfc_array_l4 * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(dot_product_`'rtype_code);
rtype_name
-dot_product_`'rtype_code (gfc_array_l4 * a, gfc_array_l4 * b)
+dot_product_`'rtype_code (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;
diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4
index cd7a1d852ffd63248cfaa7d5760923c327c33864..4d624cb049b49129db79647c7c9ccebba6a26a8d 100644
--- a/libgfortran/m4/eoshift1.m4
+++ b/libgfortran/m4/eoshift1.m4
@@ -38,9 +38,12 @@ include(iparm.m4)dnl
`#if defined (HAVE_'atype_name`)'
static void
-eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
- const char *pbound, const atype_name *pwhich, index_type size,
- char filler)
+eoshift1 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
@@ -219,32 +222,40 @@ eoshift1 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
}
}
-void eoshift1_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const char *, const atype_name *);
+void eoshift1_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict, const char * const restrict,
+ const atype_name * const restrict);
export_proto(eoshift1_`'atype_kind);
void
-eoshift1_`'atype_kind (gfc_array_char *ret, const gfc_array_char *array,
- const atype *h, const char *pbound,
- const atype_name *pwhich)
+eoshift1_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich)
{
eoshift1 (ret, array, h, pbound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-void eoshift1_`'atype_kind`'_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *, const atype *,
- const char *, const atype_name *,
- GFC_INTEGER_4, GFC_INTEGER_4);
+void eoshift1_`'atype_kind`'_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const char * const restrict,
+ const atype_name * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift1_`'atype_kind`'_char);
void
-eoshift1_`'atype_kind`'_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const atype *h,
- const char *pbound, const atype_name *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift1_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const char * const restrict pbound,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift1 (ret, array, h, pbound, pwhich, array_length, ' ');
}
diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4
index 318d67f274155d1a7c8b8cb005aa5370ed011636..269e13118721e9a9cfc42c7346588739d053a80d 100644
--- a/libgfortran/m4/eoshift3.m4
+++ b/libgfortran/m4/eoshift3.m4
@@ -38,9 +38,12 @@ include(iparm.m4)dnl
`#if defined (HAVE_'atype_name`)'
static void
-eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
- const gfc_array_char *bound, const atype_name *pwhich,
- index_type size, char filler)
+eoshift3 (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich,
+ index_type size, char filler)
{
/* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS];
@@ -237,36 +240,41 @@ eoshift3 (gfc_array_char *ret, const gfc_array_char *array, const atype *h,
}
}
-extern void eoshift3_`'atype_kind (gfc_array_char *, const gfc_array_char *,
- const atype *, const gfc_array_char *,
- const atype_name *);
+extern void eoshift3_`'atype_kind (gfc_array_char * const restrict,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const gfc_array_char * const restrict,
+ const atype_name *);
export_proto(eoshift3_`'atype_kind);
void
-eoshift3_`'atype_kind (gfc_array_char *ret, const gfc_array_char *array,
- const atype *h, const gfc_array_char *bound,
- const atype_name *pwhich)
+eoshift3_`'atype_kind (gfc_array_char * const restrict ret,
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich)
{
eoshift3 (ret, array, h, bound, pwhich, GFC_DESCRIPTOR_SIZE (array), 0);
}
-extern void eoshift3_`'atype_kind`'_char (gfc_array_char *, GFC_INTEGER_4,
- const gfc_array_char *,
- const atype *,
- const gfc_array_char *,
- const atype_name *, GFC_INTEGER_4,
- GFC_INTEGER_4);
+extern void eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict,
+ GFC_INTEGER_4,
+ const gfc_array_char * const restrict,
+ const atype * const restrict,
+ const gfc_array_char * const restrict,
+ const atype_name * const restrict,
+ GFC_INTEGER_4, GFC_INTEGER_4);
export_proto(eoshift3_`'atype_kind`'_char);
void
-eoshift3_`'atype_kind`'_char (gfc_array_char *ret,
- GFC_INTEGER_4 ret_length __attribute__((unused)),
- const gfc_array_char *array, const atype *h,
- const gfc_array_char *bound,
- const atype_name *pwhich,
- GFC_INTEGER_4 array_length,
- GFC_INTEGER_4 bound_length
- __attribute__((unused)))
+eoshift3_`'atype_kind`'_char (gfc_array_char * const restrict ret,
+ GFC_INTEGER_4 ret_length __attribute__((unused)),
+ const gfc_array_char * const restrict array,
+ const atype * const restrict h,
+ const gfc_array_char * const restrict bound,
+ const atype_name * const restrict pwhich,
+ GFC_INTEGER_4 array_length,
+ GFC_INTEGER_4 bound_length __attribute__((unused)))
{
eoshift3 (ret, array, h, bound, pwhich, array_length, ' ');
}
diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4
index 837c6ac802ac531976b6478a3642f5cee436f209..8c5ebc9cdc383913df49986f8ad1ea352a7659d7 100644
--- a/libgfortran/m4/iforeach.m4
+++ b/libgfortran/m4/iforeach.m4
@@ -4,17 +4,19 @@ dnl This file is part of the GNU Fortran 95 Runtime Library (libgfortran)
dnl Distributed under the GNU GPL with exception. See COPYING for details.
define(START_FOREACH_FUNCTION,
`
-extern void name`'rtype_qual`_'atype_code (rtype * retarray, atype *array);
+extern void name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array);
export_proto(name`'rtype_qual`_'atype_code);
void
-name`'rtype_qual`_'atype_code (rtype * retarray, atype *array)
+name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
index_type sstride[GFC_MAX_DIMENSIONS];
index_type dstride;
- atype_name *base;
+ const atype_name *base;
rtype_name *dest;
index_type rank;
index_type n;
@@ -111,12 +113,14 @@ define(FINISH_FOREACH_FUNCTION,
}')dnl
define(START_MASKED_FOREACH_FUNCTION,
`
-extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *);
+extern void `m'name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, gfc_array_l4 * const restrict);
export_proto(`m'name`'rtype_qual`_'atype_code);
void
-`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array,
- gfc_array_l4 * mask)
+`m'name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * const restrict array,
+ gfc_array_l4 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS];
@@ -124,7 +128,7 @@ void
index_type mstride[GFC_MAX_DIMENSIONS];
index_type dstride;
rtype_name *dest;
- atype_name *base;
+ const atype_name *base;
GFC_LOGICAL_4 *mbase;
int rank;
index_type n;
diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4
index cafe3f4e8f4e2baf1a6f7662f8d997335f0f54f7..caf9dbaab8d58fa71f92f97fca9f50087e20e2f4 100644
--- a/libgfortran/m4/ifunction.m4
+++ b/libgfortran/m4/ifunction.m4
@@ -19,18 +19,21 @@ dnl You should not return or break from the inner loop of the implementation.
dnl Care should also be taken to avoid using the names defined in iparm.m4
define(START_ARRAY_FUNCTION,
`
-extern void name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *);
+extern void name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, const index_type * const restrict);
export_proto(name`'rtype_qual`_'atype_code);
void
-name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim)
+name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * 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];
- atype_name *base;
- rtype_name *dest;
+ const atype_name * restrict base;
+ rtype_name * restrict dest;
index_type rank;
index_type n;
index_type len;
@@ -102,7 +105,7 @@ name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim)
while (base)
{
- atype_name *src;
+ const atype_name * restrict src;
rtype_name result;
src = base;
{
@@ -152,22 +155,25 @@ define(FINISH_ARRAY_FUNCTION,
}')dnl
define(START_MASKED_ARRAY_FUNCTION,
`
-extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *,
- gfc_array_l4 *);
+extern void `m'name`'rtype_qual`_'atype_code (rtype * const restrict,
+ atype * const restrict, const index_type * const restrict,
+ gfc_array_l4 * const restrict);
export_proto(`m'name`'rtype_qual`_'atype_code);
void
-`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype * array,
- index_type *pdim, gfc_array_l4 * mask)
+`m'name`'rtype_qual`_'atype_code (rtype * const restrict retarray,
+ atype * 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];
- rtype_name *dest;
- atype_name *base;
- GFC_LOGICAL_4 *mbase;
+ rtype_name * restrict dest;
+ const atype_name * restrict base;
+ const GFC_LOGICAL_4 * restrict mbase;
int rank;
int dim;
index_type n;
@@ -258,8 +264,8 @@ void
while (base)
{
- atype_name *src;
- GFC_LOGICAL_4 *msrc;
+ const atype_name * restrict src;
+ const GFC_LOGICAL_4 * restrict msrc;
rtype_name result;
src = base;
msrc = mbase;
diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4
index c43828ca50a799ceb70b27d8b5800b60da5da84f..5b652b64c589c5228d11467487df2f745f26b705 100644
--- a/libgfortran/m4/reshape.m4
+++ b/libgfortran/m4/reshape.m4
@@ -42,13 +42,19 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
return array. */
dnl Only the kind (ie size) is used to name the function.
-extern void reshape_`'rtype_ccode (rtype *, rtype *, shape_type *,
- rtype *, shape_type *);
+extern void reshape_`'rtype_ccode (rtype * const restrict,
+ rtype * const restrict,
+ shape_type * const restrict,
+ rtype * const restrict,
+ shape_type * const restrict);
export_proto(reshape_`'rtype_ccode);
void
-reshape_`'rtype_ccode (rtype * ret, rtype * source, shape_type * shape,
- rtype * pad, shape_type * order)
+reshape_`'rtype_ccode (rtype * const restrict ret,
+ rtype * const restrict source,
+ shape_type * const restrict shape,
+ rtype * const restrict pad,
+ shape_type * const restrict order)
{
/* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/m4/shape.m4 b/libgfortran/m4/shape.m4
index 1b9e10077c0cecb4430df37c09ef6e4a0bf6b4d4..e46c3dd7f918fc07ff34f5671679f34edadba9fc 100644
--- a/libgfortran/m4/shape.m4
+++ b/libgfortran/m4/shape.m4
@@ -36,11 +36,13 @@ include(iparm.m4)dnl
`#if defined (HAVE_'rtype_name`)'
-extern void shape_`'rtype_kind (rtype * ret, const rtype * array);
+extern void shape_`'rtype_kind (rtype * const restrict ret,
+ const rtype * const restrict array);
export_proto(shape_`'rtype_kind);
void
-shape_`'rtype_kind (rtype * ret, const rtype * array)
+shape_`'rtype_kind (rtype * const restrict ret,
+ const rtype * const restrict array)
{
int n;
index_type stride;
diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4
index 56669cecef133825e5ddc525dd4b54a41cb1382c..98926607f9931983b0644e2557f127a4ebdf89a8 100644
--- a/libgfortran/m4/transpose.m4
+++ b/libgfortran/m4/transpose.m4
@@ -35,11 +35,13 @@ include(iparm.m4)dnl
`#if defined (HAVE_'rtype_name`)'
-extern void transpose_`'rtype_code (rtype * ret, rtype * source);
+extern void transpose_`'rtype_code (rtype * const restrict ret,
+ rtype * const restrict source);
export_proto(transpose_`'rtype_code);
void
-transpose_`'rtype_code (rtype * ret, rtype * source)
+transpose_`'rtype_code (rtype * const restrict ret,
+ rtype * const restrict source)
{
/* r.* indicates the return array. */
index_type rxstride, rystride;