diff options
Diffstat (limited to 'libgfortran')
120 files changed, 1105 insertions, 1105 deletions
diff --git a/libgfortran/generated/iall_i1.c b/libgfortran/generated/iall_i1.c index d82d8ba..2e322c1 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 ee13452..c70b698 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 a57aabd..bede3c3 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 039256d..3e4370b 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 9f41e60..1651a47 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 ebe21e4..a9b24f2 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 8cbb439..34d0954 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 01f6f6c..554a024 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 7bc70d1..d4c824f 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 4165061..cebeec2 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 f3ec328..b7cdb3e 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 1111bbc..f627263 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 ef0a9e7..4481a04 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 189d820..e0c65dd 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 1d2f33b..f2feec9 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 7094a5f..6e08480 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 4a1a340..57d24ec 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 52b3c0d..7d54c0d 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 f0014cc..a7708c5 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 94764a9..b0d325f 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 3ab8eda..f5e5bef 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 c8ef87e..f686f7a 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 88f3452..f6a162d 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 272692e..0a28e4b 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 a1db25b..a077a26 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 8d164d0..31c62ba 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 ee536b5..1ed5516 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 b45f3b3..f1e5852 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 104b1df..5372623 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 f76301d..ee7bc4a 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 853fe3f..31e17c4 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 96f76ac..227ab99 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 a286151..40fbf8b 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 ad9de40..28f1f4f 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_i8.c b/libgfortran/generated/maxloc1_16_i8.c index 6439eed..ee97c1a 100644 --- a/libgfortran/generated/maxloc1_16_i8.c +++ b/libgfortran/generated/maxloc1_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 maxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void maxloc1_16_i8 (gfc_array_i16 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_16_i8); void -maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_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]; @@ -216,15 +216,15 @@ maxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void mmaxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void mmaxloc1_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(mmaxloc1_16_i8); void -mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_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]; @@ -449,15 +449,15 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, } -extern void smaxloc1_16_i8 (gfc_array_i16 * const restrict, +extern void smaxloc1_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(smaxloc1_16_i8); void -smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_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/maxloc1_16_r10.c b/libgfortran/generated/maxloc1_16_r10.c index 2462713..87b5647 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 5ad73be..2bc6edb 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 4444d41..ce52598 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 0be7ad1..5ae022f 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 fd3dae9..cf2e126 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 664c1db..a54feb4 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_i16.c b/libgfortran/generated/maxloc1_4_i16.c index 1f07aa0..cb866c0 100644 --- a/libgfortran/generated/maxloc1_4_i16.c +++ b/libgfortran/generated/maxloc1_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 maxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i16 (gfc_array_i4 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i16); void -maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxloc1_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]; @@ -216,15 +216,15 @@ maxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void mmaxloc1_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(mmaxloc1_4_i16); void -mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_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]; @@ -449,15 +449,15 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i16 (gfc_array_i4 * const restrict, +extern void smaxloc1_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(smaxloc1_4_i16); void -smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_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/maxloc1_4_i2.c b/libgfortran/generated/maxloc1_4_i2.c index f7152f1..45aa9a1 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 e5d3484..ae966d8 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_i8.c b/libgfortran/generated/maxloc1_4_i8.c index bcc3445..31bff23 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_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 maxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void maxloc1_4_i8 (gfc_array_i4 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_4_i8); void -maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_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]; @@ -216,15 +216,15 @@ maxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void mmaxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void mmaxloc1_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(mmaxloc1_4_i8); void -mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_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]; @@ -449,15 +449,15 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, } -extern void smaxloc1_4_i8 (gfc_array_i4 * const restrict, +extern void smaxloc1_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(smaxloc1_4_i8); void -smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_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/maxloc1_4_r10.c b/libgfortran/generated/maxloc1_4_r10.c index 0b0ac4b..fdab042 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 ffc1e4d..9eedf78 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 f59a9ee..516268e 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 bd9343f..1ccc30c 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 a63ae6a..86da064 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 01b30c9..bb74533 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_i16.c b/libgfortran/generated/maxloc1_8_i16.c index 6fa0ed3..6e8061a 100644 --- a/libgfortran/generated/maxloc1_8_i16.c +++ b/libgfortran/generated/maxloc1_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 maxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i16 (gfc_array_i8 * const restrict, gfc_array_i16 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i16); void -maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, +maxloc1_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]; @@ -216,15 +216,15 @@ maxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void mmaxloc1_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(mmaxloc1_8_i16); void -mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_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]; @@ -449,15 +449,15 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i16 (gfc_array_i8 * const restrict, +extern void smaxloc1_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(smaxloc1_8_i16); void -smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray, - gfc_array_i16 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_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/maxloc1_8_i2.c b/libgfortran/generated/maxloc1_8_i2.c index 9396613..ed4fda5 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 baf6d9a..4c70831 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_i8.c b/libgfortran/generated/maxloc1_8_i8.c index b72c973..d0c3495 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_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 maxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void maxloc1_8_i8 (gfc_array_i8 * const restrict, gfc_array_i8 * const restrict, const index_type * const restrict, GFC_LOGICAL_4 back); export_proto(maxloc1_8_i8); void -maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, +maxloc1_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]; @@ -216,15 +216,15 @@ maxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void mmaxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void mmaxloc1_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(mmaxloc1_8_i8); void -mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +mmaxloc1_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]; @@ -449,15 +449,15 @@ mmaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, } -extern void smaxloc1_8_i8 (gfc_array_i8 * const restrict, +extern void smaxloc1_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(smaxloc1_8_i8); void -smaxloc1_8_i8 (gfc_array_i8 * const restrict retarray, - gfc_array_i8 * const restrict array, - const index_type * const restrict pdim, +smaxloc1_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/maxloc1_8_r10.c b/libgfortran/generated/maxloc1_8_r10.c index d593dd6..f67183f 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 8a270d8..6b2fc59 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 03a37c5..65b4808 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 b4917a3..844038c 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 ed60a45..7e61bfe 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 984f7b0..a7672ac 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 7effaa0..1ab0245 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 f39f1e1..8aa05bb 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 95aff8c..a149303 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 1743335..42746ce 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 dbf6899..7488db0 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 73cb64f..c735944 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 07cbbe1..9e47d65 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 d4b895d..c379d2e 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 2b2b6799..16e09bf 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 81006ef..840139f 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 36ea12d..4b6545f 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 61c9f97..89f9465 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 d8a3683..4475dfe 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 70bfdec..3947898 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 1f16bda..46fc94e 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 35bf98a..da3b8f2 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 31b3bbb..8777ecf 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 845aa03..1c55017 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 d676009..e778c47 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 bd24eaf..639838b 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 5a735a9..b86e3cc 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 5328eef..8def21c 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 84bd337..e42b9f8 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 1425c39..cc9fa4c 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 6a9eae4..65ce7b9 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 66c3017..ddd21c9 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 e600a43..0b90a10 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 a743d8d..0a68f2c 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 a3d399e3..b89deb5 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 113725e..f4fa5a0 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 70ba7d5..73edefb 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 ed14464..126587c 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 47e0a98..eafbbe1 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 6e2b503..c806250 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 ef71261..5e87310 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 b645a53..a0df1ba 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 51ccd09..023ecd3 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 14e491f..b0d5d151 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 188a0cd..2b12a8a 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 f27dfa1..fcf70e0 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 a1da874..e35fd99 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 2ea0e76..ac14b0e 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 30df475..b40edc6 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 4da7202..4152132 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 b3b729d..0fc4121 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 3137d05..4dedffd 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 3772fbe..efb4c65 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 ecc054a..4370f4d 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 5e5ca79..bab37af 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 98625a4..c879f54 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 62c5a40..84fbe3b 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 91fa704..72ad123 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 164963a..65ba982 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 fecf60e..c10e6a0 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 0e1007a..7d5bc912 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 d0c1065..3276e1b 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 bff60b2..1f12214 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 3ac03cb..dcc8cd4 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 6ce6a8b..dee33ac 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]; |