diff options
| author | Richard Henderson <rth@redhat.com> | 2004-12-12 00:59:05 -0800 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-12-12 00:59:05 -0800 |
| commit | 7d7b8bfe55f8598f2fa0f842fb7f95060c45fa35 (patch) | |
| tree | cb0ecd2cd7b8c21d4d1c38261b5b7116e8dd2782 /libgfortran/generated | |
| parent | c431e4997fcca052667b780341ddf4df5f6eb55c (diff) | |
| download | gcc-7d7b8bfe55f8598f2fa0f842fb7f95060c45fa35.zip gcc-7d7b8bfe55f8598f2fa0f842fb7f95060c45fa35.tar.gz gcc-7d7b8bfe55f8598f2fa0f842fb7f95060c45fa35.tar.bz2 | |
acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.
* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.
(LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT): New.
(LIBGFOR_CHECK_ATTRIBUTE_ALIAS): New.
* configure.ac: Use them.
* configure, config.h.in, aclocal.m4: Rebuild.
* libgfortran.h (prefix): Remove.
(PREFIX, IPREFIX): New.
(sym_rename, sym_rename1, sym_rename2): New.
(internal_proto, export_proto, export_proto_np): New.
(iexport_proto, iexport): New.
(iexport_data_proto, iexport_data): New.
* intrinsics/abort.c, intrinsics/args.c, intrinsics/associated.c,
intrinsics/cpu_time.c, intrinsics/cshift0.c,
intrinsics/date_and_time.c, intrinsics/env.c, intrinsics/eoshift0.c,
intrinsics/eoshift2.c, intrinsics/etime.c, intrinsics/exit.c,
intrinsics/flush.c, intrinsics/fnum.c, intrinsics/getXid.c,
intrinsics/getcwd.c, intrinsics/ishftc.c, intrinsics/mvbits.c,
intrinsics/pack_generic.c, intrinsics/rand.c, intrinsics/random.c,
intrinsics/reshape_generic.c, intrinsics/size.c,
intrinsics/spread_generic.c, intrinsics/stat.c,
intrinsics/string_intrinsics.c, intrinsics/system.c,
intrinsics/system_clock.c, intrinsics/transpose_generic.c,
intrinsics/umask.c, intrinsics/unlink.c, intrinsics/unpack_generic.c,
io/backspace.c, io/close.c, io/endfile.c, io/inquire.c, io/io.h,
io/open.c, io/rewind.c, io/transfer.c, libgfortran.h, m4/cshift1.m4,
m4/dotprod.m4, m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4,
m4/eoshift3.m4, m4/exponent.m4, m4/fraction.m4, m4/iforeach.m4,
m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, m4/nearest.m4,
m4/pow.m4, m4/reshape.m4, m4/set_exponent.m4, m4/shape.m4,
m4/transpose.m4, runtime/environ.c, runtime/error.c,
runtime/in_pack_generic.c, runtime/in_unpack_generic.c,
runtime/main.c, runtime/memory.c, runtime/pause.c, runtime/select.c,
runtime/stop.c: Use them to mark symbols internal or external.
* generated/*: Rebuild.
From-SVN: r92045
Diffstat (limited to 'libgfortran/generated')
108 files changed, 750 insertions, 112 deletions
diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 5a517c1..3c81520 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); +export_proto_np(__all_l4); + void -__all_l4 (gfc_array_l4 * retarray, gfc_array_l4 *array, index_type *pdim) +__all_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/all_l8.c b/libgfortran/generated/all_l8.c index a583963..c7a8df0 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); +export_proto_np(__all_l8); + void -__all_l8 (gfc_array_l8 * retarray, gfc_array_l8 *array, index_type *pdim) +__all_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/any_l4.c b/libgfortran/generated/any_l4.c index 93beea7..da3f2b7 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); +export_proto_np(__any_l4); + void -__any_l4 (gfc_array_l4 * retarray, gfc_array_l4 *array, index_type *pdim) +__any_l4 (gfc_array_l4 *retarray, gfc_array_l4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/any_l8.c b/libgfortran/generated/any_l8.c index bc0ede8..8258db9 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); +export_proto_np(__any_l8); + void -__any_l8 (gfc_array_l8 * retarray, gfc_array_l8 *array, index_type *pdim) +__any_l8 (gfc_array_l8 *retarray, gfc_array_l8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/count_4_l4.c b/libgfortran/generated/count_4_l4.c index 9c33c2e..0e3e298 100644 --- a/libgfortran/generated/count_4_l4.c +++ b/libgfortran/generated/count_4_l4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *); +export_proto_np(__count_4_l4); + void -__count_4_l4 (gfc_array_i4 * retarray, gfc_array_l4 *array, index_type *pdim) +__count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/count_4_l8.c b/libgfortran/generated/count_4_l8.c index 288aa3a..7e9a376 100644 --- a/libgfortran/generated/count_4_l8.c +++ b/libgfortran/generated/count_4_l8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *); +export_proto_np(__count_4_l8); + void -__count_4_l8 (gfc_array_i4 * retarray, gfc_array_l8 *array, index_type *pdim) +__count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/count_8_l4.c b/libgfortran/generated/count_8_l4.c index bf83d3e..c23895b 100644 --- a/libgfortran/generated/count_8_l4.c +++ b/libgfortran/generated/count_8_l4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *); +export_proto_np(__count_8_l4); + void -__count_8_l4 (gfc_array_i8 * retarray, gfc_array_l4 *array, index_type *pdim) +__count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/count_8_l8.c b/libgfortran/generated/count_8_l8.c index ef05c6d..1535af4 100644 --- a/libgfortran/generated/count_8_l8.c +++ b/libgfortran/generated/count_8_l8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *); +export_proto_np(__count_8_l8); + void -__count_8_l8 (gfc_array_i8 * retarray, gfc_array_l8 *array, index_type *pdim) +__count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/cshift1_4.c b/libgfortran/generated/cshift1_4.c index 9375074..9293eae 100644 --- a/libgfortran/generated/cshift1_4.c +++ b/libgfortran/generated/cshift1_4.c @@ -25,9 +25,15 @@ Boston, MA 02111-1307, USA. */ #include <string.h> #include "libgfortran.h" +void __cshift1_4 (const gfc_array_char * ret, + const gfc_array_char * array, + const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich); +export_proto_np(__cshift1_4); + void -__cshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich) +__cshift1_4 (const gfc_array_char * ret, + const gfc_array_char * array, + const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -41,7 +47,7 @@ __cshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, index_type soffset; const char *sptr; const char *src; - /* h.* indicates the shift array. */ + /* h.* indicates the array. */ index_type hstride[GFC_MAX_DIMENSIONS - 1]; index_type hstride0; const GFC_INTEGER_4 *hptr; @@ -70,7 +76,7 @@ __cshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, size = GFC_DESCRIPTOR_SIZE (array); n = 0; -/* Initialized for avoiding compiler warnings. */ + /* Initialized for avoiding compiler warnings. */ roffset = size; soffset = size; len = 0; @@ -115,7 +121,7 @@ __cshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, while (rptr) { - /* Do the shift for this dimension. */ + /* Do the for this dimension. */ sh = *hptr; sh = (div (sh, len)).rem; if (sh < 0) @@ -167,4 +173,3 @@ __cshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, } } } - diff --git a/libgfortran/generated/cshift1_8.c b/libgfortran/generated/cshift1_8.c index 7303d56..803984f 100644 --- a/libgfortran/generated/cshift1_8.c +++ b/libgfortran/generated/cshift1_8.c @@ -25,9 +25,15 @@ Boston, MA 02111-1307, USA. */ #include <string.h> #include "libgfortran.h" +void __cshift1_8 (const gfc_array_char * ret, + const gfc_array_char * array, + const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich); +export_proto_np(__cshift1_8); + void -__cshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich) +__cshift1_8 (const gfc_array_char * ret, + const gfc_array_char * array, + const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -41,7 +47,7 @@ __cshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, index_type soffset; const char *sptr; const char *src; - /* h.* indicates the shift array. */ + /* h.* indicates the array. */ index_type hstride[GFC_MAX_DIMENSIONS - 1]; index_type hstride0; const GFC_INTEGER_8 *hptr; @@ -70,7 +76,7 @@ __cshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, size = GFC_DESCRIPTOR_SIZE (array); n = 0; -/* Initialized for avoiding compiler warnings. */ + /* Initialized for avoiding compiler warnings. */ roffset = size; soffset = size; len = 0; @@ -115,7 +121,7 @@ __cshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, while (rptr) { - /* Do the shift for this dimension. */ + /* Do the for this dimension. */ sh = *hptr; sh = (div (sh, len)).rem; if (sh < 0) @@ -167,4 +173,3 @@ __cshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, } } } - diff --git a/libgfortran/generated/dotprod_c4.c b/libgfortran/generated/dotprod_c4.c index 9812ab4..ff60a23 100644 --- a/libgfortran/generated/dotprod_c4.c +++ b/libgfortran/generated/dotprod_c4.c @@ -27,6 +27,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_COMPLEX_4 __dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b); +export_proto_np(__dot_product_c4); + /* Both parameters will already have been converted to the result type. */ GFC_COMPLEX_4 __dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b) @@ -64,4 +67,3 @@ __dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b) return res; } - diff --git a/libgfortran/generated/dotprod_c8.c b/libgfortran/generated/dotprod_c8.c index fde1802..cf22c37 100644 --- a/libgfortran/generated/dotprod_c8.c +++ b/libgfortran/generated/dotprod_c8.c @@ -27,6 +27,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_COMPLEX_8 __dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b); +export_proto_np(__dot_product_c8); + /* Both parameters will already have been converted to the result type. */ GFC_COMPLEX_8 __dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b) @@ -64,4 +67,3 @@ __dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b) return res; } - diff --git a/libgfortran/generated/dotprod_i4.c b/libgfortran/generated/dotprod_i4.c index 374d925..c0d6726 100644 --- a/libgfortran/generated/dotprod_i4.c +++ b/libgfortran/generated/dotprod_i4.c @@ -26,6 +26,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_INTEGER_4 __dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b); +export_proto_np(__dot_product_i4); + /* Both parameters will already have been converted to the result type. */ GFC_INTEGER_4 __dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b) @@ -61,4 +64,3 @@ __dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b) return res; } - diff --git a/libgfortran/generated/dotprod_i8.c b/libgfortran/generated/dotprod_i8.c index 6702a1d..5722431 100644 --- a/libgfortran/generated/dotprod_i8.c +++ b/libgfortran/generated/dotprod_i8.c @@ -26,6 +26,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_INTEGER_8 __dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b); +export_proto_np(__dot_product_i8); + /* Both parameters will already have been converted to the result type. */ GFC_INTEGER_8 __dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b) @@ -61,4 +64,3 @@ __dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b) return res; } - diff --git a/libgfortran/generated/dotprod_l4.c b/libgfortran/generated/dotprod_l4.c index 292c038..6248c9c 100644 --- a/libgfortran/generated/dotprod_l4.c +++ b/libgfortran/generated/dotprod_l4.c @@ -24,6 +24,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern GFC_LOGICAL_4 __dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *); +export_proto_np(__dot_product_l4); + GFC_LOGICAL_4 __dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b) { @@ -71,4 +74,3 @@ __dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b) return 0; } - diff --git a/libgfortran/generated/dotprod_l8.c b/libgfortran/generated/dotprod_l8.c index 4316607..7086288 100644 --- a/libgfortran/generated/dotprod_l8.c +++ b/libgfortran/generated/dotprod_l8.c @@ -24,6 +24,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern GFC_LOGICAL_8 __dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *); +export_proto_np(__dot_product_l8); + GFC_LOGICAL_8 __dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b) { @@ -71,4 +74,3 @@ __dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b) return 0; } - diff --git a/libgfortran/generated/dotprod_r4.c b/libgfortran/generated/dotprod_r4.c index 1edfea3..801e43e 100644 --- a/libgfortran/generated/dotprod_r4.c +++ b/libgfortran/generated/dotprod_r4.c @@ -26,6 +26,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_REAL_4 __dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b); +export_proto_np(__dot_product_r4); + /* Both parameters will already have been converted to the result type. */ GFC_REAL_4 __dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b) @@ -61,4 +64,3 @@ __dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b) return res; } - diff --git a/libgfortran/generated/dotprod_r8.c b/libgfortran/generated/dotprod_r8.c index bf35710..edde2b2 100644 --- a/libgfortran/generated/dotprod_r8.c +++ b/libgfortran/generated/dotprod_r8.c @@ -26,6 +26,9 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; +extern GFC_REAL_8 __dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b); +export_proto_np(__dot_product_r8); + /* Both parameters will already have been converted to the result type. */ GFC_REAL_8 __dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b) @@ -61,4 +64,3 @@ __dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b) return res; } - diff --git a/libgfortran/generated/eoshift1_4.c b/libgfortran/generated/eoshift1_4.c index 05b1af6..aaccb54 100644 --- a/libgfortran/generated/eoshift1_4.c +++ b/libgfortran/generated/eoshift1_4.c @@ -28,9 +28,17 @@ Boston, MA 02111-1307, USA. */ static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +extern void __eoshift1_4 (const gfc_array_char *, + const gfc_array_char *, + const gfc_array_i4 *, const char *, + const GFC_INTEGER_4 *); +export_proto_np(__eoshift1_4); + void -__eoshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_i4 * h, const char * pbound, const GFC_INTEGER_4 * pwhich) +__eoshift1_4 (const gfc_array_char *ret, + const gfc_array_char *array, + const gfc_array_i4 *h, const char *pbound, + const GFC_INTEGER_4 *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -175,4 +183,3 @@ __eoshift1_4 (const gfc_array_char * ret, const gfc_array_char * array, } } } - diff --git a/libgfortran/generated/eoshift1_8.c b/libgfortran/generated/eoshift1_8.c index f74c022..3f37eb8 100644 --- a/libgfortran/generated/eoshift1_8.c +++ b/libgfortran/generated/eoshift1_8.c @@ -28,9 +28,17 @@ Boston, MA 02111-1307, USA. */ static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +extern void __eoshift1_8 (const gfc_array_char *, + const gfc_array_char *, + const gfc_array_i8 *, const char *, + const GFC_INTEGER_8 *); +export_proto_np(__eoshift1_8); + void -__eoshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_i8 * h, const char * pbound, const GFC_INTEGER_8 * pwhich) +__eoshift1_8 (const gfc_array_char *ret, + const gfc_array_char *array, + const gfc_array_i8 *h, const char *pbound, + const GFC_INTEGER_8 *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -175,4 +183,3 @@ __eoshift1_8 (const gfc_array_char * ret, const gfc_array_char * array, } } } - diff --git a/libgfortran/generated/eoshift3_4.c b/libgfortran/generated/eoshift3_4.c index 07c2d9e..7609b2e 100644 --- a/libgfortran/generated/eoshift3_4.c +++ b/libgfortran/generated/eoshift3_4.c @@ -28,9 +28,15 @@ Boston, MA 02111-1307, USA. */ static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +extern void __eoshift3_4 (gfc_array_char *, gfc_array_char *, + gfc_array_i4 *, const gfc_array_char *, + GFC_INTEGER_4 *); +export_proto_np(__eoshift3_4); + void -__eoshift3_4 (gfc_array_char * ret, gfc_array_char * array, - gfc_array_i4 * h, const gfc_array_char * bound, GFC_INTEGER_4 * pwhich) +__eoshift3_4 (gfc_array_char *ret, gfc_array_char *array, + gfc_array_i4 *h, const gfc_array_char *bound, + GFC_INTEGER_4 *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -190,4 +196,3 @@ __eoshift3_4 (gfc_array_char * ret, gfc_array_char * array, } } } - diff --git a/libgfortran/generated/eoshift3_8.c b/libgfortran/generated/eoshift3_8.c index fcb161d..3274bce 100644 --- a/libgfortran/generated/eoshift3_8.c +++ b/libgfortran/generated/eoshift3_8.c @@ -28,9 +28,15 @@ Boston, MA 02111-1307, USA. */ static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; +extern void __eoshift3_8 (gfc_array_char *, gfc_array_char *, + gfc_array_i8 *, const gfc_array_char *, + GFC_INTEGER_8 *); +export_proto_np(__eoshift3_8); + void -__eoshift3_8 (gfc_array_char * ret, gfc_array_char * array, - gfc_array_i8 * h, const gfc_array_char * bound, GFC_INTEGER_8 * pwhich) +__eoshift3_8 (gfc_array_char *ret, gfc_array_char *array, + gfc_array_i8 *h, const gfc_array_char *bound, + GFC_INTEGER_8 *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -190,4 +196,3 @@ __eoshift3_8 (gfc_array_char * ret, gfc_array_char * array, } } } - diff --git a/libgfortran/generated/exponent_r4.c b/libgfortran/generated/exponent_r4.c index 34e76b6..70c376c 100644 --- a/libgfortran/generated/exponent_r4.c +++ b/libgfortran/generated/exponent_r4.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_INTEGER_4 exponent_r4 (GFC_REAL_4 s); +export_proto(exponent_r4); + GFC_INTEGER_4 -prefix(exponent_r4) (GFC_REAL_4 s) +exponent_r4 (GFC_REAL_4 s) { int ret; frexpf (s, &ret); diff --git a/libgfortran/generated/exponent_r8.c b/libgfortran/generated/exponent_r8.c index 8a4101e..9d54920 100644 --- a/libgfortran/generated/exponent_r8.c +++ b/libgfortran/generated/exponent_r8.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_INTEGER_4 exponent_r8 (GFC_REAL_8 s); +export_proto(exponent_r8); + GFC_INTEGER_4 -prefix(exponent_r8) (GFC_REAL_8 s) +exponent_r8 (GFC_REAL_8 s) { int ret; frexp (s, &ret); diff --git a/libgfortran/generated/fraction_r4.c b/libgfortran/generated/fraction_r4.c index a86e829..273239a 100644 --- a/libgfortran/generated/fraction_r4.c +++ b/libgfortran/generated/fraction_r4.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_4 fraction_r4 (GFC_REAL_4 s); +export_proto(fraction_r4); + GFC_REAL_4 -prefix(fraction_r4) (GFC_REAL_4 s) +fraction_r4 (GFC_REAL_4 s) { int dummy_exp; return frexpf (s, &dummy_exp); diff --git a/libgfortran/generated/fraction_r8.c b/libgfortran/generated/fraction_r8.c index 613c6ac..b7600bf 100644 --- a/libgfortran/generated/fraction_r8.c +++ b/libgfortran/generated/fraction_r8.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_8 fraction_r8 (GFC_REAL_8 s); +export_proto(fraction_r8); + GFC_REAL_8 -prefix(fraction_r8) (GFC_REAL_8 s) +fraction_r8 (GFC_REAL_8 s) { int dummy_exp; return frexp (s, &dummy_exp); diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c index 19e4f23..a05a321 100644 --- a/libgfortran/generated/matmul_c4.c +++ b/libgfortran/generated/matmul_c4.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b); +export_proto_np(__matmul_c4); + void __matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) { diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c index fb422cb..42833b9 100644 --- a/libgfortran/generated/matmul_c8.c +++ b/libgfortran/generated/matmul_c8.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b); +export_proto_np(__matmul_c8); + void __matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) { diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c index e5f534a..de8a919 100644 --- a/libgfortran/generated/matmul_i4.c +++ b/libgfortran/generated/matmul_i4.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b); +export_proto_np(__matmul_i4); + void __matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) { diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c index 88bbf7a..b4831e2 100644 --- a/libgfortran/generated/matmul_i8.c +++ b/libgfortran/generated/matmul_i8.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b); +export_proto_np(__matmul_i8); + void __matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) { diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index 1af2eb0..491392b 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -26,6 +26,10 @@ Boston, MA 02111-1307, USA. */ /* Dimensions: retarray(x,y) a(x, count) b(count,y). Either a or b can be rank 1. In this case x or y is 1. */ + +extern void __matmul_l4 (gfc_array_l4 *, gfc_array_l4 *, gfc_array_l4 *); +export_proto_np(__matmul_l4); + void __matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) { diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index d6d85a1..2a479e7 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -26,6 +26,10 @@ Boston, MA 02111-1307, USA. */ /* Dimensions: retarray(x,y) a(x, count) b(count,y). Either a or b can be rank 1. In this case x or y is 1. */ + +extern void __matmul_l8 (gfc_array_l8 *, gfc_array_l4 *, gfc_array_l4 *); +export_proto_np(__matmul_l8); + void __matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) { diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index 91417cc..b12a8a4 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b); +export_proto_np(__matmul_r4); + void __matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) { diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c index 2fc3fed..b0c45c0 100644 --- a/libgfortran/generated/matmul_r8.c +++ b/libgfortran/generated/matmul_r8.c @@ -37,6 +37,9 @@ Boston, MA 02111-1307, USA. */ C(I,J) = C(I,J)+A(I,K)*B(K,J) */ +extern void __matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b); +export_proto_np(__matmul_r8); + void __matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) { diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index b55da1f..aa7d428 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); +export_proto_np(__maxloc0_4_i4); + void __maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) { @@ -117,6 +121,10 @@ __maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) } } + +extern void __mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_4_i4); + void __mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 36c0ef5..100910e 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); +export_proto_np(__maxloc0_4_i8); + void __maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) { @@ -117,6 +121,10 @@ __maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) } } + +extern void __mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_4_i8); + void __mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 40f58cc..0b75c05 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); +export_proto_np(__maxloc0_4_r4); + void __maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) { @@ -117,6 +121,10 @@ __maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) } } + +extern void __mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_4_r4); + void __mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index ebb6020..1463d80 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); +export_proto_np(__maxloc0_4_r8); + void __maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) { @@ -117,6 +121,10 @@ __maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) } } + +extern void __mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_4_r8); + void __mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index 335a329..822ddd0 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); +export_proto_np(__maxloc0_8_i4); + void __maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) { @@ -117,6 +121,10 @@ __maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) } } + +extern void __mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_8_i4); + void __mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 5bee14a..8a4ed81 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); +export_proto_np(__maxloc0_8_i8); + void __maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) { @@ -117,6 +121,10 @@ __maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) } } + +extern void __mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_8_i8); + void __mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 7839e51..73a3e2d 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); +export_proto_np(__maxloc0_8_r4); + void __maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) { @@ -117,6 +121,10 @@ __maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) } } + +extern void __mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_8_r4); + void __mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index 088d89c..cc3e8d5 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); +export_proto_np(__maxloc0_8_r8); + void __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) { @@ -117,6 +121,10 @@ __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) } } + +extern void __mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto_np(__mmaxloc0_8_r8); + void __mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 2369e77..7905c01 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__maxloc1_4_i4); + void -__maxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_4_i4); + void __mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index 36860c2..a08cb03 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); +export_proto_np(__maxloc1_4_i8); + void -__maxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) +__maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_4_i8); + void __mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 6d550d5..5c5c3af 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); +export_proto_np(__maxloc1_4_r4); + void -__maxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) +__maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_4_r4); + void __mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 07a9eca..665c5b5 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); +export_proto_np(__maxloc1_4_r8); + void -__maxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) +__maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_4_r8); + void __mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index 7914259..dc11e70 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); +export_proto_np(__maxloc1_8_i4); + void -__maxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) +__maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_8_i4); + void __mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 46a7561..68dd21f 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__maxloc1_8_i8); + void -__maxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_8_i8); + void __mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index 1ab1be8..adeac9a 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); +export_proto_np(__maxloc1_8_r4); + void -__maxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) +__maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_8_r4); + void __mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index b221baa..82e754c 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); +export_proto_np(__maxloc1_8_r8); + void -__maxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) +__maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __maxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxloc1_8_r8); + void __mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index 8d37dfe..f24735c 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__maxval_i4); + void -__maxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__maxval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __maxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxval_i4); + void __mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index bdb33c9..e9ef4ec 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__maxval_i8); + void -__maxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__maxval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __maxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxval_i8); + void __mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index 78e83dc..7339490 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto_np(__maxval_r4); + void -__maxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) +__maxval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __maxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxval_r4); + void __mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index e3c7453..cbc1fc9 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto_np(__maxval_r8); + void -__maxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) +__maxval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __maxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mmaxval_r8); + void __mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index c12eea0..c377498 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); +export_proto_np(__minloc0_4_i4); + void __minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) { @@ -117,6 +121,10 @@ __minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) } } + +extern void __mminloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto_np(__mminloc0_4_i4); + void __mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 94842a3..56fd261 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); +export_proto_np(__minloc0_4_i8); + void __minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) { @@ -117,6 +121,10 @@ __minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) } } + +extern void __mminloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto_np(__mminloc0_4_i8); + void __mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 9ed52c3..30b5b1d 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); +export_proto_np(__minloc0_4_r4); + void __minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) { @@ -117,6 +121,10 @@ __minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) } } + +extern void __mminloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto_np(__mminloc0_4_r4); + void __mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 186b493..8a4267d 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); +export_proto_np(__minloc0_4_r8); + void __minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) { @@ -117,6 +121,10 @@ __minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) } } + +extern void __mminloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto_np(__mminloc0_4_r8); + void __mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index 962ee83..6d7cb9c 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); +export_proto_np(__minloc0_8_i4); + void __minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) { @@ -117,6 +121,10 @@ __minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) } } + +extern void __mminloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto_np(__mminloc0_8_i4); + void __mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index e13a428..87d6705 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); +export_proto_np(__minloc0_8_i8); + void __minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) { @@ -117,6 +121,10 @@ __minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) } } + +extern void __mminloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto_np(__mminloc0_8_i8); + void __mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index cb9ade8..660a763 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); +export_proto_np(__minloc0_8_r4); + void __minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) { @@ -117,6 +121,10 @@ __minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) } } + +extern void __mminloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto_np(__mminloc0_8_r4); + void __mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index cf19f44..b8c8303 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -27,6 +27,10 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" + +extern void __minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); +export_proto_np(__minloc0_8_r8); + void __minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) { @@ -117,6 +121,10 @@ __minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) } } + +extern void __mminloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto_np(__mminloc0_8_r8); + void __mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index ce73916..eaf4212 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__minloc1_4_i4); + void -__minloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mminloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_4_i4); + void __mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 55a249b..0ea3802 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); +export_proto_np(__minloc1_4_i8); + void -__minloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) +__minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mminloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_4_i8); + void __mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index 50adeb3..3336f0f 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); +export_proto_np(__minloc1_4_r4); + void -__minloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) +__minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mminloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_4_r4); + void __mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index aafb578..bb59dcc 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); +export_proto_np(__minloc1_4_r8); + void -__minloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) +__minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mminloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_4_r8); + void __mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index 5c347dd..c30f656 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); +export_proto_np(__minloc1_8_i4); + void -__minloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) +__minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mminloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_8_i4); + void __mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index c8811f3..4d3e34a 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__minloc1_8_i8); + void -__minloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mminloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_8_i8); + void __mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index 81ba167..e5c1a59 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); +export_proto_np(__minloc1_8_r4); + void -__minloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) +__minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_8_r4); + void __mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index 684eab2..ff7ebb9 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -26,8 +26,12 @@ Boston, MA 02111-1307, USA. */ #include <limits.h> #include "libgfortran.h" + +extern void __minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); +export_proto_np(__minloc1_8_r8); + void -__minloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) +__minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -152,6 +156,11 @@ __minloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mminloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminloc1_8_r8); + void __mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 7846452..23b8326 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__minval_i4); + void -__minval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__minval_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __minval_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mminval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminval_i4); + void __mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index deca048..149ba7a 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__minval_i8); + void -__minval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__minval_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __minval_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mminval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminval_i8); + void __mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index 8990d88..3a4b13d 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto_np(__minval_r4); + void -__minval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) +__minval_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __minval_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mminval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminval_r4); + void __mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index 285e90e..e30c431 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -25,8 +25,12 @@ Boston, MA 02111-1307, USA. */ #include <float.h> #include "libgfortran.h" + +extern void __minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto_np(__minval_r8); + void -__minval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) +__minval_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -146,6 +150,11 @@ __minval_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mminval_r8); + void __mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/nearest_r4.c b/libgfortran/generated/nearest_r4.c index cafc02f..d92efab 100644 --- a/libgfortran/generated/nearest_r4.c +++ b/libgfortran/generated/nearest_r4.c @@ -23,8 +23,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_4 nearest_r4 (GFC_REAL_4 s, GFC_REAL_4 dir); +export_proto(nearest_r4); + GFC_REAL_4 -prefix(nearest_r4) (GFC_REAL_4 s, GFC_REAL_4 dir) +nearest_r4 (GFC_REAL_4 s, GFC_REAL_4 dir) { dir = copysignf (__builtin_inff (), dir); if (FLT_EVAL_METHOD != 0) diff --git a/libgfortran/generated/nearest_r8.c b/libgfortran/generated/nearest_r8.c index 54a3745..7dd6838 100644 --- a/libgfortran/generated/nearest_r8.c +++ b/libgfortran/generated/nearest_r8.c @@ -23,8 +23,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_8 nearest_r8 (GFC_REAL_8 s, GFC_REAL_8 dir); +export_proto(nearest_r8); + GFC_REAL_8 -prefix(nearest_r8) (GFC_REAL_8 s, GFC_REAL_8 dir) +nearest_r8 (GFC_REAL_8 s, GFC_REAL_8 dir) { dir = copysign (__builtin_inf (), dir); if (FLT_EVAL_METHOD != 0) diff --git a/libgfortran/generated/pow_c4_i4.c b/libgfortran/generated/pow_c4_i4.c index de0f6f6..8aa3bf5 100644 --- a/libgfortran/generated/pow_c4_i4.c +++ b/libgfortran/generated/pow_c4_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_COMPLEX_4 pow_c4_i4 (GFC_COMPLEX_4 a, GFC_INTEGER_4 b); +export_proto(pow_c4_i4); + GFC_COMPLEX_4 -prefix(pow_c4_i4) (GFC_COMPLEX_4 a, GFC_INTEGER_4 b) +pow_c4_i4 (GFC_COMPLEX_4 a, GFC_INTEGER_4 b) { GFC_COMPLEX_4 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_c4_i8.c b/libgfortran/generated/pow_c4_i8.c index 6606527..007c277 100644 --- a/libgfortran/generated/pow_c4_i8.c +++ b/libgfortran/generated/pow_c4_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_COMPLEX_4 pow_c4_i8 (GFC_COMPLEX_4 a, GFC_INTEGER_8 b); +export_proto(pow_c4_i8); + GFC_COMPLEX_4 -prefix(pow_c4_i8) (GFC_COMPLEX_4 a, GFC_INTEGER_8 b) +pow_c4_i8 (GFC_COMPLEX_4 a, GFC_INTEGER_8 b) { GFC_COMPLEX_4 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/pow_c8_i4.c b/libgfortran/generated/pow_c8_i4.c index 5efb874..d8bc9fa 100644 --- a/libgfortran/generated/pow_c8_i4.c +++ b/libgfortran/generated/pow_c8_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_COMPLEX_8 pow_c8_i4 (GFC_COMPLEX_8 a, GFC_INTEGER_4 b); +export_proto(pow_c8_i4); + GFC_COMPLEX_8 -prefix(pow_c8_i4) (GFC_COMPLEX_8 a, GFC_INTEGER_4 b) +pow_c8_i4 (GFC_COMPLEX_8 a, GFC_INTEGER_4 b) { GFC_COMPLEX_8 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_c8_i8.c b/libgfortran/generated/pow_c8_i8.c index 17026b3..f0e8b38 100644 --- a/libgfortran/generated/pow_c8_i8.c +++ b/libgfortran/generated/pow_c8_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_COMPLEX_8 pow_c8_i8 (GFC_COMPLEX_8 a, GFC_INTEGER_8 b); +export_proto(pow_c8_i8); + GFC_COMPLEX_8 -prefix(pow_c8_i8) (GFC_COMPLEX_8 a, GFC_INTEGER_8 b) +pow_c8_i8 (GFC_COMPLEX_8 a, GFC_INTEGER_8 b) { GFC_COMPLEX_8 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/pow_i4_i4.c b/libgfortran/generated/pow_i4_i4.c index 15a349c..9b2d153 100644 --- a/libgfortran/generated/pow_i4_i4.c +++ b/libgfortran/generated/pow_i4_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_INTEGER_4 pow_i4_i4 (GFC_INTEGER_4 a, GFC_INTEGER_4 b); +export_proto(pow_i4_i4); + GFC_INTEGER_4 -prefix(pow_i4_i4) (GFC_INTEGER_4 a, GFC_INTEGER_4 b) +pow_i4_i4 (GFC_INTEGER_4 a, GFC_INTEGER_4 b) { GFC_INTEGER_4 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_i4_i8.c b/libgfortran/generated/pow_i4_i8.c index 72e8837..a721a6b 100644 --- a/libgfortran/generated/pow_i4_i8.c +++ b/libgfortran/generated/pow_i4_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_INTEGER_4 pow_i4_i8 (GFC_INTEGER_4 a, GFC_INTEGER_8 b); +export_proto(pow_i4_i8); + GFC_INTEGER_4 -prefix(pow_i4_i8) (GFC_INTEGER_4 a, GFC_INTEGER_8 b) +pow_i4_i8 (GFC_INTEGER_4 a, GFC_INTEGER_8 b) { GFC_INTEGER_4 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/pow_i8_i4.c b/libgfortran/generated/pow_i8_i4.c index 7a900d7..5e0d452 100644 --- a/libgfortran/generated/pow_i8_i4.c +++ b/libgfortran/generated/pow_i8_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_INTEGER_8 pow_i8_i4 (GFC_INTEGER_8 a, GFC_INTEGER_4 b); +export_proto(pow_i8_i4); + GFC_INTEGER_8 -prefix(pow_i8_i4) (GFC_INTEGER_8 a, GFC_INTEGER_4 b) +pow_i8_i4 (GFC_INTEGER_8 a, GFC_INTEGER_4 b) { GFC_INTEGER_8 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_i8_i8.c b/libgfortran/generated/pow_i8_i8.c index 591536f..2269051 100644 --- a/libgfortran/generated/pow_i8_i8.c +++ b/libgfortran/generated/pow_i8_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_INTEGER_8 pow_i8_i8 (GFC_INTEGER_8 a, GFC_INTEGER_8 b); +export_proto(pow_i8_i8); + GFC_INTEGER_8 -prefix(pow_i8_i8) (GFC_INTEGER_8 a, GFC_INTEGER_8 b) +pow_i8_i8 (GFC_INTEGER_8 a, GFC_INTEGER_8 b) { GFC_INTEGER_8 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/pow_r4_i4.c b/libgfortran/generated/pow_r4_i4.c index ffb8df7..51524fe 100644 --- a/libgfortran/generated/pow_r4_i4.c +++ b/libgfortran/generated/pow_r4_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_REAL_4 pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b); +export_proto(pow_r4_i4); + GFC_REAL_4 -prefix(pow_r4_i4) (GFC_REAL_4 a, GFC_INTEGER_4 b) +pow_r4_i4 (GFC_REAL_4 a, GFC_INTEGER_4 b) { GFC_REAL_4 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_r4_i8.c b/libgfortran/generated/pow_r4_i8.c index 1283882..2e0a71b 100644 --- a/libgfortran/generated/pow_r4_i8.c +++ b/libgfortran/generated/pow_r4_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_REAL_4 pow_r4_i8 (GFC_REAL_4 a, GFC_INTEGER_8 b); +export_proto(pow_r4_i8); + GFC_REAL_4 -prefix(pow_r4_i8) (GFC_REAL_4 a, GFC_INTEGER_8 b) +pow_r4_i8 (GFC_REAL_4 a, GFC_INTEGER_8 b) { GFC_REAL_4 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/pow_r8_i4.c b/libgfortran/generated/pow_r8_i4.c index fcead04..d07b571 100644 --- a/libgfortran/generated/pow_r8_i4.c +++ b/libgfortran/generated/pow_r8_i4.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_REAL_8 pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b); +export_proto(pow_r8_i4); + GFC_REAL_8 -prefix(pow_r8_i4) (GFC_REAL_8 a, GFC_INTEGER_4 b) +pow_r8_i4 (GFC_REAL_8 a, GFC_INTEGER_4 b) { GFC_REAL_8 pow, x; GFC_INTEGER_4 n, u; diff --git a/libgfortran/generated/pow_r8_i8.c b/libgfortran/generated/pow_r8_i8.c index 7f75c82..e922eef 100644 --- a/libgfortran/generated/pow_r8_i8.c +++ b/libgfortran/generated/pow_r8_i8.c @@ -22,13 +22,16 @@ Boston, MA 02111-1307, USA. */ #include "config.h" #include "libgfortran.h" -/* Uuse Binary Method to calculate the powi. This is not an optimal but +/* Use Binary Method to calculate the powi. This is not an optimal but a simple and reasonable arithmetic. See section 4.6.3, "Evaluation of Powers" of Donald E. Knuth, "Seminumerical Algorithms", Vol. 2, "The Art of Computer Programming", 3rd Edition, 1998. */ +GFC_REAL_8 pow_r8_i8 (GFC_REAL_8 a, GFC_INTEGER_8 b); +export_proto(pow_r8_i8); + GFC_REAL_8 -prefix(pow_r8_i8) (GFC_REAL_8 a, GFC_INTEGER_8 b) +pow_r8_i8 (GFC_REAL_8 a, GFC_INTEGER_8 b) { GFC_REAL_8 pow, x; GFC_INTEGER_8 n, u; diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index 0337ec6..f8fcdcb 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); +export_proto_np(__product_c4); + void -__product_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) +__product_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) } } + +extern void __mproduct_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_c4); + void __mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 22a26a8..4e54c68 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); +export_proto_np(__product_c8); + void -__product_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) +__product_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) } } + +extern void __mproduct_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_c8); + void __mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index c50c07f..386fbf9 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__product_i4); + void -__product_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__product_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __mproduct_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_i4); + void __mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 0f09a41..0e5ac66 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__product_i8); + void -__product_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__product_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __mproduct_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_i8); + void __mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index f68a88a..cf38879 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto_np(__product_r4); + void -__product_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) +__product_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __mproduct_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_r4); + void __mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index 0936d18..adba0bc 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto_np(__product_r8); + void -__product_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) +__product_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __product_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __mproduct_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__mproduct_r8); + void __mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c index 7da866c..70c3235 100644 --- a/libgfortran/generated/reshape_i4.c +++ b/libgfortran/generated/reshape_i4.c @@ -28,6 +28,11 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; /* The shape parameter is ignored. We can currently deduce the shape from the return array. */ + +extern void __reshape_4 (gfc_array_i4 *, gfc_array_i4 *, shape_type *, + gfc_array_i4 *, shape_type *); +extern_proto_np(__reshape_4); + void __reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, gfc_array_i4 * pad, shape_type * order) @@ -222,4 +227,3 @@ __reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, } } } - diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c index f4e4019..af76e25 100644 --- a/libgfortran/generated/reshape_i8.c +++ b/libgfortran/generated/reshape_i8.c @@ -28,6 +28,11 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; /* The shape parameter is ignored. We can currently deduce the shape from the return array. */ + +extern void __reshape_8 (gfc_array_i8 *, gfc_array_i8 *, shape_type *, + gfc_array_i8 *, shape_type *); +extern_proto_np(__reshape_8); + void __reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape, gfc_array_i8 * pad, shape_type * order) @@ -222,4 +227,3 @@ __reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape, } } } - diff --git a/libgfortran/generated/set_exponent_r4.c b/libgfortran/generated/set_exponent_r4.c index 32717e2..9763ef6 100644 --- a/libgfortran/generated/set_exponent_r4.c +++ b/libgfortran/generated/set_exponent_r4.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_4 set_exponent_r4 (GFC_REAL_4 s, GFC_INTEGER_4 i); +export_proto(set_exponent_r4); + GFC_REAL_4 -prefix(set_exponent_r4) (GFC_REAL_4 s, GFC_INTEGER_4 i) +set_exponent_r4 (GFC_REAL_4 s, GFC_INTEGER_4 i) { int dummy_exp; return scalbnf (frexpf (s, &dummy_exp), i); diff --git a/libgfortran/generated/set_exponent_r8.c b/libgfortran/generated/set_exponent_r8.c index ad2a97d..91b0e71 100644 --- a/libgfortran/generated/set_exponent_r8.c +++ b/libgfortran/generated/set_exponent_r8.c @@ -22,8 +22,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" +extern GFC_REAL_8 set_exponent_r8 (GFC_REAL_8 s, GFC_INTEGER_4 i); +export_proto(set_exponent_r8); + GFC_REAL_8 -prefix(set_exponent_r8) (GFC_REAL_8 s, GFC_INTEGER_4 i) +set_exponent_r8 (GFC_REAL_8 s, GFC_INTEGER_4 i) { int dummy_exp; return scalbn (frexp (s, &dummy_exp), i); diff --git a/libgfortran/generated/shape_i4.c b/libgfortran/generated/shape_i4.c index 0344691..855ccc0 100644 --- a/libgfortran/generated/shape_i4.c +++ b/libgfortran/generated/shape_i4.c @@ -24,6 +24,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern void __shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array); +export_proto_np(__shape_4); + void __shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array) { @@ -40,4 +43,3 @@ __shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array) array->dim[n].ubound + 1 - array->dim[n].lbound; } } - diff --git a/libgfortran/generated/shape_i8.c b/libgfortran/generated/shape_i8.c index bd74900..0dc92f0 100644 --- a/libgfortran/generated/shape_i8.c +++ b/libgfortran/generated/shape_i8.c @@ -24,6 +24,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern void __shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array); +export_proto_np(__shape_8); + void __shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array) { @@ -40,4 +43,3 @@ __shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array) array->dim[n].ubound + 1 - array->dim[n].lbound; } } - diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index 6507de8..a4af04a 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); +export_proto_np(__sum_c4); + void -__sum_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) +__sum_c4 (gfc_array_c4 *retarray, gfc_array_c4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_c4 (gfc_array_c4 * retarray, gfc_array_c4 *array, index_type *pdim) } } + +extern void __msum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_c4); + void __msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index bc2d045..f421e80 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); +export_proto_np(__sum_c8); + void -__sum_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) +__sum_c8 (gfc_array_c8 *retarray, gfc_array_c8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_c8 (gfc_array_c8 * retarray, gfc_array_c8 *array, index_type *pdim) } } + +extern void __msum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_c8); + void __msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index aac7f48..55b000d 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto_np(__sum_i4); + void -__sum_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) +__sum_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, index_type *pdim) } } + +extern void __msum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_i4); + void __msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index e9a539d..d72bd12 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto_np(__sum_i8); + void -__sum_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) +__sum_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, index_type *pdim) } } + +extern void __msum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_i8); + void __msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index 11b5c49..dcb8155 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto_np(__sum_r4); + void -__sum_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) +__sum_r4 (gfc_array_r4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_r4 (gfc_array_r4 * retarray, gfc_array_r4 *array, index_type *pdim) } } + +extern void __msum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_r4); + void __msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 95272fb..3a6ea96 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -24,8 +24,12 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" + +extern void __sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto_np(__sum_r8); + void -__sum_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) +__sum_r8 (gfc_array_r8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -144,6 +148,11 @@ __sum_r8 (gfc_array_r8 * retarray, gfc_array_r8 *array, index_type *pdim) } } + +extern void __msum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto_np(__msum_r8); + void __msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) { diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c index dad2987..24ae8a8 100644 --- a/libgfortran/generated/transpose_i4.c +++ b/libgfortran/generated/transpose_i4.c @@ -23,6 +23,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern void __transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source); +export_proto_np(__transpose_4); + void __transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source) { diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c index 84811d0..67ef0dd 100644 --- a/libgfortran/generated/transpose_i8.c +++ b/libgfortran/generated/transpose_i8.c @@ -23,6 +23,9 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" +extern void __transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source); +export_proto_np(__transpose_8); + void __transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source) { |