[gcc(refs/users/mikael/heads/refactor_descriptor_v04)] Sauvegarde modifs fichiers générés.
Mikael Morin
mikael@gcc.gnu.org
Sat Mar 29 10:45:58 GMT 2025
https://gcc.gnu.org/g:7d797f81904b7bfd4c55f2ba19744b48d8e4aba8
commit 7d797f81904b7bfd4c55f2ba19744b48d8e4aba8
Author: Mikael Morin <mikael@gcc.gnu.org>
Date: Sat Mar 29 11:19:31 2025 +0100
Sauvegarde modifs fichiers générés.
Diff:
---
libgfortran/generated/iall_i1.c | 22 +++++++++++-----------
libgfortran/generated/iall_i16.c | 22 +++++++++++-----------
libgfortran/generated/iall_i2.c | 22 +++++++++++-----------
libgfortran/generated/iall_i4.c | 22 +++++++++++-----------
libgfortran/generated/iall_i8.c | 22 +++++++++++-----------
libgfortran/generated/iany_i1.c | 22 +++++++++++-----------
libgfortran/generated/iany_i16.c | 22 +++++++++++-----------
libgfortran/generated/iany_i2.c | 22 +++++++++++-----------
libgfortran/generated/iany_i4.c | 22 +++++++++++-----------
libgfortran/generated/iany_i8.c | 22 +++++++++++-----------
libgfortran/generated/iparity_i1.c | 22 +++++++++++-----------
libgfortran/generated/iparity_i16.c | 22 +++++++++++-----------
libgfortran/generated/iparity_i2.c | 22 +++++++++++-----------
libgfortran/generated/iparity_i4.c | 22 +++++++++++-----------
libgfortran/generated/iparity_i8.c | 22 +++++++++++-----------
libgfortran/generated/matmulavx128_c10.c | 4 ++--
libgfortran/generated/matmulavx128_c16.c | 4 ++--
libgfortran/generated/matmulavx128_c17.c | 4 ++--
libgfortran/generated/matmulavx128_c4.c | 4 ++--
libgfortran/generated/matmulavx128_c8.c | 4 ++--
libgfortran/generated/matmulavx128_i1.c | 4 ++--
libgfortran/generated/matmulavx128_i16.c | 4 ++--
libgfortran/generated/matmulavx128_i2.c | 4 ++--
libgfortran/generated/matmulavx128_i4.c | 4 ++--
libgfortran/generated/matmulavx128_i8.c | 4 ++--
libgfortran/generated/matmulavx128_r10.c | 4 ++--
libgfortran/generated/matmulavx128_r16.c | 4 ++--
libgfortran/generated/matmulavx128_r17.c | 4 ++--
libgfortran/generated/matmulavx128_r4.c | 4 ++--
libgfortran/generated/matmulavx128_r8.c | 4 ++--
libgfortran/generated/maxloc1_16_i1.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_i16.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_i2.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_i4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_r10.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_r16.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_r17.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_r4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_16_r8.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_i1.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_i2.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_i4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_r10.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_r16.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_r17.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_r4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_4_r8.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_i1.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_i2.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_i4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_r10.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_r16.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_r17.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_r4.c | 22 +++++++++++-----------
libgfortran/generated/maxloc1_8_r8.c | 22 +++++++++++-----------
libgfortran/generated/maxval_i1.c | 22 +++++++++++-----------
libgfortran/generated/maxval_i16.c | 22 +++++++++++-----------
libgfortran/generated/maxval_i2.c | 22 +++++++++++-----------
libgfortran/generated/maxval_i4.c | 22 +++++++++++-----------
libgfortran/generated/maxval_i8.c | 22 +++++++++++-----------
libgfortran/generated/maxval_r10.c | 22 +++++++++++-----------
libgfortran/generated/maxval_r16.c | 22 +++++++++++-----------
libgfortran/generated/maxval_r17.c | 22 +++++++++++-----------
libgfortran/generated/maxval_r4.c | 22 +++++++++++-----------
libgfortran/generated/maxval_r8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_i1.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_i16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_i2.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_i4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_i8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_r10.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_r16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_r17.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_r4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_16_r8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_i1.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_i16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_i2.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_i4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_i8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_r10.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_r16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_r17.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_r4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_4_r8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_i1.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_i16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_i2.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_i4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_i8.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_r10.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_r16.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_r17.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_r4.c | 22 +++++++++++-----------
libgfortran/generated/minloc1_8_r8.c | 22 +++++++++++-----------
libgfortran/generated/minval_i1.c | 22 +++++++++++-----------
libgfortran/generated/minval_i16.c | 22 +++++++++++-----------
libgfortran/generated/minval_i2.c | 22 +++++++++++-----------
libgfortran/generated/minval_i4.c | 22 +++++++++++-----------
libgfortran/generated/minval_i8.c | 22 +++++++++++-----------
libgfortran/generated/minval_r10.c | 22 +++++++++++-----------
libgfortran/generated/minval_r16.c | 22 +++++++++++-----------
libgfortran/generated/minval_r17.c | 22 +++++++++++-----------
libgfortran/generated/minval_r4.c | 22 +++++++++++-----------
libgfortran/generated/minval_r8.c | 22 +++++++++++-----------
libgfortran/generated/norm2_r10.c | 6 +++---
libgfortran/generated/norm2_r16.c | 6 +++---
libgfortran/generated/norm2_r17.c | 6 +++---
libgfortran/generated/norm2_r4.c | 6 +++---
libgfortran/generated/norm2_r8.c | 6 +++---
libgfortran/generated/parity_l1.c | 6 +++---
libgfortran/generated/parity_l16.c | 6 +++---
libgfortran/generated/parity_l2.c | 6 +++---
libgfortran/generated/parity_l4.c | 6 +++---
libgfortran/generated/parity_l8.c | 6 +++---
115 files changed, 1050 insertions(+), 1050 deletions(-)
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c
index d82d8ba6fc52..2e322c1f1953 100644
--- a/libgfortran/generated/iall_i1.c
+++ b/libgfortran/generated/iall_i1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iall_i1 (gfc_array_i1 * const restrict,
+extern void iall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iall_i1);
void
-iall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void miall_i1 (gfc_array_i1 * const restrict,
+extern void miall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i1);
void
-miall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void siall_i1 (gfc_array_i1 * const restrict,
+extern void siall_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i1);
void
-siall_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siall_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iall_i16.c b/libgfortran/generated/iall_i16.c
index ee134521c07e..c70b6982315d 100644
--- a/libgfortran/generated/iall_i16.c
+++ b/libgfortran/generated/iall_i16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iall_i16 (gfc_array_i16 * const restrict,
+extern void iall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iall_i16);
void
-iall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iall_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];
@@ -188,15 +188,15 @@ iall_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void miall_i16 (gfc_array_i16 * const restrict,
+extern void miall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i16);
void
-miall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miall_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void siall_i16 (gfc_array_i16 * const restrict,
+extern void siall_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i16);
void
-siall_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siall_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iall_i2.c b/libgfortran/generated/iall_i2.c
index a57aabdeb281..bede3c37c526 100644
--- a/libgfortran/generated/iall_i2.c
+++ b/libgfortran/generated/iall_i2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iall_i2 (gfc_array_i2 * const restrict,
+extern void iall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iall_i2);
void
-iall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iall_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void miall_i2 (gfc_array_i2 * const restrict,
+extern void miall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i2);
void
-miall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void siall_i2 (gfc_array_i2 * const restrict,
+extern void siall_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i2);
void
-siall_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siall_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iall_i4.c b/libgfortran/generated/iall_i4.c
index 039256d0a942..3e4370be7e35 100644
--- a/libgfortran/generated/iall_i4.c
+++ b/libgfortran/generated/iall_i4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iall_i4 (gfc_array_i4 * const restrict,
+extern void iall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iall_i4);
void
-iall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iall_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];
@@ -188,15 +188,15 @@ iall_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void miall_i4 (gfc_array_i4 * const restrict,
+extern void miall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i4);
void
-miall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miall_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void siall_i4 (gfc_array_i4 * const restrict,
+extern void siall_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i4);
void
-siall_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siall_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iall_i8.c b/libgfortran/generated/iall_i8.c
index 9f41e6073600..1651a470748a 100644
--- a/libgfortran/generated/iall_i8.c
+++ b/libgfortran/generated/iall_i8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iall_i8 (gfc_array_i8 * const restrict,
+extern void iall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iall_i8);
void
-iall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iall_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];
@@ -188,15 +188,15 @@ iall_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void miall_i8 (gfc_array_i8 * const restrict,
+extern void miall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miall_i8);
void
-miall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miall_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void siall_i8 (gfc_array_i8 * const restrict,
+extern void siall_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siall_i8);
void
-siall_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siall_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iany_i1.c b/libgfortran/generated/iany_i1.c
index ebe21e44b015..a9b24f208c2b 100644
--- a/libgfortran/generated/iany_i1.c
+++ b/libgfortran/generated/iany_i1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iany_i1 (gfc_array_i1 * const restrict,
+extern void iany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iany_i1);
void
-iany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void miany_i1 (gfc_array_i1 * const restrict,
+extern void miany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i1);
void
-miany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void siany_i1 (gfc_array_i1 * const restrict,
+extern void siany_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i1);
void
-siany_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siany_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iany_i16.c b/libgfortran/generated/iany_i16.c
index 8cbb439dd51f..34d0954bdf94 100644
--- a/libgfortran/generated/iany_i16.c
+++ b/libgfortran/generated/iany_i16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iany_i16 (gfc_array_i16 * const restrict,
+extern void iany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iany_i16);
void
-iany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iany_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];
@@ -188,15 +188,15 @@ iany_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void miany_i16 (gfc_array_i16 * const restrict,
+extern void miany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i16);
void
-miany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miany_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void siany_i16 (gfc_array_i16 * const restrict,
+extern void siany_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i16);
void
-siany_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siany_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iany_i2.c b/libgfortran/generated/iany_i2.c
index 01f6f6c2c720..554a0245603f 100644
--- a/libgfortran/generated/iany_i2.c
+++ b/libgfortran/generated/iany_i2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iany_i2 (gfc_array_i2 * const restrict,
+extern void iany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iany_i2);
void
-iany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iany_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void miany_i2 (gfc_array_i2 * const restrict,
+extern void miany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i2);
void
-miany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void siany_i2 (gfc_array_i2 * const restrict,
+extern void siany_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i2);
void
-siany_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siany_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iany_i4.c b/libgfortran/generated/iany_i4.c
index 7bc70d1d5eb3..d4c824f6d145 100644
--- a/libgfortran/generated/iany_i4.c
+++ b/libgfortran/generated/iany_i4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iany_i4 (gfc_array_i4 * const restrict,
+extern void iany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iany_i4);
void
-iany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iany_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];
@@ -188,15 +188,15 @@ iany_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void miany_i4 (gfc_array_i4 * const restrict,
+extern void miany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i4);
void
-miany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miany_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void siany_i4 (gfc_array_i4 * const restrict,
+extern void siany_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i4);
void
-siany_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siany_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iany_i8.c b/libgfortran/generated/iany_i8.c
index 4165061e689b..cebeec24656d 100644
--- a/libgfortran/generated/iany_i8.c
+++ b/libgfortran/generated/iany_i8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iany_i8 (gfc_array_i8 * const restrict,
+extern void iany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iany_i8);
void
-iany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iany_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];
@@ -188,15 +188,15 @@ iany_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void miany_i8 (gfc_array_i8 * const restrict,
+extern void miany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miany_i8);
void
-miany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miany_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void siany_i8 (gfc_array_i8 * const restrict,
+extern void siany_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siany_i8);
void
-siany_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siany_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iparity_i1.c b/libgfortran/generated/iparity_i1.c
index f3ec3287fafe..b7cdb3e995f6 100644
--- a/libgfortran/generated/iparity_i1.c
+++ b/libgfortran/generated/iparity_i1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void iparity_i1 (gfc_array_i1 * const restrict,
+extern void iparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(iparity_i1);
void
-iparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+iparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void miparity_i1 (gfc_array_i1 * const restrict,
+extern void miparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i1);
void
-miparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void siparity_i1 (gfc_array_i1 * const restrict,
+extern void siparity_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i1);
void
-siparity_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iparity_i16.c b/libgfortran/generated/iparity_i16.c
index 1111bbc5c6df..f6272638f2ef 100644
--- a/libgfortran/generated/iparity_i16.c
+++ b/libgfortran/generated/iparity_i16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void iparity_i16 (gfc_array_i16 * const restrict,
+extern void iparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict);
export_proto(iparity_i16);
void
-iparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+iparity_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];
@@ -188,15 +188,15 @@ iparity_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void miparity_i16 (gfc_array_i16 * const restrict,
+extern void miparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i16);
void
-miparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void siparity_i16 (gfc_array_i16 * const restrict,
+extern void siparity_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i16);
void
-siparity_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iparity_i2.c b/libgfortran/generated/iparity_i2.c
index ef0a9e7d948b..4481a04c2f88 100644
--- a/libgfortran/generated/iparity_i2.c
+++ b/libgfortran/generated/iparity_i2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void iparity_i2 (gfc_array_i2 * const restrict,
+extern void iparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(iparity_i2);
void
-iparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+iparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -188,15 +188,15 @@ iparity_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void miparity_i2 (gfc_array_i2 * const restrict,
+extern void miparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i2);
void
-miparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void siparity_i2 (gfc_array_i2 * const restrict,
+extern void siparity_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i2);
void
-siparity_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iparity_i4.c b/libgfortran/generated/iparity_i4.c
index 189d820c2de8..e0c65dd207b0 100644
--- a/libgfortran/generated/iparity_i4.c
+++ b/libgfortran/generated/iparity_i4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void iparity_i4 (gfc_array_i4 * const restrict,
+extern void iparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict);
export_proto(iparity_i4);
void
-iparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+iparity_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];
@@ -188,15 +188,15 @@ iparity_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void miparity_i4 (gfc_array_i4 * const restrict,
+extern void miparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i4);
void
-miparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void siparity_i4 (gfc_array_i4 * const restrict,
+extern void siparity_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i4);
void
-siparity_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/iparity_i8.c b/libgfortran/generated/iparity_i8.c
index 1d2f33bdfe2e..f2feec9fae8a 100644
--- a/libgfortran/generated/iparity_i8.c
+++ b/libgfortran/generated/iparity_i8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void iparity_i8 (gfc_array_i8 * const restrict,
+extern void iparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict);
export_proto(iparity_i8);
void
-iparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+iparity_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];
@@ -188,15 +188,15 @@ iparity_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void miparity_i8 (gfc_array_i8 * const restrict,
+extern void miparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(miparity_i8);
void
-miparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+miparity_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -378,15 +378,15 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void siparity_i8 (gfc_array_i8 * const restrict,
+extern void siparity_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(siparity_i8);
void
-siparity_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+siparity_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/matmulavx128_c10.c b/libgfortran/generated/matmulavx128_c10.c
index 7094a5f80e94..6e084809027d 100644
--- a/libgfortran/generated/matmulavx128_c10.c
+++ b/libgfortran/generated/matmulavx128_c10.c
@@ -49,7 +49,7 @@ matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c10_avx128_fma3);
void
-matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
+matmul_c10_avx128_fma3 (gfc_array_c10 * const restrict retarray,
gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c10_avx128_fma4);
void
-matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
+matmul_c10_avx128_fma4 (gfc_array_c10 * const restrict retarray,
gfc_array_c10 * const restrict a, gfc_array_c10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_c16.c b/libgfortran/generated/matmulavx128_c16.c
index 4a1a3408be95..57d24ec0b586 100644
--- a/libgfortran/generated/matmulavx128_c16.c
+++ b/libgfortran/generated/matmulavx128_c16.c
@@ -49,7 +49,7 @@ matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c16_avx128_fma3);
void
-matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
+matmul_c16_avx128_fma3 (gfc_array_c16 * const restrict retarray,
gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c16_avx128_fma4);
void
-matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
+matmul_c16_avx128_fma4 (gfc_array_c16 * const restrict retarray,
gfc_array_c16 * const restrict a, gfc_array_c16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_c17.c b/libgfortran/generated/matmulavx128_c17.c
index 52b3c0df62f1..7d54c0dc655f 100644
--- a/libgfortran/generated/matmulavx128_c17.c
+++ b/libgfortran/generated/matmulavx128_c17.c
@@ -49,7 +49,7 @@ matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c17_avx128_fma3);
void
-matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
+matmul_c17_avx128_fma3 (gfc_array_c17 * const restrict retarray,
gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c17_avx128_fma4);
void
-matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
+matmul_c17_avx128_fma4 (gfc_array_c17 * const restrict retarray,
gfc_array_c17 * const restrict a, gfc_array_c17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_c4.c b/libgfortran/generated/matmulavx128_c4.c
index f0014cc89e26..a7708c5a1f74 100644
--- a/libgfortran/generated/matmulavx128_c4.c
+++ b/libgfortran/generated/matmulavx128_c4.c
@@ -49,7 +49,7 @@ matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c4_avx128_fma3);
void
-matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
+matmul_c4_avx128_fma3 (gfc_array_c4 * const restrict retarray,
gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c4_avx128_fma4);
void
-matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
+matmul_c4_avx128_fma4 (gfc_array_c4 * const restrict retarray,
gfc_array_c4 * const restrict a, gfc_array_c4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_c8.c b/libgfortran/generated/matmulavx128_c8.c
index 94764a9c38b7..b0d325fba595 100644
--- a/libgfortran/generated/matmulavx128_c8.c
+++ b/libgfortran/generated/matmulavx128_c8.c
@@ -49,7 +49,7 @@ matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_c8_avx128_fma3);
void
-matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
+matmul_c8_avx128_fma3 (gfc_array_c8 * const restrict retarray,
gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_c8_avx128_fma4);
void
-matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
+matmul_c8_avx128_fma4 (gfc_array_c8 * const restrict retarray,
gfc_array_c8 * const restrict a, gfc_array_c8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_i1.c b/libgfortran/generated/matmulavx128_i1.c
index 3ab8eda71b3f..f5e5befad90b 100644
--- a/libgfortran/generated/matmulavx128_i1.c
+++ b/libgfortran/generated/matmulavx128_i1.c
@@ -49,7 +49,7 @@ matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i1_avx128_fma3);
void
-matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
+matmul_i1_avx128_fma3 (gfc_array_i1 * const restrict retarray,
gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i1_avx128_fma4);
void
-matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
+matmul_i1_avx128_fma4 (gfc_array_i1 * const restrict retarray,
gfc_array_i1 * const restrict a, gfc_array_i1 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_i16.c b/libgfortran/generated/matmulavx128_i16.c
index c8ef87e019c2..f686f7ad44cc 100644
--- a/libgfortran/generated/matmulavx128_i16.c
+++ b/libgfortran/generated/matmulavx128_i16.c
@@ -49,7 +49,7 @@ matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i16_avx128_fma3);
void
-matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
+matmul_i16_avx128_fma3 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i16_avx128_fma4);
void
-matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
+matmul_i16_avx128_fma4 (gfc_array_i16 * const restrict retarray,
gfc_array_i16 * const restrict a, gfc_array_i16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_i2.c b/libgfortran/generated/matmulavx128_i2.c
index 88f345272498..f6a162d1e416 100644
--- a/libgfortran/generated/matmulavx128_i2.c
+++ b/libgfortran/generated/matmulavx128_i2.c
@@ -49,7 +49,7 @@ matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i2_avx128_fma3);
void
-matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
+matmul_i2_avx128_fma3 (gfc_array_i2 * const restrict retarray,
gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i2_avx128_fma4);
void
-matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
+matmul_i2_avx128_fma4 (gfc_array_i2 * const restrict retarray,
gfc_array_i2 * const restrict a, gfc_array_i2 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_i4.c b/libgfortran/generated/matmulavx128_i4.c
index 272692e5351f..0a28e4ba0593 100644
--- a/libgfortran/generated/matmulavx128_i4.c
+++ b/libgfortran/generated/matmulavx128_i4.c
@@ -49,7 +49,7 @@ matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i4_avx128_fma3);
void
-matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
+matmul_i4_avx128_fma3 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i4_avx128_fma4);
void
-matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
+matmul_i4_avx128_fma4 (gfc_array_i4 * const restrict retarray,
gfc_array_i4 * const restrict a, gfc_array_i4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_i8.c b/libgfortran/generated/matmulavx128_i8.c
index a1db25b30690..a077a26a701d 100644
--- a/libgfortran/generated/matmulavx128_i8.c
+++ b/libgfortran/generated/matmulavx128_i8.c
@@ -49,7 +49,7 @@ matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_i8_avx128_fma3);
void
-matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
+matmul_i8_avx128_fma3 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_i8_avx128_fma4);
void
-matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
+matmul_i8_avx128_fma4 (gfc_array_i8 * const restrict retarray,
gfc_array_i8 * const restrict a, gfc_array_i8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_r10.c b/libgfortran/generated/matmulavx128_r10.c
index 8d164d0049c6..31c62bab4b71 100644
--- a/libgfortran/generated/matmulavx128_r10.c
+++ b/libgfortran/generated/matmulavx128_r10.c
@@ -49,7 +49,7 @@ matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r10_avx128_fma3);
void
-matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
+matmul_r10_avx128_fma3 (gfc_array_r10 * const restrict retarray,
gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r10_avx128_fma4);
void
-matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
+matmul_r10_avx128_fma4 (gfc_array_r10 * const restrict retarray,
gfc_array_r10 * const restrict a, gfc_array_r10 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_r16.c b/libgfortran/generated/matmulavx128_r16.c
index ee536b53390d..1ed5516d1ed7 100644
--- a/libgfortran/generated/matmulavx128_r16.c
+++ b/libgfortran/generated/matmulavx128_r16.c
@@ -49,7 +49,7 @@ matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r16_avx128_fma3);
void
-matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
+matmul_r16_avx128_fma3 (gfc_array_r16 * const restrict retarray,
gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r16_avx128_fma4);
void
-matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
+matmul_r16_avx128_fma4 (gfc_array_r16 * const restrict retarray,
gfc_array_r16 * const restrict a, gfc_array_r16 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_r17.c b/libgfortran/generated/matmulavx128_r17.c
index b45f3b36be9f..f1e58521204c 100644
--- a/libgfortran/generated/matmulavx128_r17.c
+++ b/libgfortran/generated/matmulavx128_r17.c
@@ -49,7 +49,7 @@ matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r17_avx128_fma3);
void
-matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
+matmul_r17_avx128_fma3 (gfc_array_r17 * const restrict retarray,
gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r17_avx128_fma4);
void
-matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
+matmul_r17_avx128_fma4 (gfc_array_r17 * const restrict retarray,
gfc_array_r17 * const restrict a, gfc_array_r17 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_r4.c b/libgfortran/generated/matmulavx128_r4.c
index 104b1df35eb7..5372623c65d3 100644
--- a/libgfortran/generated/matmulavx128_r4.c
+++ b/libgfortran/generated/matmulavx128_r4.c
@@ -49,7 +49,7 @@ matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r4_avx128_fma3);
void
-matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
+matmul_r4_avx128_fma3 (gfc_array_r4 * const restrict retarray,
gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r4_avx128_fma4);
void
-matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
+matmul_r4_avx128_fma4 (gfc_array_r4 * const restrict retarray,
gfc_array_r4 * const restrict a, gfc_array_r4 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/matmulavx128_r8.c b/libgfortran/generated/matmulavx128_r8.c
index f76301dec032..ee7bc4a28ab8 100644
--- a/libgfortran/generated/matmulavx128_r8.c
+++ b/libgfortran/generated/matmulavx128_r8.c
@@ -49,7 +49,7 @@ matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma")));
internal_proto(matmul_r8_avx128_fma3);
void
-matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
+matmul_r8_avx128_fma3 (gfc_array_r8 * const restrict retarray,
gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
@@ -619,7 +619,7 @@ matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
int blas_limit, blas_call gemm) __attribute__((__target__("avx,fma4")));
internal_proto(matmul_r8_avx128_fma4);
void
-matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
+matmul_r8_avx128_fma4 (gfc_array_r8 * const restrict retarray,
gfc_array_r8 * const restrict a, gfc_array_r8 * const restrict b, int try_blas,
int blas_limit, blas_call gemm)
{
diff --git a/libgfortran/generated/maxloc1_16_i1.c b/libgfortran/generated/maxloc1_16_i1.c
index 853fe3fcf43e..31e17c443e8e 100644
--- a/libgfortran/generated/maxloc1_16_i1.c
+++ b/libgfortran/generated/maxloc1_16_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i1);
void
-maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i1);
void
-mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i1);
void
-smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_i16.c b/libgfortran/generated/maxloc1_16_i16.c
index 96f76ac08f66..227ab99fecdf 100644
--- a/libgfortran/generated/maxloc1_16_i16.c
+++ b/libgfortran/generated/maxloc1_16_i16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i16);
void
-maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i16);
void
-mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i16);
void
-smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_i2.c b/libgfortran/generated/maxloc1_16_i2.c
index a2861511b1ec..40fbf8bf153f 100644
--- a/libgfortran/generated/maxloc1_16_i2.c
+++ b/libgfortran/generated/maxloc1_16_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i2);
void
-maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i2);
void
-mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i2);
void
-smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_i4.c b/libgfortran/generated/maxloc1_16_i4.c
index ad9de409f46f..28f1f4f743fd 100644
--- a/libgfortran/generated/maxloc1_16_i4.c
+++ b/libgfortran/generated/maxloc1_16_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_i4);
void
-maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_i4);
void
-mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_i4);
void
-smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c
index 246271398255..87b56477149c 100644
--- a/libgfortran/generated/maxloc1_16_r10.c
+++ b/libgfortran/generated/maxloc1_16_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r10);
void
-maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r10);
void
-mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r10);
void
-smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_r16.c b/libgfortran/generated/maxloc1_16_r16.c
index 5ad73be9702d..2bc6edb85bfa 100644
--- a/libgfortran/generated/maxloc1_16_r16.c
+++ b/libgfortran/generated/maxloc1_16_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r16);
void
-maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r16);
void
-mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r16);
void
-smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_r17.c b/libgfortran/generated/maxloc1_16_r17.c
index 4444d41b83a5..ce5259897199 100644
--- a/libgfortran/generated/maxloc1_16_r17.c
+++ b/libgfortran/generated/maxloc1_16_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r17);
void
-maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r17);
void
-mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r17);
void
-smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_r4.c b/libgfortran/generated/maxloc1_16_r4.c
index 0be7ad1b78f3..5ae022f0b34f 100644
--- a/libgfortran/generated/maxloc1_16_r4.c
+++ b/libgfortran/generated/maxloc1_16_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r4);
void
-maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r4);
void
-mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r4);
void
-smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_16_r8.c b/libgfortran/generated/maxloc1_16_r8.c
index fd3dae933526..cf2e12643be0 100644
--- a/libgfortran/generated/maxloc1_16_r8.c
+++ b/libgfortran/generated/maxloc1_16_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void maxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_16_r8);
void
-maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void mmaxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_16_r8);
void
-mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void smaxloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_16_r8);
void
-smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_i1.c b/libgfortran/generated/maxloc1_4_i1.c
index 664c1db63974..a54feb4afbd5 100644
--- a/libgfortran/generated/maxloc1_4_i1.c
+++ b/libgfortran/generated/maxloc1_4_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i1);
void
-maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i1);
void
-mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i1);
void
-smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c
index f7152f1b8b1a..45aa9a1e9cd9 100644
--- a/libgfortran/generated/maxloc1_4_i2.c
+++ b/libgfortran/generated/maxloc1_4_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i2);
void
-maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i2);
void
-mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i2);
void
-smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c
index e5d348417f4c..ae966d8f76ad 100644
--- a/libgfortran/generated/maxloc1_4_i4.c
+++ b/libgfortran/generated/maxloc1_4_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_i4);
void
-maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_i4);
void
-mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_i4);
void
-smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c
index 0b0ac4bc455d..fdab04271143 100644
--- a/libgfortran/generated/maxloc1_4_r10.c
+++ b/libgfortran/generated/maxloc1_4_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r10);
void
-maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r10);
void
-mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r10);
void
-smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_r16.c b/libgfortran/generated/maxloc1_4_r16.c
index ffc1e4defbca..9eedf782116e 100644
--- a/libgfortran/generated/maxloc1_4_r16.c
+++ b/libgfortran/generated/maxloc1_4_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r16);
void
-maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r16);
void
-mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r16);
void
-smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_r17.c b/libgfortran/generated/maxloc1_4_r17.c
index f59a9eeb47d0..516268e4beb0 100644
--- a/libgfortran/generated/maxloc1_4_r17.c
+++ b/libgfortran/generated/maxloc1_4_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r17);
void
-maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r17);
void
-mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r17);
void
-smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c
index bd9343fdc37d..1ccc30ca4cc8 100644
--- a/libgfortran/generated/maxloc1_4_r4.c
+++ b/libgfortran/generated/maxloc1_4_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r4);
void
-maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r4);
void
-mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r4);
void
-smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c
index a63ae6af463c..86da06456cbc 100644
--- a/libgfortran/generated/maxloc1_4_r8.c
+++ b/libgfortran/generated/maxloc1_4_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void maxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_4_r8);
void
-maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void mmaxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_4_r8);
void
-mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void smaxloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_4_r8);
void
-smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_i1.c b/libgfortran/generated/maxloc1_8_i1.c
index 01b30c9194f0..bb745335bc98 100644
--- a/libgfortran/generated/maxloc1_8_i1.c
+++ b/libgfortran/generated/maxloc1_8_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i1);
void
-maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i1);
void
-mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i1);
void
-smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c
index 93966137651f..ed4fda52494e 100644
--- a/libgfortran/generated/maxloc1_8_i2.c
+++ b/libgfortran/generated/maxloc1_8_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i2);
void
-maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i2);
void
-mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i2);
void
-smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c
index baf6d9a5b956..4c708311b617 100644
--- a/libgfortran/generated/maxloc1_8_i4.c
+++ b/libgfortran/generated/maxloc1_8_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_i4);
void
-maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_i4);
void
-mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_i4);
void
-smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c
index d593dd6a9409..f67183f72383 100644
--- a/libgfortran/generated/maxloc1_8_r10.c
+++ b/libgfortran/generated/maxloc1_8_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r10);
void
-maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r10);
void
-mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r10);
void
-smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_r16.c b/libgfortran/generated/maxloc1_8_r16.c
index 8a270d8f2dc7..6b2fc5989cd3 100644
--- a/libgfortran/generated/maxloc1_8_r16.c
+++ b/libgfortran/generated/maxloc1_8_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r16);
void
-maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r16);
void
-mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r16);
void
-smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_r17.c b/libgfortran/generated/maxloc1_8_r17.c
index 03a37c54ef96..65b480827dfa 100644
--- a/libgfortran/generated/maxloc1_8_r17.c
+++ b/libgfortran/generated/maxloc1_8_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r17);
void
-maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r17);
void
-mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r17);
void
-smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c
index b4917a3ec4de..844038c88e75 100644
--- a/libgfortran/generated/maxloc1_8_r4.c
+++ b/libgfortran/generated/maxloc1_8_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r4);
void
-maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r4);
void
-mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r4);
void
-smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c
index ed60a4573832..7e61bfe83a58 100644
--- a/libgfortran/generated/maxloc1_8_r8.c
+++ b/libgfortran/generated/maxloc1_8_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void maxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(maxloc1_8_r8);
void
-maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -216,15 +216,15 @@ maxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void mmaxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mmaxloc1_8_r8);
void
-mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -449,15 +449,15 @@ mmaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void smaxloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(smaxloc1_8_r8);
void
-smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_i1.c b/libgfortran/generated/maxval_i1.c
index 984f7b04b1ab..a7672ac9c84a 100644
--- a/libgfortran/generated/maxval_i1.c
+++ b/libgfortran/generated/maxval_i1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void maxval_i1 (gfc_array_i1 * const restrict,
+extern void maxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(maxval_i1);
void
-maxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+maxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void mmaxval_i1 (gfc_array_i1 * const restrict,
+extern void mmaxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i1);
void
-mmaxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void smaxval_i1 (gfc_array_i1 * const restrict,
+extern void smaxval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i1);
void
-smaxval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_i16.c b/libgfortran/generated/maxval_i16.c
index 7effaa041771..1ab02452e17f 100644
--- a/libgfortran/generated/maxval_i16.c
+++ b/libgfortran/generated/maxval_i16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void maxval_i16 (gfc_array_i16 * const restrict,
+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 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void mmaxval_i16 (gfc_array_i16 * const restrict,
+extern void mmaxval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i16);
void
-mmaxval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void smaxval_i16 (gfc_array_i16 * const restrict,
+extern void smaxval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i16);
void
-smaxval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_i2.c b/libgfortran/generated/maxval_i2.c
index f39f1e192579..8aa05bb475a7 100644
--- a/libgfortran/generated/maxval_i2.c
+++ b/libgfortran/generated/maxval_i2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void maxval_i2 (gfc_array_i2 * const restrict,
+extern void maxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(maxval_i2);
void
-maxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+maxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void mmaxval_i2 (gfc_array_i2 * const restrict,
+extern void mmaxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i2);
void
-mmaxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void smaxval_i2 (gfc_array_i2 * const restrict,
+extern void smaxval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i2);
void
-smaxval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c
index 95aff8c68546..a1493032022a 100644
--- a/libgfortran/generated/maxval_i4.c
+++ b/libgfortran/generated/maxval_i4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void maxval_i4 (gfc_array_i4 * const restrict,
+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 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void mmaxval_i4 (gfc_array_i4 * const restrict,
+extern void mmaxval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i4);
void
-mmaxval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void smaxval_i4 (gfc_array_i4 * const restrict,
+extern void smaxval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i4);
void
-smaxval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c
index 17433359d0d0..42746ce53a73 100644
--- a/libgfortran/generated/maxval_i8.c
+++ b/libgfortran/generated/maxval_i8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void maxval_i8 (gfc_array_i8 * const restrict,
+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 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void mmaxval_i8 (gfc_array_i8 * const restrict,
+extern void mmaxval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_i8);
void
-mmaxval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void smaxval_i8 (gfc_array_i8 * const restrict,
+extern void smaxval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_i8);
void
-smaxval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_r10.c b/libgfortran/generated/maxval_r10.c
index dbf68993211d..7488db0c50a7 100644
--- a/libgfortran/generated/maxval_r10.c
+++ b/libgfortran/generated/maxval_r10.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void maxval_r10 (gfc_array_r10 * const restrict,
+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 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_r10 (gfc_array_r10 * const restrict retarray,
}
-extern void mmaxval_r10 (gfc_array_r10 * const restrict,
+extern void mmaxval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r10);
void
-mmaxval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r10 (gfc_array_r10 * const restrict retarray,
}
-extern void smaxval_r10 (gfc_array_r10 * const restrict,
+extern void smaxval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r10);
void
-smaxval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_r16.c b/libgfortran/generated/maxval_r16.c
index 73cb64f2ac29..c735944b4dfd 100644
--- a/libgfortran/generated/maxval_r16.c
+++ b/libgfortran/generated/maxval_r16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void maxval_r16 (gfc_array_r16 * const restrict,
+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 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_r16 (gfc_array_r16 * const restrict retarray,
}
-extern void mmaxval_r16 (gfc_array_r16 * const restrict,
+extern void mmaxval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r16);
void
-mmaxval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r16 (gfc_array_r16 * const restrict retarray,
}
-extern void smaxval_r16 (gfc_array_r16 * const restrict,
+extern void smaxval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r16);
void
-smaxval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_r17.c b/libgfortran/generated/maxval_r17.c
index 07cbbe18088c..9e47d6506887 100644
--- a/libgfortran/generated/maxval_r17.c
+++ b/libgfortran/generated/maxval_r17.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
-extern void maxval_r17 (gfc_array_r17 * const restrict,
+extern void maxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(maxval_r17);
void
-maxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+maxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ maxval_r17 (gfc_array_r17 * const restrict retarray,
}
-extern void mmaxval_r17 (gfc_array_r17 * const restrict,
+extern void mmaxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r17);
void
-mmaxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r17 (gfc_array_r17 * const restrict retarray,
}
-extern void smaxval_r17 (gfc_array_r17 * const restrict,
+extern void smaxval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r17);
void
-smaxval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c
index d4b895dea46e..c379d2e43205 100644
--- a/libgfortran/generated/maxval_r4.c
+++ b/libgfortran/generated/maxval_r4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void maxval_r4 (gfc_array_r4 * const restrict,
+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 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_r4 (gfc_array_r4 * const restrict retarray,
}
-extern void mmaxval_r4 (gfc_array_r4 * const restrict,
+extern void mmaxval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r4);
void
-mmaxval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r4 (gfc_array_r4 * const restrict retarray,
}
-extern void smaxval_r4 (gfc_array_r4 * const restrict,
+extern void smaxval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r4);
void
-smaxval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c
index 2b2b67990cfc..16e09bf3fb1f 100644
--- a/libgfortran/generated/maxval_r8.c
+++ b/libgfortran/generated/maxval_r8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void maxval_r8 (gfc_array_r8 * const restrict,
+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 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+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];
@@ -202,15 +202,15 @@ maxval_r8 (gfc_array_r8 * const restrict retarray,
}
-extern void mmaxval_r8 (gfc_array_r8 * const restrict,
+extern void mmaxval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mmaxval_r8);
void
-mmaxval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mmaxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mmaxval_r8 (gfc_array_r8 * const restrict retarray,
}
-extern void smaxval_r8 (gfc_array_r8 * const restrict,
+extern void smaxval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(smaxval_r8);
void
-smaxval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+smaxval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_i1.c b/libgfortran/generated/minloc1_16_i1.c
index 81006ef30c7a..840139f18dad 100644
--- a/libgfortran/generated/minloc1_16_i1.c
+++ b/libgfortran/generated/minloc1_16_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i1);
void
-minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i1);
void
-mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_i1 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i1 (gfc_array_i16 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i1);
void
-sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i1 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_i16.c b/libgfortran/generated/minloc1_16_i16.c
index 36ea12ddc9fd..4b6545fd012f 100644
--- a/libgfortran/generated/minloc1_16_i16.c
+++ b/libgfortran/generated/minloc1_16_i16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i16);
void
-minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i16);
void
-mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_i16 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i16);
void
-sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_i2.c b/libgfortran/generated/minloc1_16_i2.c
index 61c9f97d9320..89f9465b2b1a 100644
--- a/libgfortran/generated/minloc1_16_i2.c
+++ b/libgfortran/generated/minloc1_16_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i2);
void
-minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i2);
void
-mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_i2 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i2 (gfc_array_i16 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i2);
void
-sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i2 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_i4.c b/libgfortran/generated/minloc1_16_i4.c
index d8a3683ddbb1..4475dfe78e66 100644
--- a/libgfortran/generated/minloc1_16_i4.c
+++ b/libgfortran/generated/minloc1_16_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i4);
void
-minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i4);
void
-mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_i4 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i4 (gfc_array_i16 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i4);
void
-sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_i8.c b/libgfortran/generated/minloc1_16_i8.c
index 70bfdec06213..394789861ba5 100644
--- a/libgfortran/generated/minloc1_16_i8.c
+++ b/libgfortran/generated/minloc1_16_i8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void minloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_i8);
void
-minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_i8 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_i8);
void
-mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_i8 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_i8 (gfc_array_i16 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_i8);
void
-sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_i8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_r10.c b/libgfortran/generated/minloc1_16_r10.c
index 1f16bda32e3e..46fc94e801ff 100644
--- a/libgfortran/generated/minloc1_16_r10.c
+++ b/libgfortran/generated/minloc1_16_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r10);
void
-minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r10);
void
-mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_r10 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r10 (gfc_array_i16 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r10);
void
-sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r10 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_r16.c b/libgfortran/generated/minloc1_16_r16.c
index 35bf98ad650b..da3b8f2b7b9e 100644
--- a/libgfortran/generated/minloc1_16_r16.c
+++ b/libgfortran/generated/minloc1_16_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r16);
void
-minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r16);
void
-mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_r16 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r16 (gfc_array_i16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r16);
void
-sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_r17.c b/libgfortran/generated/minloc1_16_r17.c
index 31b3bbbfb1d8..8777ecfef3d0 100644
--- a/libgfortran/generated/minloc1_16_r17.c
+++ b/libgfortran/generated/minloc1_16_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r17);
void
-minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r17);
void
-mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_r17 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r17 (gfc_array_i16 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r17);
void
-sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r17 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_r4.c b/libgfortran/generated/minloc1_16_r4.c
index 845aa035012b..1c550175242f 100644
--- a/libgfortran/generated/minloc1_16_r4.c
+++ b/libgfortran/generated/minloc1_16_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r4);
void
-minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r4);
void
-mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_r4 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r4 (gfc_array_i16 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r4);
void
-sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r4 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_16_r8.c b/libgfortran/generated/minloc1_16_r8.c
index d6760091b8fc..e778c4709328 100644
--- a/libgfortran/generated/minloc1_16_r8.c
+++ b/libgfortran/generated/minloc1_16_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void minloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_16_r8);
void
-minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
-extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void mminloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_16_r8);
void
-mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
}
-extern void sminloc1_16_r8 (gfc_array_i16 * const restrict,
+extern void sminloc1_16_r8 (gfc_array_i16 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_16_r8);
void
-sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_16_r8 (gfc_array_i16 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_i1.c b/libgfortran/generated/minloc1_4_i1.c
index bd24eafe0176..639838bc5e9a 100644
--- a/libgfortran/generated/minloc1_4_i1.c
+++ b/libgfortran/generated/minloc1_4_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i1);
void
-minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i1);
void
-mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_i1 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i1 (gfc_array_i4 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i1);
void
-sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i1 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_i16.c b/libgfortran/generated/minloc1_4_i16.c
index 5a735a9029b7..b86e3cc06461 100644
--- a/libgfortran/generated/minloc1_4_i16.c
+++ b/libgfortran/generated/minloc1_4_i16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i16);
void
-minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i16 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i16);
void
-mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_i16 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i16 (gfc_array_i4 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i16);
void
-sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_i2.c b/libgfortran/generated/minloc1_4_i2.c
index 5328eefa36b0..8def21c8addb 100644
--- a/libgfortran/generated/minloc1_4_i2.c
+++ b/libgfortran/generated/minloc1_4_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i2);
void
-minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i2);
void
-mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_i2 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i2 (gfc_array_i4 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i2);
void
-sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i2 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c
index 84bd3373d69a..e42b9f8181b9 100644
--- a/libgfortran/generated/minloc1_4_i4.c
+++ b/libgfortran/generated/minloc1_4_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i4);
void
-minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i4);
void
-mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_i4 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i4);
void
-sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c
index 1425c39e6dc2..cc9fa4cc78d0 100644
--- a/libgfortran/generated/minloc1_4_i8.c
+++ b/libgfortran/generated/minloc1_4_i8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void minloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_i8);
void
-minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_i8 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_i8);
void
-mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_i8 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_i8 (gfc_array_i4 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_i8);
void
-sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_i8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_r10.c b/libgfortran/generated/minloc1_4_r10.c
index 6a9eae496e3d..65ce7b9c3f7a 100644
--- a/libgfortran/generated/minloc1_4_r10.c
+++ b/libgfortran/generated/minloc1_4_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r10);
void
-minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r10);
void
-mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_r10 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r10 (gfc_array_i4 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r10);
void
-sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r10 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_r16.c b/libgfortran/generated/minloc1_4_r16.c
index 66c3017b512d..ddd21c95d76a 100644
--- a/libgfortran/generated/minloc1_4_r16.c
+++ b/libgfortran/generated/minloc1_4_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r16);
void
-minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r16);
void
-mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_r16 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r16 (gfc_array_i4 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r16);
void
-sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r16 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_r17.c b/libgfortran/generated/minloc1_4_r17.c
index e600a430011c..0b90a10624e8 100644
--- a/libgfortran/generated/minloc1_4_r17.c
+++ b/libgfortran/generated/minloc1_4_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r17);
void
-minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r17);
void
-mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_r17 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r17 (gfc_array_i4 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r17);
void
-sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r17 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c
index a743d8d032c9..0a68f2c1cd27 100644
--- a/libgfortran/generated/minloc1_4_r4.c
+++ b/libgfortran/generated/minloc1_4_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r4);
void
-minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r4);
void
-mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_r4 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r4 (gfc_array_i4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r4);
void
-sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c
index a3d399e3050b..b89deb521ea3 100644
--- a/libgfortran/generated/minloc1_4_r8.c
+++ b/libgfortran/generated/minloc1_4_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void minloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_4_r8);
void
-minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
-extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void mminloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_4_r8);
void
-mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
}
-extern void sminloc1_4_r8 (gfc_array_i4 * const restrict,
+extern void sminloc1_4_r8 (gfc_array_i4 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_4_r8);
void
-sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_4_r8 (gfc_array_i4 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_i1.c b/libgfortran/generated/minloc1_8_i1.c
index 113725ea9112..f4fa5a091f43 100644
--- a/libgfortran/generated/minloc1_8_i1.c
+++ b/libgfortran/generated/minloc1_8_i1.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i1);
void
-minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i1);
void
-mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_i1 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i1 (gfc_array_i8 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i1);
void
-sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i1 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_i16.c b/libgfortran/generated/minloc1_8_i16.c
index 70ba7d5c53f3..73edefbf21a9 100644
--- a/libgfortran/generated/minloc1_8_i16.c
+++ b/libgfortran/generated/minloc1_8_i16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i16);
void
-minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i16 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i16);
void
-mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_i16 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i16 (gfc_array_i8 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i16);
void
-sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_i2.c b/libgfortran/generated/minloc1_8_i2.c
index ed14464347d2..126587caf771 100644
--- a/libgfortran/generated/minloc1_8_i2.c
+++ b/libgfortran/generated/minloc1_8_i2.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i2);
void
-minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i2);
void
-mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_i2 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i2 (gfc_array_i8 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i2);
void
-sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i2 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c
index 47e0a989147d..eafbbe10dcc0 100644
--- a/libgfortran/generated/minloc1_8_i4.c
+++ b/libgfortran/generated/minloc1_8_i4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i4);
void
-minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i4);
void
-mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_i4 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i4 (gfc_array_i8 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i4);
void
-sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c
index 6e2b50342e6c..c806250d7a5b 100644
--- a/libgfortran/generated/minloc1_8_i8.c
+++ b/libgfortran/generated/minloc1_8_i8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void minloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_i8);
void
-minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_i8);
void
-mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_i8 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_i8);
void
-sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_r10.c b/libgfortran/generated/minloc1_8_r10.c
index ef7126156b13..5e87310fb017 100644
--- a/libgfortran/generated/minloc1_8_r10.c
+++ b/libgfortran/generated/minloc1_8_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r10);
void
-minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r10);
void
-mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_r10 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r10 (gfc_array_i8 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r10);
void
-sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r10 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_r16.c b/libgfortran/generated/minloc1_8_r16.c
index b645a53ef644..a0df1baf7295 100644
--- a/libgfortran/generated/minloc1_8_r16.c
+++ b/libgfortran/generated/minloc1_8_r16.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r16);
void
-minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r16);
void
-mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_r16 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r16 (gfc_array_i8 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r16);
void
-sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r16 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_r17.c b/libgfortran/generated/minloc1_8_r17.c
index 51ccd09fc144..023ecd39a9a3 100644
--- a/libgfortran/generated/minloc1_8_r17.c
+++ b/libgfortran/generated/minloc1_8_r17.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r17);
void
-minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r17);
void
-mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_r17 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r17 (gfc_array_i8 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r17);
void
-sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r17 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c
index 14e491fc682f..b0d5d151c784 100644
--- a/libgfortran/generated/minloc1_8_r4.c
+++ b/libgfortran/generated/minloc1_8_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r4);
void
-minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r4);
void
-mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_r4 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r4 (gfc_array_i8 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r4);
void
-sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r4 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c
index 188a0cdf520f..2b12a8ae8d55 100644
--- a/libgfortran/generated/minloc1_8_r8.c
+++ b/libgfortran/generated/minloc1_8_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define HAVE_BACK_ARG 1
-extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void minloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back);
export_proto(minloc1_8_r8);
void
-minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
const index_type * const restrict pdim, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -226,15 +226,15 @@ minloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
-extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void mminloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict, GFC_LOGICAL_4 back);
export_proto(mminloc1_8_r8);
void
-mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -459,15 +459,15 @@ mminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
}
-extern void sminloc1_8_r8 (gfc_array_i8 * const restrict,
+extern void sminloc1_8_r8 (gfc_array_i8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *, GFC_LOGICAL_4 back);
export_proto(sminloc1_8_r8);
void
-sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminloc1_8_r8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask, GFC_LOGICAL_4 back)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_i1.c b/libgfortran/generated/minval_i1.c
index f27dfa1ac85e..fcf70e0e03d1 100644
--- a/libgfortran/generated/minval_i1.c
+++ b/libgfortran/generated/minval_i1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_1) && defined (HAVE_GFC_INTEGER_1)
-extern void minval_i1 (gfc_array_i1 * const restrict,
+extern void minval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict);
export_proto(minval_i1);
void
-minval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
+minval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void mminval_i1 (gfc_array_i1 * const restrict,
+extern void mminval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i1);
void
-mminval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i1 (gfc_array_i1 * const restrict retarray,
}
-extern void sminval_i1 (gfc_array_i1 * const restrict,
+extern void sminval_i1 (gfc_array_i1 * const restrict,
gfc_array_i1 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i1);
void
-sminval_i1 (gfc_array_i1 * const restrict retarray,
- gfc_array_i1 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i1 (gfc_array_i1 * const restrict retarray,
+ gfc_array_i1 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_i16.c b/libgfortran/generated/minval_i16.c
index a1da87483c68..e35fd997629b 100644
--- a/libgfortran/generated/minval_i16.c
+++ b/libgfortran/generated/minval_i16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_16) && defined (HAVE_GFC_INTEGER_16)
-extern void minval_i16 (gfc_array_i16 * const restrict,
+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 * const restrict retarray,
- gfc_array_i16 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void mminval_i16 (gfc_array_i16 * const restrict,
+extern void mminval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i16);
void
-mminval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i16 (gfc_array_i16 * const restrict retarray,
}
-extern void sminval_i16 (gfc_array_i16 * const restrict,
+extern void sminval_i16 (gfc_array_i16 * const restrict,
gfc_array_i16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i16);
void
-sminval_i16 (gfc_array_i16 * const restrict retarray,
- gfc_array_i16 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i16 (gfc_array_i16 * const restrict retarray,
+ gfc_array_i16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_i2.c b/libgfortran/generated/minval_i2.c
index 2ea0e7629d80..ac14b0e44ff6 100644
--- a/libgfortran/generated/minval_i2.c
+++ b/libgfortran/generated/minval_i2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_2) && defined (HAVE_GFC_INTEGER_2)
-extern void minval_i2 (gfc_array_i2 * const restrict,
+extern void minval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict);
export_proto(minval_i2);
void
-minval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
+minval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void mminval_i2 (gfc_array_i2 * const restrict,
+extern void mminval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i2);
void
-mminval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i2 (gfc_array_i2 * const restrict retarray,
}
-extern void sminval_i2 (gfc_array_i2 * const restrict,
+extern void sminval_i2 (gfc_array_i2 * const restrict,
gfc_array_i2 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i2);
void
-sminval_i2 (gfc_array_i2 * const restrict retarray,
- gfc_array_i2 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i2 (gfc_array_i2 * const restrict retarray,
+ gfc_array_i2 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c
index 30df475d3996..b40edc64c797 100644
--- a/libgfortran/generated/minval_i4.c
+++ b/libgfortran/generated/minval_i4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_4)
-extern void minval_i4 (gfc_array_i4 * const restrict,
+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 * const restrict retarray,
- gfc_array_i4 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void mminval_i4 (gfc_array_i4 * const restrict,
+extern void mminval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i4);
void
-mminval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i4 (gfc_array_i4 * const restrict retarray,
}
-extern void sminval_i4 (gfc_array_i4 * const restrict,
+extern void sminval_i4 (gfc_array_i4 * const restrict,
gfc_array_i4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i4);
void
-sminval_i4 (gfc_array_i4 * const restrict retarray,
- gfc_array_i4 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i4 (gfc_array_i4 * const restrict retarray,
+ gfc_array_i4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c
index 4da720271a2e..4152132d89ae 100644
--- a/libgfortran/generated/minval_i8.c
+++ b/libgfortran/generated/minval_i8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_INTEGER_8) && defined (HAVE_GFC_INTEGER_8)
-extern void minval_i8 (gfc_array_i8 * const restrict,
+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 * const restrict retarray,
- gfc_array_i8 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void mminval_i8 (gfc_array_i8 * const restrict,
+extern void mminval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_i8);
void
-mminval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+mminval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_i8 (gfc_array_i8 * const restrict retarray,
}
-extern void sminval_i8 (gfc_array_i8 * const restrict,
+extern void sminval_i8 (gfc_array_i8 * const restrict,
gfc_array_i8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_i8);
void
-sminval_i8 (gfc_array_i8 * const restrict retarray,
- gfc_array_i8 * const restrict array,
- const index_type * const restrict pdim,
+sminval_i8 (gfc_array_i8 * const restrict retarray,
+ gfc_array_i8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_r10.c b/libgfortran/generated/minval_r10.c
index b3b729da9006..0fc412125b94 100644
--- a/libgfortran/generated/minval_r10.c
+++ b/libgfortran/generated/minval_r10.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_10) && defined (HAVE_GFC_REAL_10)
-extern void minval_r10 (gfc_array_r10 * const restrict,
+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 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_r10 (gfc_array_r10 * const restrict retarray,
}
-extern void mminval_r10 (gfc_array_r10 * const restrict,
+extern void mminval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r10);
void
-mminval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r10 (gfc_array_r10 * const restrict retarray,
}
-extern void sminval_r10 (gfc_array_r10 * const restrict,
+extern void sminval_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r10);
void
-sminval_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r10 (gfc_array_r10 * const restrict retarray,
+ gfc_array_r10 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_r16.c b/libgfortran/generated/minval_r16.c
index 3137d054fdf0..4dedffd07934 100644
--- a/libgfortran/generated/minval_r16.c
+++ b/libgfortran/generated/minval_r16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_16) && defined (HAVE_GFC_REAL_16)
-extern void minval_r16 (gfc_array_r16 * const restrict,
+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 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_r16 (gfc_array_r16 * const restrict retarray,
}
-extern void mminval_r16 (gfc_array_r16 * const restrict,
+extern void mminval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r16);
void
-mminval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r16 (gfc_array_r16 * const restrict retarray,
}
-extern void sminval_r16 (gfc_array_r16 * const restrict,
+extern void sminval_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r16);
void
-sminval_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r16 (gfc_array_r16 * const restrict retarray,
+ gfc_array_r16 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_r17.c b/libgfortran/generated/minval_r17.c
index 3772fbee3ea0..efb4c6513fc2 100644
--- a/libgfortran/generated/minval_r17.c
+++ b/libgfortran/generated/minval_r17.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_17) && defined (HAVE_GFC_REAL_17)
-extern void minval_r17 (gfc_array_r17 * const restrict,
+extern void minval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(minval_r17);
void
-minval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+minval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -202,15 +202,15 @@ minval_r17 (gfc_array_r17 * const restrict retarray,
}
-extern void mminval_r17 (gfc_array_r17 * const restrict,
+extern void mminval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r17);
void
-mminval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r17 (gfc_array_r17 * const restrict retarray,
}
-extern void sminval_r17 (gfc_array_r17 * const restrict,
+extern void sminval_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r17);
void
-sminval_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c
index ecc054a5d6d9..4370f4d13169 100644
--- a/libgfortran/generated/minval_r4.c
+++ b/libgfortran/generated/minval_r4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4)
-extern void minval_r4 (gfc_array_r4 * const restrict,
+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 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_r4 (gfc_array_r4 * const restrict retarray,
}
-extern void mminval_r4 (gfc_array_r4 * const restrict,
+extern void mminval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r4);
void
-mminval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r4 (gfc_array_r4 * const restrict retarray,
}
-extern void sminval_r4 (gfc_array_r4 * const restrict,
+extern void sminval_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r4);
void
-sminval_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r4 (gfc_array_r4 * const restrict retarray,
+ gfc_array_r4 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c
index 5e5ca794f57c..bab37af88d79 100644
--- a/libgfortran/generated/minval_r8.c
+++ b/libgfortran/generated/minval_r8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_REAL_8) && defined (HAVE_GFC_REAL_8)
-extern void minval_r8 (gfc_array_r8 * const restrict,
+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 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+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];
@@ -202,15 +202,15 @@ minval_r8 (gfc_array_r8 * const restrict retarray,
}
-extern void mminval_r8 (gfc_array_r8 * const restrict,
+extern void mminval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
gfc_array_l1 * const restrict);
export_proto(mminval_r8);
void
-mminval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+mminval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
gfc_array_l1 * const restrict mask)
{
index_type count[GFC_MAX_DIMENSIONS];
@@ -420,15 +420,15 @@ mminval_r8 (gfc_array_r8 * const restrict retarray,
}
-extern void sminval_r8 (gfc_array_r8 * const restrict,
+extern void sminval_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict,
GFC_LOGICAL_4 *);
export_proto(sminval_r8);
void
-sminval_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
- const index_type * const restrict pdim,
+sminval_r8 (gfc_array_r8 * const restrict retarray,
+ gfc_array_r8 * const restrict array,
+ const index_type * const restrict pdim,
GFC_LOGICAL_4 * mask)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/norm2_r10.c b/libgfortran/generated/norm2_r10.c
index 98625a42db7b..c879f54cbfc9 100644
--- a/libgfortran/generated/norm2_r10.c
+++ b/libgfortran/generated/norm2_r10.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define MATHFUNC(funcname) funcname ## l
-extern void norm2_r10 (gfc_array_r10 * const restrict,
+extern void norm2_r10 (gfc_array_r10 * const restrict,
gfc_array_r10 * const restrict, const index_type * const restrict);
export_proto(norm2_r10);
void
-norm2_r10 (gfc_array_r10 * const restrict retarray,
- gfc_array_r10 * const restrict array,
+norm2_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];
diff --git a/libgfortran/generated/norm2_r16.c b/libgfortran/generated/norm2_r16.c
index 62c5a4065dc2..84fbe3b0c932 100644
--- a/libgfortran/generated/norm2_r16.c
+++ b/libgfortran/generated/norm2_r16.c
@@ -40,13 +40,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#endif
-extern void norm2_r16 (gfc_array_r16 * const restrict,
+extern void norm2_r16 (gfc_array_r16 * const restrict,
gfc_array_r16 * const restrict, const index_type * const restrict);
export_proto(norm2_r16);
void
-norm2_r16 (gfc_array_r16 * const restrict retarray,
- gfc_array_r16 * const restrict array,
+norm2_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];
diff --git a/libgfortran/generated/norm2_r17.c b/libgfortran/generated/norm2_r17.c
index 91fa70423660..72ad123df17a 100644
--- a/libgfortran/generated/norm2_r17.c
+++ b/libgfortran/generated/norm2_r17.c
@@ -38,13 +38,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#endif
-extern void norm2_r17 (gfc_array_r17 * const restrict,
+extern void norm2_r17 (gfc_array_r17 * const restrict,
gfc_array_r17 * const restrict, const index_type * const restrict);
export_proto(norm2_r17);
void
-norm2_r17 (gfc_array_r17 * const restrict retarray,
- gfc_array_r17 * const restrict array,
+norm2_r17 (gfc_array_r17 * const restrict retarray,
+ gfc_array_r17 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c
index 164963af6bd7..65ba9822e4dc 100644
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define MATHFUNC(funcname) funcname ## f
-extern void norm2_r4 (gfc_array_r4 * const restrict,
+extern void norm2_r4 (gfc_array_r4 * const restrict,
gfc_array_r4 * const restrict, const index_type * const restrict);
export_proto(norm2_r4);
void
-norm2_r4 (gfc_array_r4 * const restrict retarray,
- gfc_array_r4 * const restrict array,
+norm2_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];
diff --git a/libgfortran/generated/norm2_r8.c b/libgfortran/generated/norm2_r8.c
index fecf60ede544..c10e6a046138 100644
--- a/libgfortran/generated/norm2_r8.c
+++ b/libgfortran/generated/norm2_r8.c
@@ -32,13 +32,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#define MATHFUNC(funcname) funcname
-extern void norm2_r8 (gfc_array_r8 * const restrict,
+extern void norm2_r8 (gfc_array_r8 * const restrict,
gfc_array_r8 * const restrict, const index_type * const restrict);
export_proto(norm2_r8);
void
-norm2_r8 (gfc_array_r8 * const restrict retarray,
- gfc_array_r8 * const restrict array,
+norm2_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];
diff --git a/libgfortran/generated/parity_l1.c b/libgfortran/generated/parity_l1.c
index 0e1007ad3085..7d5bc9128f61 100644
--- a/libgfortran/generated/parity_l1.c
+++ b/libgfortran/generated/parity_l1.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_LOGICAL_1) && defined (HAVE_GFC_LOGICAL_1)
-extern void parity_l1 (gfc_array_l1 * const restrict,
+extern void parity_l1 (gfc_array_l1 * const restrict,
gfc_array_l1 * const restrict, const index_type * const restrict);
export_proto(parity_l1);
void
-parity_l1 (gfc_array_l1 * const restrict retarray,
- gfc_array_l1 * const restrict array,
+parity_l1 (gfc_array_l1 * const restrict retarray,
+ gfc_array_l1 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/parity_l16.c b/libgfortran/generated/parity_l16.c
index d0c1065bac38..3276e1b84892 100644
--- a/libgfortran/generated/parity_l16.c
+++ b/libgfortran/generated/parity_l16.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_LOGICAL_16) && defined (HAVE_GFC_LOGICAL_16)
-extern void parity_l16 (gfc_array_l16 * const restrict,
+extern void parity_l16 (gfc_array_l16 * const restrict,
gfc_array_l16 * const restrict, const index_type * const restrict);
export_proto(parity_l16);
void
-parity_l16 (gfc_array_l16 * const restrict retarray,
- gfc_array_l16 * const restrict array,
+parity_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];
diff --git a/libgfortran/generated/parity_l2.c b/libgfortran/generated/parity_l2.c
index bff60b224c0e..1f1221451f96 100644
--- a/libgfortran/generated/parity_l2.c
+++ b/libgfortran/generated/parity_l2.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_LOGICAL_2) && defined (HAVE_GFC_LOGICAL_2)
-extern void parity_l2 (gfc_array_l2 * const restrict,
+extern void parity_l2 (gfc_array_l2 * const restrict,
gfc_array_l2 * const restrict, const index_type * const restrict);
export_proto(parity_l2);
void
-parity_l2 (gfc_array_l2 * const restrict retarray,
- gfc_array_l2 * const restrict array,
+parity_l2 (gfc_array_l2 * const restrict retarray,
+ gfc_array_l2 * const restrict array,
const index_type * const restrict pdim)
{
index_type count[GFC_MAX_DIMENSIONS];
diff --git a/libgfortran/generated/parity_l4.c b/libgfortran/generated/parity_l4.c
index 3ac03cb9d29a..dcc8cd45e9af 100644
--- a/libgfortran/generated/parity_l4.c
+++ b/libgfortran/generated/parity_l4.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_LOGICAL_4) && defined (HAVE_GFC_LOGICAL_4)
-extern void parity_l4 (gfc_array_l4 * const restrict,
+extern void parity_l4 (gfc_array_l4 * const restrict,
gfc_array_l4 * const restrict, const index_type * const restrict);
export_proto(parity_l4);
void
-parity_l4 (gfc_array_l4 * const restrict retarray,
- gfc_array_l4 * const restrict array,
+parity_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];
diff --git a/libgfortran/generated/parity_l8.c b/libgfortran/generated/parity_l8.c
index 6ce6a8bd6389..dee33acef3ba 100644
--- a/libgfortran/generated/parity_l8.c
+++ b/libgfortran/generated/parity_l8.c
@@ -29,13 +29,13 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
#if defined (HAVE_GFC_LOGICAL_8) && defined (HAVE_GFC_LOGICAL_8)
-extern void parity_l8 (gfc_array_l8 * const restrict,
+extern void parity_l8 (gfc_array_l8 * const restrict,
gfc_array_l8 * const restrict, const index_type * const restrict);
export_proto(parity_l8);
void
-parity_l8 (gfc_array_l8 * const restrict retarray,
- gfc_array_l8 * const restrict array,
+parity_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];
More information about the Gcc-cvs
mailing list