diff options
author | Richard Henderson <rth@redhat.com> | 2004-12-12 18:47:58 -0800 |
---|---|---|
committer | Richard Henderson <rth@gcc.gnu.org> | 2004-12-12 18:47:58 -0800 |
commit | 7f68c75fb313ac9e2bb59dc960071ac429486529 (patch) | |
tree | 5d494dd2281213ae1afacc71aecb1aae933d6f83 /libgfortran | |
parent | 5ad85f7dc81455d7a6551bdb9a3519fa697d15d7 (diff) | |
download | gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.zip gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.tar.gz gcc-7f68c75fb313ac9e2bb59dc960071ac429486529.tar.bz2 |
iresolve.c (gfc_resolve_all, [...]): Use PREFIX.
gcc/fortran/
* iresolve.c (gfc_resolve_all, gfc_resolve_any, gfc_resolve_count,
gfc_resolve_cshift, gfc_resolve_dot_product, gfc_resolve_eoshift,
gfc_resolve_matmul, gfc_resolve_maxloc, gfc_resolve_maxval,
gfc_resolve_minloc, gfc_resolve_minval, gfc_resolve_pack,
gfc_resolve_product, gfc_resolve_reshape, gfc_resolve_shape,
gfc_resolve_spread, gfc_resolve_sum, gfc_resolve_transpose,
gfc_resolve_unpack: Use PREFIX.
libgfortran/
* intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c,
intrinsics/pack_generic.c, intrinsics/reshape_generic.c,
intrinsics/spread_generic.c, intrinsics/transpose_generic.c,
intrinsics/unpack_generic.c, m4/cshift1.m4, m4/dotprod.m4,
m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4,
m4/iforeach.m4, m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4,
m4/reshape.m4, m4/shape.m4, m4/transpose.m4: Use standard prefix
instead of "__".
* generated/*: Rebuild.
From-SVN: r92075
Diffstat (limited to 'libgfortran')
110 files changed, 680 insertions, 614 deletions
diff --git a/libgfortran/ChangeLog b/libgfortran/ChangeLog index 83084aa..9397aa9 100644 --- a/libgfortran/ChangeLog +++ b/libgfortran/ChangeLog @@ -1,5 +1,17 @@ 2004-12-12 Richard Henderson <rth@redhat.com> + * intrinsics/cshift0.c, intrinsics/eoshift0.c, intrinsics/eoshift2.c, + intrinsics/pack_generic.c, intrinsics/reshape_generic.c, + intrinsics/spread_generic.c, intrinsics/transpose_generic.c, + intrinsics/unpack_generic.c, m4/cshift1.m4, m4/dotprod.m4, + m4/dotprodc.m4, m4/dotprodl.m4, m4/eoshift1.m4, m4/eoshift3.m4, + m4/iforeach.m4, m4/ifunction.m4, m4/matmul.m4, m4/matmull.m4, + m4/reshape.m4, m4/shape.m4, m4/transpose.m4: Use standard prefix + instead of "__". + * generated/*: Rebuild. + +2004-12-12 Richard Henderson <rth@redhat.com> + * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New. (LIBGFOR_CHECK_ATTRIBUTE_DLLEXPORT): New. (LIBGFOR_CHECK_ATTRIBUTE_ALIAS): New. diff --git a/libgfortran/generated/all_l4.c b/libgfortran/generated/all_l4.c index 3c81520..78a5209 100644 --- a/libgfortran/generated/all_l4.c +++ b/libgfortran/generated/all_l4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); -export_proto_np(__all_l4); +extern void all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); +export_proto(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 c7a8df0..1573ed1 100644 --- a/libgfortran/generated/all_l8.c +++ b/libgfortran/generated/all_l8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); -export_proto_np(__all_l8); +extern void all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); +export_proto(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 da3f2b7..43475a9 100644 --- a/libgfortran/generated/any_l4.c +++ b/libgfortran/generated/any_l4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); -export_proto_np(__any_l4); +extern void any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); +export_proto(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 8258db9..012f7fb 100644 --- a/libgfortran/generated/any_l8.c +++ b/libgfortran/generated/any_l8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); -export_proto_np(__any_l8); +extern void any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); +export_proto(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 0e3e298..6150cc1 100644 --- a/libgfortran/generated/count_4_l4.c +++ b/libgfortran/generated/count_4_l4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *); -export_proto_np(__count_4_l4); +extern void count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *); +export_proto(count_4_l4); void -__count_4_l4 (gfc_array_i4 *retarray, gfc_array_l4 *array, index_type *pdim) +count_4_l4 (gfc_array_i4 *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 7e9a376..1d5b11b 100644 --- a/libgfortran/generated/count_4_l8.c +++ b/libgfortran/generated/count_4_l8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *); -export_proto_np(__count_4_l8); +extern void count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *); +export_proto(count_4_l8); void -__count_4_l8 (gfc_array_i4 *retarray, gfc_array_l8 *array, index_type *pdim) +count_4_l8 (gfc_array_i4 *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 c23895b..334c728 100644 --- a/libgfortran/generated/count_8_l4.c +++ b/libgfortran/generated/count_8_l4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *); -export_proto_np(__count_8_l4); +extern void count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *); +export_proto(count_8_l4); void -__count_8_l4 (gfc_array_i8 *retarray, gfc_array_l4 *array, index_type *pdim) +count_8_l4 (gfc_array_i8 *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 1535af4..cc9f66c 100644 --- a/libgfortran/generated/count_8_l8.c +++ b/libgfortran/generated/count_8_l8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *); -export_proto_np(__count_8_l8); +extern void count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *); +export_proto(count_8_l8); void -__count_8_l8 (gfc_array_i8 *retarray, gfc_array_l8 *array, index_type *pdim) +count_8_l8 (gfc_array_i8 *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 9293eae..5226d47 100644 --- a/libgfortran/generated/cshift1_4.c +++ b/libgfortran/generated/cshift1_4.c @@ -25,15 +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); +export_proto(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]; diff --git a/libgfortran/generated/cshift1_8.c b/libgfortran/generated/cshift1_8.c index 803984f..0569422 100644 --- a/libgfortran/generated/cshift1_8.c +++ b/libgfortran/generated/cshift1_8.c @@ -25,15 +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); +export_proto(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]; diff --git a/libgfortran/generated/dotprod_c4.c b/libgfortran/generated/dotprod_c4.c index ff60a23..6b02f95 100644 --- a/libgfortran/generated/dotprod_c4.c +++ b/libgfortran/generated/dotprod_c4.c @@ -27,12 +27,12 @@ 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); +extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b); +export_proto(dot_product_c4); /* Both parameters will already have been converted to the result type. */ GFC_COMPLEX_4 -__dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b) +dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b) { GFC_COMPLEX_4 *pa; GFC_COMPLEX_4 *pb; diff --git a/libgfortran/generated/dotprod_c8.c b/libgfortran/generated/dotprod_c8.c index cf22c37..41324c5 100644 --- a/libgfortran/generated/dotprod_c8.c +++ b/libgfortran/generated/dotprod_c8.c @@ -27,12 +27,12 @@ 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); +extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b); +export_proto(dot_product_c8); /* Both parameters will already have been converted to the result type. */ GFC_COMPLEX_8 -__dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b) +dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b) { GFC_COMPLEX_8 *pa; GFC_COMPLEX_8 *pb; diff --git a/libgfortran/generated/dotprod_i4.c b/libgfortran/generated/dotprod_i4.c index c0d6726..6cfe6b7 100644 --- a/libgfortran/generated/dotprod_i4.c +++ b/libgfortran/generated/dotprod_i4.c @@ -26,12 +26,12 @@ 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); +extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b); +export_proto(dot_product_i4); /* Both parameters will already have been converted to the result type. */ GFC_INTEGER_4 -__dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b) +dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b) { GFC_INTEGER_4 *pa; GFC_INTEGER_4 *pb; diff --git a/libgfortran/generated/dotprod_i8.c b/libgfortran/generated/dotprod_i8.c index 5722431..f041780 100644 --- a/libgfortran/generated/dotprod_i8.c +++ b/libgfortran/generated/dotprod_i8.c @@ -26,12 +26,12 @@ 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); +extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b); +export_proto(dot_product_i8); /* Both parameters will already have been converted to the result type. */ GFC_INTEGER_8 -__dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b) +dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b) { GFC_INTEGER_8 *pa; GFC_INTEGER_8 *pb; diff --git a/libgfortran/generated/dotprod_l4.c b/libgfortran/generated/dotprod_l4.c index 6248c9c..437347c 100644 --- a/libgfortran/generated/dotprod_l4.c +++ b/libgfortran/generated/dotprod_l4.c @@ -24,11 +24,11 @@ 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); +extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *); +export_proto(dot_product_l4); GFC_LOGICAL_4 -__dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b) +dot_product_l4 (gfc_array_l4 * a, gfc_array_l4 * b) { GFC_LOGICAL_4 *pa; GFC_LOGICAL_4 *pb; diff --git a/libgfortran/generated/dotprod_l8.c b/libgfortran/generated/dotprod_l8.c index 7086288..b553ea2 100644 --- a/libgfortran/generated/dotprod_l8.c +++ b/libgfortran/generated/dotprod_l8.c @@ -24,11 +24,11 @@ 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); +extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *); +export_proto(dot_product_l8); GFC_LOGICAL_8 -__dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b) +dot_product_l8 (gfc_array_l4 * a, gfc_array_l4 * b) { GFC_LOGICAL_4 *pa; GFC_LOGICAL_4 *pb; diff --git a/libgfortran/generated/dotprod_r4.c b/libgfortran/generated/dotprod_r4.c index 801e43e..9a731a6 100644 --- a/libgfortran/generated/dotprod_r4.c +++ b/libgfortran/generated/dotprod_r4.c @@ -26,12 +26,12 @@ 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); +extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b); +export_proto(dot_product_r4); /* Both parameters will already have been converted to the result type. */ GFC_REAL_4 -__dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b) +dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b) { GFC_REAL_4 *pa; GFC_REAL_4 *pb; diff --git a/libgfortran/generated/dotprod_r8.c b/libgfortran/generated/dotprod_r8.c index edde2b2..0b251e3 100644 --- a/libgfortran/generated/dotprod_r8.c +++ b/libgfortran/generated/dotprod_r8.c @@ -26,12 +26,12 @@ 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); +extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b); +export_proto(dot_product_r8); /* Both parameters will already have been converted to the result type. */ GFC_REAL_8 -__dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b) +dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b) { GFC_REAL_8 *pa; GFC_REAL_8 *pb; diff --git a/libgfortran/generated/eoshift1_4.c b/libgfortran/generated/eoshift1_4.c index aaccb54..c99e27c 100644 --- a/libgfortran/generated/eoshift1_4.c +++ b/libgfortran/generated/eoshift1_4.c @@ -28,17 +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 *, +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); +export_proto(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]; diff --git a/libgfortran/generated/eoshift1_8.c b/libgfortran/generated/eoshift1_8.c index 3f37eb8..bac8236 100644 --- a/libgfortran/generated/eoshift1_8.c +++ b/libgfortran/generated/eoshift1_8.c @@ -28,17 +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 *, +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); +export_proto(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]; diff --git a/libgfortran/generated/eoshift3_4.c b/libgfortran/generated/eoshift3_4.c index 7609b2e..3990390 100644 --- a/libgfortran/generated/eoshift3_4.c +++ b/libgfortran/generated/eoshift3_4.c @@ -28,15 +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 *, +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); +export_proto(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]; diff --git a/libgfortran/generated/eoshift3_8.c b/libgfortran/generated/eoshift3_8.c index 3274bce..10bffdf 100644 --- a/libgfortran/generated/eoshift3_8.c +++ b/libgfortran/generated/eoshift3_8.c @@ -28,15 +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 *, +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); +export_proto(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]; diff --git a/libgfortran/generated/matmul_c4.c b/libgfortran/generated/matmul_c4.c index a05a321..409d461 100644 --- a/libgfortran/generated/matmul_c4.c +++ b/libgfortran/generated/matmul_c4.c @@ -37,11 +37,11 @@ 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); +extern void matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b); +export_proto(matmul_c4); void -__matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) +matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b) { GFC_COMPLEX_4 *abase; GFC_COMPLEX_4 *bbase; diff --git a/libgfortran/generated/matmul_c8.c b/libgfortran/generated/matmul_c8.c index 42833b9..a36029f 100644 --- a/libgfortran/generated/matmul_c8.c +++ b/libgfortran/generated/matmul_c8.c @@ -37,11 +37,11 @@ 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); +extern void matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b); +export_proto(matmul_c8); void -__matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) +matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b) { GFC_COMPLEX_8 *abase; GFC_COMPLEX_8 *bbase; diff --git a/libgfortran/generated/matmul_i4.c b/libgfortran/generated/matmul_i4.c index de8a919..c25eb6b 100644 --- a/libgfortran/generated/matmul_i4.c +++ b/libgfortran/generated/matmul_i4.c @@ -37,11 +37,11 @@ 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); +extern void matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b); +export_proto(matmul_i4); void -__matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) +matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b) { GFC_INTEGER_4 *abase; GFC_INTEGER_4 *bbase; diff --git a/libgfortran/generated/matmul_i8.c b/libgfortran/generated/matmul_i8.c index b4831e2..14b2903 100644 --- a/libgfortran/generated/matmul_i8.c +++ b/libgfortran/generated/matmul_i8.c @@ -37,11 +37,11 @@ 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); +extern void matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b); +export_proto(matmul_i8); void -__matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) +matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b) { GFC_INTEGER_8 *abase; GFC_INTEGER_8 *bbase; diff --git a/libgfortran/generated/matmul_l4.c b/libgfortran/generated/matmul_l4.c index 491392b..3205a776 100644 --- a/libgfortran/generated/matmul_l4.c +++ b/libgfortran/generated/matmul_l4.c @@ -27,11 +27,11 @@ 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); +extern void matmul_l4 (gfc_array_l4 *, gfc_array_l4 *, gfc_array_l4 *); +export_proto(matmul_l4); void -__matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) +matmul_l4 (gfc_array_l4 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) { GFC_INTEGER_4 *abase; GFC_INTEGER_4 *bbase; diff --git a/libgfortran/generated/matmul_l8.c b/libgfortran/generated/matmul_l8.c index 2a479e7..4710891b5 100644 --- a/libgfortran/generated/matmul_l8.c +++ b/libgfortran/generated/matmul_l8.c @@ -27,11 +27,11 @@ 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); +extern void matmul_l8 (gfc_array_l8 *, gfc_array_l4 *, gfc_array_l4 *); +export_proto(matmul_l8); void -__matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) +matmul_l8 (gfc_array_l8 * retarray, gfc_array_l4 * a, gfc_array_l4 * b) { GFC_INTEGER_4 *abase; GFC_INTEGER_4 *bbase; diff --git a/libgfortran/generated/matmul_r4.c b/libgfortran/generated/matmul_r4.c index b12a8a4..fbff32f 100644 --- a/libgfortran/generated/matmul_r4.c +++ b/libgfortran/generated/matmul_r4.c @@ -37,11 +37,11 @@ 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); +extern void matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b); +export_proto(matmul_r4); void -__matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) +matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b) { GFC_REAL_4 *abase; GFC_REAL_4 *bbase; diff --git a/libgfortran/generated/matmul_r8.c b/libgfortran/generated/matmul_r8.c index b0c45c0..d7634ea 100644 --- a/libgfortran/generated/matmul_r8.c +++ b/libgfortran/generated/matmul_r8.c @@ -37,11 +37,11 @@ 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); +extern void matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b); +export_proto(matmul_r8); void -__matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) +matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b) { GFC_REAL_8 *abase; GFC_REAL_8 *bbase; diff --git a/libgfortran/generated/maxloc0_4_i4.c b/libgfortran/generated/maxloc0_4_i4.c index aa7d428..6ac1ebf 100644 --- a/libgfortran/generated/maxloc0_4_i4.c +++ b/libgfortran/generated/maxloc0_4_i4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); -export_proto_np(__maxloc0_4_i4); +extern void maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); +export_proto(maxloc0_4_i4); void -__maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) +maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto(mmaxloc0_4_i4); void -__mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) +mmaxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_4_i8.c b/libgfortran/generated/maxloc0_4_i8.c index 100910e..44783a7 100644 --- a/libgfortran/generated/maxloc0_4_i8.c +++ b/libgfortran/generated/maxloc0_4_i8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); -export_proto_np(__maxloc0_4_i8); +extern void maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); +export_proto(maxloc0_4_i8); void -__maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) +maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto(mmaxloc0_4_i8); void -__mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) +mmaxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_4_r4.c b/libgfortran/generated/maxloc0_4_r4.c index 0b75c05..4665b69 100644 --- a/libgfortran/generated/maxloc0_4_r4.c +++ b/libgfortran/generated/maxloc0_4_r4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); -export_proto_np(__maxloc0_4_r4); +extern void maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); +export_proto(maxloc0_4_r4); void -__maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) +maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto(mmaxloc0_4_r4); void -__mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) +mmaxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_4_r8.c b/libgfortran/generated/maxloc0_4_r8.c index 1463d80..af3c7a5 100644 --- a/libgfortran/generated/maxloc0_4_r8.c +++ b/libgfortran/generated/maxloc0_4_r8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); -export_proto_np(__maxloc0_4_r8); +extern void maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); +export_proto(maxloc0_4_r8); void -__maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) +maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto(mmaxloc0_4_r8); void -__mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) +mmaxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_8_i4.c b/libgfortran/generated/maxloc0_8_i4.c index 822ddd0..6e5a299 100644 --- a/libgfortran/generated/maxloc0_8_i4.c +++ b/libgfortran/generated/maxloc0_8_i4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); -export_proto_np(__maxloc0_8_i4); +extern void maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); +export_proto(maxloc0_8_i4); void -__maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) +maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto(mmaxloc0_8_i4); void -__mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) +mmaxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_8_i8.c b/libgfortran/generated/maxloc0_8_i8.c index 8a4ed81..5b8f766 100644 --- a/libgfortran/generated/maxloc0_8_i8.c +++ b/libgfortran/generated/maxloc0_8_i8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); -export_proto_np(__maxloc0_8_i8); +extern void maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); +export_proto(maxloc0_8_i8); void -__maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) +maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto(mmaxloc0_8_i8); void -__mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) +mmaxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_8_r4.c b/libgfortran/generated/maxloc0_8_r4.c index 73a3e2d..50efd99 100644 --- a/libgfortran/generated/maxloc0_8_r4.c +++ b/libgfortran/generated/maxloc0_8_r4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); -export_proto_np(__maxloc0_8_r4); +extern void maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); +export_proto(maxloc0_8_r4); void -__maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) +maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto(mmaxloc0_8_r4); void -__mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) +mmaxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc0_8_r8.c b/libgfortran/generated/maxloc0_8_r8.c index cc3e8d5..d355893 100644 --- a/libgfortran/generated/maxloc0_8_r8.c +++ b/libgfortran/generated/maxloc0_8_r8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); -export_proto_np(__maxloc0_8_r8); +extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); +export_proto(maxloc0_8_r8); void -__maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) +maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto(mmaxloc0_8_r8); void -__mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) +mmaxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/maxloc1_4_i4.c b/libgfortran/generated/maxloc1_4_i4.c index 7905c01..197ab59 100644 --- a/libgfortran/generated/maxloc1_4_i4.c +++ b/libgfortran/generated/maxloc1_4_i4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__maxloc1_4_i4); +extern void maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(maxloc1_4_i4); void -__maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) +maxloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_4_i4); void -__mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_4_i8.c b/libgfortran/generated/maxloc1_4_i8.c index a08cb03..9c8d057 100644 --- a/libgfortran/generated/maxloc1_4_i8.c +++ b/libgfortran/generated/maxloc1_4_i8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); -export_proto_np(__maxloc1_4_i8); +extern void maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); +export_proto(maxloc1_4_i8); void -__maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) +maxloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_4_i8); void -__mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_4_r4.c b/libgfortran/generated/maxloc1_4_r4.c index 5c5c3af..688809e 100644 --- a/libgfortran/generated/maxloc1_4_r4.c +++ b/libgfortran/generated/maxloc1_4_r4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); -export_proto_np(__maxloc1_4_r4); +extern void maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); +export_proto(maxloc1_4_r4); void -__maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) +maxloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_4_r4); void -__mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_4_r8.c b/libgfortran/generated/maxloc1_4_r8.c index 665c5b5..eb71efc 100644 --- a/libgfortran/generated/maxloc1_4_r8.c +++ b/libgfortran/generated/maxloc1_4_r8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); -export_proto_np(__maxloc1_4_r8); +extern void maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); +export_proto(maxloc1_4_r8); void -__maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) +maxloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_4_r8); void -__mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_8_i4.c b/libgfortran/generated/maxloc1_8_i4.c index dc11e70..2e171ba 100644 --- a/libgfortran/generated/maxloc1_8_i4.c +++ b/libgfortran/generated/maxloc1_8_i4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); -export_proto_np(__maxloc1_8_i4); +extern void maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); +export_proto(maxloc1_8_i4); void -__maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) +maxloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_8_i4); void -__mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_8_i8.c b/libgfortran/generated/maxloc1_8_i8.c index 68dd21f..4615125 100644 --- a/libgfortran/generated/maxloc1_8_i8.c +++ b/libgfortran/generated/maxloc1_8_i8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__maxloc1_8_i8); +extern void maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(maxloc1_8_i8); void -__maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) +maxloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_8_i8); void -__mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_8_r4.c b/libgfortran/generated/maxloc1_8_r4.c index adeac9a..4d7f93c 100644 --- a/libgfortran/generated/maxloc1_8_r4.c +++ b/libgfortran/generated/maxloc1_8_r4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); -export_proto_np(__maxloc1_8_r4); +extern void maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); +export_proto(maxloc1_8_r4); void -__maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) +maxloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_8_r4); void -__mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxloc1_8_r8.c b/libgfortran/generated/maxloc1_8_r8.c index 82e754c..53a3b6e 100644 --- a/libgfortran/generated/maxloc1_8_r8.c +++ b/libgfortran/generated/maxloc1_8_r8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); -export_proto_np(__maxloc1_8_r8); +extern void maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); +export_proto(maxloc1_8_r8); void -__maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) +maxloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxloc1_8_r8); void -__mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxval_i4.c b/libgfortran/generated/maxval_i4.c index f24735c..b727f7d 100644 --- a/libgfortran/generated/maxval_i4.c +++ b/libgfortran/generated/maxval_i4.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__maxval_i4); +extern void maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxval_i4); void -__mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxval_i8.c b/libgfortran/generated/maxval_i8.c index e9ef4ec..4056550 100644 --- a/libgfortran/generated/maxval_i8.c +++ b/libgfortran/generated/maxval_i8.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__maxval_i8); +extern void maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxval_i8); void -__mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxval_r4.c b/libgfortran/generated/maxval_r4.c index 7339490..13e00af 100644 --- a/libgfortran/generated/maxval_r4.c +++ b/libgfortran/generated/maxval_r4.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); -export_proto_np(__maxval_r4); +extern void maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxval_r4); void -__mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/maxval_r8.c b/libgfortran/generated/maxval_r8.c index cbc1fc9..fe65522 100644 --- a/libgfortran/generated/maxval_r8.c +++ b/libgfortran/generated/maxval_r8.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); -export_proto_np(__maxval_r8); +extern void maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mmaxval_r8); void -__mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mmaxval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc0_4_i4.c b/libgfortran/generated/minloc0_4_i4.c index c377498..4ed06b7 100644 --- a/libgfortran/generated/minloc0_4_i4.c +++ b/libgfortran/generated/minloc0_4_i4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); -export_proto_np(__minloc0_4_i4); +extern void minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); +export_proto(minloc0_4_i4); void -__minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) +minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto(mminloc0_4_i4); void -__mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) +mminloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_4_i8.c b/libgfortran/generated/minloc0_4_i8.c index 56fd261..0711a43 100644 --- a/libgfortran/generated/minloc0_4_i8.c +++ b/libgfortran/generated/minloc0_4_i8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); -export_proto_np(__minloc0_4_i8); +extern void minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); +export_proto(minloc0_4_i8); void -__minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) +minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto(mminloc0_4_i8); void -__mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) +mminloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_4_r4.c b/libgfortran/generated/minloc0_4_r4.c index 30b5b1d..9733d28 100644 --- a/libgfortran/generated/minloc0_4_r4.c +++ b/libgfortran/generated/minloc0_4_r4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); -export_proto_np(__minloc0_4_r4); +extern void minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); +export_proto(minloc0_4_r4); void -__minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) +minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto(mminloc0_4_r4); void -__mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) +mminloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_4_r8.c b/libgfortran/generated/minloc0_4_r8.c index 8a4267d..25b0e63 100644 --- a/libgfortran/generated/minloc0_4_r8.c +++ b/libgfortran/generated/minloc0_4_r8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); -export_proto_np(__minloc0_4_r8); +extern void minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); +export_proto(minloc0_4_r8); void -__minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) +minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto(mminloc0_4_r8); void -__mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) +mminloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_8_i4.c b/libgfortran/generated/minloc0_8_i4.c index 6d7cb9c..c857226 100644 --- a/libgfortran/generated/minloc0_8_i4.c +++ b/libgfortran/generated/minloc0_8_i4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); -export_proto_np(__minloc0_8_i4); +extern void minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); +export_proto(minloc0_8_i4); void -__minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) +minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *); +export_proto(mminloc0_8_i4); void -__mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, gfc_array_l4 * mask) +mminloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_8_i8.c b/libgfortran/generated/minloc0_8_i8.c index 87d6705..00a7dfe 100644 --- a/libgfortran/generated/minloc0_8_i8.c +++ b/libgfortran/generated/minloc0_8_i8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); -export_proto_np(__minloc0_8_i8); +extern void minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); +export_proto(minloc0_8_i8); void -__minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) +minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *); +export_proto(mminloc0_8_i8); void -__mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, gfc_array_l4 * mask) +mminloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_8_r4.c b/libgfortran/generated/minloc0_8_r4.c index 660a763..d7c01b3 100644 --- a/libgfortran/generated/minloc0_8_r4.c +++ b/libgfortran/generated/minloc0_8_r4.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); -export_proto_np(__minloc0_8_r4); +extern void minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); +export_proto(minloc0_8_r4); void -__minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) +minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *); +export_proto(mminloc0_8_r4); void -__mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, gfc_array_l4 * mask) +mminloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc0_8_r8.c b/libgfortran/generated/minloc0_8_r8.c index b8c8303..020985a 100644 --- a/libgfortran/generated/minloc0_8_r8.c +++ b/libgfortran/generated/minloc0_8_r8.c @@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */ -extern void __minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); -export_proto_np(__minloc0_8_r8); +extern void minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); +export_proto(minloc0_8_r8); void -__minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) +minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -122,11 +122,12 @@ __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); +extern void mminloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *); +export_proto(mminloc0_8_r8); void -__mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, gfc_array_l4 * mask) +mminloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/generated/minloc1_4_i4.c b/libgfortran/generated/minloc1_4_i4.c index eaf4212..82f0cef 100644 --- a/libgfortran/generated/minloc1_4_i4.c +++ b/libgfortran/generated/minloc1_4_i4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__minloc1_4_i4); +extern void minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(minloc1_4_i4); void -__minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) +minloc1_4_i4 (gfc_array_i4 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_4_i4); void -__mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_4_i8.c b/libgfortran/generated/minloc1_4_i8.c index 0ea3802..a1b8c2c 100644 --- a/libgfortran/generated/minloc1_4_i8.c +++ b/libgfortran/generated/minloc1_4_i8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); -export_proto_np(__minloc1_4_i8); +extern void minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); +export_proto(minloc1_4_i8); void -__minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) +minloc1_4_i8 (gfc_array_i4 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_4_i8); void -__mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_4_r4.c b/libgfortran/generated/minloc1_4_r4.c index 3336f0f..2bc453c 100644 --- a/libgfortran/generated/minloc1_4_r4.c +++ b/libgfortran/generated/minloc1_4_r4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); -export_proto_np(__minloc1_4_r4); +extern void minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); +export_proto(minloc1_4_r4); void -__minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) +minloc1_4_r4 (gfc_array_i4 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_4_r4); void -__mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_4_r8.c b/libgfortran/generated/minloc1_4_r8.c index bb59dcc..73d1a45 100644 --- a/libgfortran/generated/minloc1_4_r8.c +++ b/libgfortran/generated/minloc1_4_r8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); -export_proto_np(__minloc1_4_r8); +extern void minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); +export_proto(minloc1_4_r8); void -__minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) +minloc1_4_r8 (gfc_array_i4 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_4_r8); void -__mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_8_i4.c b/libgfortran/generated/minloc1_8_i4.c index c30f656..531600e 100644 --- a/libgfortran/generated/minloc1_8_i4.c +++ b/libgfortran/generated/minloc1_8_i4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); -export_proto_np(__minloc1_8_i4); +extern void minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); +export_proto(minloc1_8_i4); void -__minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) +minloc1_8_i4 (gfc_array_i8 *retarray, gfc_array_i4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_8_i4); void -__mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_8_i8.c b/libgfortran/generated/minloc1_8_i8.c index 4d3e34a..a11e738 100644 --- a/libgfortran/generated/minloc1_8_i8.c +++ b/libgfortran/generated/minloc1_8_i8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__minloc1_8_i8); +extern void minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(minloc1_8_i8); void -__minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) +minloc1_8_i8 (gfc_array_i8 *retarray, gfc_array_i8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_8_i8); void -__mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_8_r4.c b/libgfortran/generated/minloc1_8_r4.c index e5c1a59..aaf3822 100644 --- a/libgfortran/generated/minloc1_8_r4.c +++ b/libgfortran/generated/minloc1_8_r4.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); -export_proto_np(__minloc1_8_r4); +extern void minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); +export_proto(minloc1_8_r4); void -__minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) +minloc1_8_r4 (gfc_array_i8 *retarray, gfc_array_r4 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_8_r4); void -__mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minloc1_8_r8.c b/libgfortran/generated/minloc1_8_r8.c index ff7ebb9..4cc1610 100644 --- a/libgfortran/generated/minloc1_8_r8.c +++ b/libgfortran/generated/minloc1_8_r8.c @@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); -export_proto_np(__minloc1_8_r8); +extern void minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); +export_proto(minloc1_8_r8); void -__minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) +minloc1_8_r8 (gfc_array_i8 *retarray, gfc_array_r8 *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -157,12 +157,13 @@ __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); +extern void mminloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mminloc1_8_r8); void -__mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mminloc1_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minval_i4.c b/libgfortran/generated/minval_i4.c index 23b8326..b98004e 100644 --- a/libgfortran/generated/minval_i4.c +++ b/libgfortran/generated/minval_i4.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__minval_i4); +extern void minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mminval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mminval_i4); void -__mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mminval_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minval_i8.c b/libgfortran/generated/minval_i8.c index 149ba7a..2512832 100644 --- a/libgfortran/generated/minval_i8.c +++ b/libgfortran/generated/minval_i8.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__minval_i8); +extern void minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mminval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mminval_i8); void -__mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mminval_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minval_r4.c b/libgfortran/generated/minval_r4.c index 3a4b13d..8846317 100644 --- a/libgfortran/generated/minval_r4.c +++ b/libgfortran/generated/minval_r4.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); -export_proto_np(__minval_r4); +extern void minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mminval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mminval_r4); void -__mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mminval_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/minval_r8.c b/libgfortran/generated/minval_r8.c index e30c431..bd7b7e7 100644 --- a/libgfortran/generated/minval_r8.c +++ b/libgfortran/generated/minval_r8.c @@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); -export_proto_np(__minval_r8); +extern void minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto(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]; @@ -151,12 +151,13 @@ __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); +extern void mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mminval_r8); void -__mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mminval_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_c4.c b/libgfortran/generated/product_c4.c index f8fcdcb..98f83c4 100644 --- a/libgfortran/generated/product_c4.c +++ b/libgfortran/generated/product_c4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); -export_proto_np(__product_c4); +extern void product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_c4); void -__mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_c8.c b/libgfortran/generated/product_c8.c index 4e54c68..d41990b 100644 --- a/libgfortran/generated/product_c8.c +++ b/libgfortran/generated/product_c8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); -export_proto_np(__product_c8); +extern void product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_c8); void -__mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_i4.c b/libgfortran/generated/product_i4.c index 386fbf9..02b715e 100644 --- a/libgfortran/generated/product_i4.c +++ b/libgfortran/generated/product_i4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__product_i4); +extern void product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_i4); void -__mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_i8.c b/libgfortran/generated/product_i8.c index 0e5ac66..16dab58 100644 --- a/libgfortran/generated/product_i8.c +++ b/libgfortran/generated/product_i8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__product_i8); +extern void product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_i8); void -__mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_r4.c b/libgfortran/generated/product_r4.c index cf38879..c5b9096 100644 --- a/libgfortran/generated/product_r4.c +++ b/libgfortran/generated/product_r4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); -export_proto_np(__product_r4); +extern void product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_r4); void -__mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/product_r8.c b/libgfortran/generated/product_r8.c index adba0bc..21aaa6e 100644 --- a/libgfortran/generated/product_r8.c +++ b/libgfortran/generated/product_r8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); -export_proto_np(__product_r8); +extern void product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void mproduct_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(mproduct_r8); void -__mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +mproduct_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/reshape_i4.c b/libgfortran/generated/reshape_i4.c index 70c3235..89b752d 100644 --- a/libgfortran/generated/reshape_i4.c +++ b/libgfortran/generated/reshape_i4.c @@ -29,12 +29,12 @@ 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 *, +extern void reshape_4 (gfc_array_i4 *, gfc_array_i4 *, shape_type *, gfc_array_i4 *, shape_type *); -extern_proto_np(__reshape_4); +export_proto(reshape_4); void -__reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, +reshape_4 (gfc_array_i4 * ret, gfc_array_i4 * source, shape_type * shape, gfc_array_i4 * pad, shape_type * order) { /* r.* indicates the return array. */ diff --git a/libgfortran/generated/reshape_i8.c b/libgfortran/generated/reshape_i8.c index af76e25..0434eef 100644 --- a/libgfortran/generated/reshape_i8.c +++ b/libgfortran/generated/reshape_i8.c @@ -29,12 +29,12 @@ 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 *, +extern void reshape_8 (gfc_array_i8 *, gfc_array_i8 *, shape_type *, gfc_array_i8 *, shape_type *); -extern_proto_np(__reshape_8); +export_proto(reshape_8); void -__reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape, +reshape_8 (gfc_array_i8 * ret, gfc_array_i8 * source, shape_type * shape, gfc_array_i8 * pad, shape_type * order) { /* r.* indicates the return array. */ diff --git a/libgfortran/generated/shape_i4.c b/libgfortran/generated/shape_i4.c index 855ccc0..ee7c663 100644 --- a/libgfortran/generated/shape_i4.c +++ b/libgfortran/generated/shape_i4.c @@ -24,11 +24,11 @@ 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); +extern void shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array); +export_proto(shape_4); void -__shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array) +shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array) { int n; index_type stride; diff --git a/libgfortran/generated/shape_i8.c b/libgfortran/generated/shape_i8.c index 0dc92f0..1bc2d7a 100644 --- a/libgfortran/generated/shape_i8.c +++ b/libgfortran/generated/shape_i8.c @@ -24,11 +24,11 @@ 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); +extern void shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array); +export_proto(shape_8); void -__shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array) +shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array) { int n; index_type stride; diff --git a/libgfortran/generated/sum_c4.c b/libgfortran/generated/sum_c4.c index a4af04a..3a13f97 100644 --- a/libgfortran/generated/sum_c4.c +++ b/libgfortran/generated/sum_c4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); -export_proto_np(__sum_c4); +extern void sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *, + gfc_array_l4 *); +export_proto(msum_c4); void -__msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, index_type *pdim, gfc_array_l4 * mask) +msum_c4 (gfc_array_c4 * retarray, gfc_array_c4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/sum_c8.c b/libgfortran/generated/sum_c8.c index f421e80..2a7ff55 100644 --- a/libgfortran/generated/sum_c8.c +++ b/libgfortran/generated/sum_c8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); -export_proto_np(__sum_c8); +extern void sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *, + gfc_array_l4 *); +export_proto(msum_c8); void -__msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, index_type *pdim, gfc_array_l4 * mask) +msum_c8 (gfc_array_c8 * retarray, gfc_array_c8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/sum_i4.c b/libgfortran/generated/sum_i4.c index 55b000d..648c59a 100644 --- a/libgfortran/generated/sum_i4.c +++ b/libgfortran/generated/sum_i4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); -export_proto_np(__sum_i4); +extern void sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *, + gfc_array_l4 *); +export_proto(msum_i4); void -__msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, index_type *pdim, gfc_array_l4 * mask) +msum_i4 (gfc_array_i4 * retarray, gfc_array_i4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/sum_i8.c b/libgfortran/generated/sum_i8.c index d72bd12..60fd32a 100644 --- a/libgfortran/generated/sum_i8.c +++ b/libgfortran/generated/sum_i8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); -export_proto_np(__sum_i8); +extern void sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *, + gfc_array_l4 *); +export_proto(msum_i8); void -__msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, index_type *pdim, gfc_array_l4 * mask) +msum_i8 (gfc_array_i8 * retarray, gfc_array_i8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/sum_r4.c b/libgfortran/generated/sum_r4.c index dcb8155..5705ce9 100644 --- a/libgfortran/generated/sum_r4.c +++ b/libgfortran/generated/sum_r4.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); -export_proto_np(__sum_r4); +extern void sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *, + gfc_array_l4 *); +export_proto(msum_r4); void -__msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, index_type *pdim, gfc_array_l4 * mask) +msum_r4 (gfc_array_r4 * retarray, gfc_array_r4 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/sum_r8.c b/libgfortran/generated/sum_r8.c index 3a6ea96..df02d6c 100644 --- a/libgfortran/generated/sum_r8.c +++ b/libgfortran/generated/sum_r8.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h" -extern void __sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); -export_proto_np(__sum_r8); +extern void sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); +export_proto(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]; @@ -149,12 +149,13 @@ __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); +extern void msum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *, + gfc_array_l4 *); +export_proto(msum_r8); void -__msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, index_type *pdim, gfc_array_l4 * mask) +msum_r8 (gfc_array_r8 * retarray, gfc_array_r8 * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/generated/transpose_i4.c b/libgfortran/generated/transpose_i4.c index 24ae8a8..9f96e45 100644 --- a/libgfortran/generated/transpose_i4.c +++ b/libgfortran/generated/transpose_i4.c @@ -23,11 +23,11 @@ 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); +extern void transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source); +export_proto(transpose_4); void -__transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source) +transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source) { /* r.* indicates the return array. */ index_type rxstride, rystride; diff --git a/libgfortran/generated/transpose_i8.c b/libgfortran/generated/transpose_i8.c index 67ef0dd..127110e 100644 --- a/libgfortran/generated/transpose_i8.c +++ b/libgfortran/generated/transpose_i8.c @@ -23,11 +23,11 @@ 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); +extern void transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source); +export_proto(transpose_8); void -__transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source) +transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source) { /* r.* indicates the return array. */ index_type rxstride, rystride; diff --git a/libgfortran/intrinsics/cshift0.c b/libgfortran/intrinsics/cshift0.c index 9fd8785..4783eda 100644 --- a/libgfortran/intrinsics/cshift0.c +++ b/libgfortran/intrinsics/cshift0.c @@ -66,8 +66,8 @@ DEF_COPY_LOOP(ldouble, long double) static void -__cshift0 (gfc_array_char * ret, const gfc_array_char * array, - ssize_t shift, int which) +cshift0 (gfc_array_char * ret, const gfc_array_char * array, + ssize_t shift, int which) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -238,24 +238,24 @@ __cshift0 (gfc_array_char * ret, const gfc_array_char * array, } -extern void __cshift0_4 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); -export_proto_np(__cshift0_4); +extern void cshift0_4 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); +export_proto(cshift0_4); void -__cshift0_4 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_4 * pshift, const GFC_INTEGER_4 * pdim) +cshift0_4 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_4 *pshift, const GFC_INTEGER_4 *pdim) { - __cshift0 (ret, array, *pshift, pdim ? *pdim : 1); + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } -extern void __cshift0_8 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); -export_proto_np(__cshift0_8); +extern void cshift0_8 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); +export_proto(cshift0_8); void -__cshift0_8 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_8 * pshift, const GFC_INTEGER_8 * pdim) +cshift0_8 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_8 *pshift, const GFC_INTEGER_8 *pdim) { - __cshift0 (ret, array, *pshift, pdim ? *pdim : 1); + cshift0 (ret, array, *pshift, pdim ? *pdim : 1); } diff --git a/libgfortran/intrinsics/eoshift0.c b/libgfortran/intrinsics/eoshift0.c index df749a4..66f0ab1 100644 --- a/libgfortran/intrinsics/eoshift0.c +++ b/libgfortran/intrinsics/eoshift0.c @@ -32,8 +32,8 @@ static const char zeros[16] = sizeof(int) < sizeof (index_type). */ static void -__eoshift0 (gfc_array_char * ret, const gfc_array_char * array, - int shift, const char * pbound, int which) +eoshift0 (gfc_array_char * ret, const gfc_array_char * array, + int shift, const char * pbound, int which) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -187,28 +187,28 @@ __eoshift0 (gfc_array_char * ret, const gfc_array_char * array, } } -extern void __eoshift0_4 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_4 *, const char *, - const GFC_INTEGER_4 *); -export_proto_np(__eoshift0_4); +extern void eoshift0_4 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_4 *, const char *, + const GFC_INTEGER_4 *); +export_proto(eoshift0_4); void -__eoshift0_4 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_4 * pshift, const char * pbound, - const GFC_INTEGER_4 * pdim) +eoshift0_4 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_4 *pshift, const char *pbound, + const GFC_INTEGER_4 *pdim) { - __eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); + eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); } -extern void __eoshift0_8 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_8 *, const char *, - const GFC_INTEGER_8 *); -export_proto_np(__eoshift0_8); +extern void eoshift0_8 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_8 *, const char *, + const GFC_INTEGER_8 *); +export_proto(eoshift0_8); void -__eoshift0_8 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_8 * pshift, const char * pbound, - const GFC_INTEGER_8 * pdim) +eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_8 *pshift, const char *pbound, + const GFC_INTEGER_8 *pdim) { - __eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); + eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); } diff --git a/libgfortran/intrinsics/eoshift2.c b/libgfortran/intrinsics/eoshift2.c index 388486d..e7409e6 100644 --- a/libgfortran/intrinsics/eoshift2.c +++ b/libgfortran/intrinsics/eoshift2.c @@ -32,8 +32,8 @@ static const char zeros[16] = sizeof(int) < sizeof (index_type). */ static void -__eoshift2 (gfc_array_char * ret, const gfc_array_char * array, - int shift, const gfc_array_char * bound, int which) +eoshift2 (gfc_array_char *ret, const gfc_array_char *array, + int shift, const gfc_array_char *bound, int which) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; @@ -203,28 +203,28 @@ __eoshift2 (gfc_array_char * ret, const gfc_array_char * array, } } -extern void __eoshift2_4 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_4 *, const gfc_array_char *, - const GFC_INTEGER_4 *); -export_proto_np(__eoshift2_4); +extern void eoshift2_4 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_4 *, const gfc_array_char *, + const GFC_INTEGER_4 *); +export_proto(eoshift2_4); void -__eoshift2_4 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_4 * pshift, const gfc_array_char * bound, - const GFC_INTEGER_4 * pdim) +eoshift2_4 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_4 *pshift, const gfc_array_char *bound, + const GFC_INTEGER_4 *pdim) { - __eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); + eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); } -extern void __eoshift2_8 (gfc_array_char *, const gfc_array_char *, - const GFC_INTEGER_8 *, const gfc_array_char *, - const GFC_INTEGER_8 *); -export_proto_np(__eoshift2_8); +extern void eoshift2_8 (gfc_array_char *, const gfc_array_char *, + const GFC_INTEGER_8 *, const gfc_array_char *, + const GFC_INTEGER_8 *); +export_proto(eoshift2_8); void -__eoshift2_8 (gfc_array_char * ret, const gfc_array_char * array, - const GFC_INTEGER_8 * pshift, const gfc_array_char * bound, - const GFC_INTEGER_8 * pdim) +eoshift2_8 (gfc_array_char *ret, const gfc_array_char *array, + const GFC_INTEGER_8 *pshift, const gfc_array_char *bound, + const GFC_INTEGER_8 *pdim) { - __eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); + eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); } diff --git a/libgfortran/intrinsics/pack_generic.c b/libgfortran/intrinsics/pack_generic.c index 0332b79..6180135 100644 --- a/libgfortran/intrinsics/pack_generic.c +++ b/libgfortran/intrinsics/pack_generic.c @@ -65,13 +65,13 @@ Boston, MA 02111-1307, USA. */ There are two variants of the PACK intrinsic: one, where MASK is array valued, and the other one where MASK is scalar. */ -extern void __pack (gfc_array_char *, const gfc_array_char *, - const gfc_array_l4 *, const gfc_array_char *); -export_proto_np(__pack); +extern void pack (gfc_array_char *, const gfc_array_char *, + const gfc_array_l4 *, const gfc_array_char *); +export_proto(pack); void -__pack (gfc_array_char * ret, const gfc_array_char * array, - const gfc_array_l4 * mask, const gfc_array_char * vector) +pack (gfc_array_char *ret, const gfc_array_char *array, + const gfc_array_l4 *mask, const gfc_array_char *vector) { /* r.* indicates the return array. */ index_type rstride0; @@ -269,13 +269,13 @@ __pack (gfc_array_char * ret, const gfc_array_char * array, } } -extern void __pack_s (gfc_array_char *ret, const gfc_array_char *array, - const GFC_LOGICAL_4 *, const gfc_array_char *); -export_proto_np(__pack_s); +extern void pack_s (gfc_array_char *ret, const gfc_array_char *array, + const GFC_LOGICAL_4 *, const gfc_array_char *); +export_proto(pack_s); void -__pack_s (gfc_array_char * ret, const gfc_array_char * array, - const GFC_LOGICAL_4 * mask, const gfc_array_char * vector) +pack_s (gfc_array_char *ret, const gfc_array_char *array, + const GFC_LOGICAL_4 *mask, const gfc_array_char *vector) { /* r.* indicates the return array. */ index_type rstride0; diff --git a/libgfortran/intrinsics/reshape_generic.c b/libgfortran/intrinsics/reshape_generic.c index aecc6b6..18568af 100644 --- a/libgfortran/intrinsics/reshape_generic.c +++ b/libgfortran/intrinsics/reshape_generic.c @@ -28,16 +28,15 @@ Boston, MA 02111-1307, USA. */ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) parray; -extern void __reshape (parray *, parray *, shape_type *, - parray *, shape_type *); -export_proto_np(__reshape); +extern void reshape (parray *, parray *, shape_type *, parray *, shape_type *); +export_proto(reshape); /* The shape parameter is ignored. We can currently deduce the shape from the return array. */ void -__reshape (parray * ret, parray * source, shape_type * shape, - parray * pad, shape_type * order) +reshape (parray *ret, parray *source, shape_type *shape, + parray *pad, shape_type *order) { /* r.* indicates the return array. */ index_type rcount[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/intrinsics/spread_generic.c b/libgfortran/intrinsics/spread_generic.c index 0cada54..44c4027 100644 --- a/libgfortran/intrinsics/spread_generic.c +++ b/libgfortran/intrinsics/spread_generic.c @@ -1,4 +1,4 @@ -/* Generic implementation of the RESHAPE intrinsic +/* Generic implementation of the SPREAD intrinsic Copyright 2002 Free Software Foundation, Inc. Contributed by Paul Brook <paul@nowt.org> @@ -25,13 +25,13 @@ Boston, MA 02111-1307, USA. */ #include <string.h> #include "libgfortran.h" -extern void __spread (const gfc_array_char *, const gfc_array_char *, - const index_type *, const index_type *); -export_proto_np(__spread); +extern void spread (const gfc_array_char *, const gfc_array_char *, + const index_type *, const index_type *); +export_proto(spread); void -__spread (const gfc_array_char * ret, const gfc_array_char * source, - const index_type * along, const index_type * pncopies) +spread (const gfc_array_char *ret, const gfc_array_char *source, + const index_type *along, const index_type *pncopies) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/intrinsics/transpose_generic.c b/libgfortran/intrinsics/transpose_generic.c index ba3014f..af66be5 100644 --- a/libgfortran/intrinsics/transpose_generic.c +++ b/libgfortran/intrinsics/transpose_generic.c @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include <assert.h> #include "libgfortran.h" -extern void __transpose (gfc_array_char *, gfc_array_char *); -export_proto_np(__transpose); +extern void transpose (gfc_array_char *, gfc_array_char *); +export_proto(transpose); void -__transpose (gfc_array_char * ret, gfc_array_char * source) +transpose (gfc_array_char *ret, gfc_array_char *source) { /* r.* indicates the return array. */ index_type rxstride, rystride; diff --git a/libgfortran/intrinsics/unpack_generic.c b/libgfortran/intrinsics/unpack_generic.c index 16deea4..1add5c8 100644 --- a/libgfortran/intrinsics/unpack_generic.c +++ b/libgfortran/intrinsics/unpack_generic.c @@ -25,13 +25,13 @@ Boston, MA 02111-1307, USA. */ #include <string.h> #include "libgfortran.h" -extern void __unpack1 (const gfc_array_char *, const gfc_array_char *, - const gfc_array_l4 *, const gfc_array_char *); -export_proto_np(__unpack1); +extern void unpack1 (const gfc_array_char *, const gfc_array_char *, + const gfc_array_l4 *, const gfc_array_char *); +iexport_proto(unpack1); void -__unpack1 (const gfc_array_char * ret, const gfc_array_char * vector, - const gfc_array_l4 * mask, const gfc_array_char * field) +unpack1 (const gfc_array_char *ret, const gfc_array_char *vector, + const gfc_array_l4 *mask, const gfc_array_char *field) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS]; @@ -143,18 +143,19 @@ __unpack1 (const gfc_array_char * ret, const gfc_array_char * vector, } } } +iexport(unpack1); -extern void __unpack0 (const gfc_array_char *, const gfc_array_char *, - const gfc_array_l4 *, char *); -export_proto_np(__unpack0); +extern void unpack0 (const gfc_array_char *, const gfc_array_char *, + const gfc_array_l4 *, char *); +export_proto(unpack0); void -__unpack0 (const gfc_array_char * ret, const gfc_array_char * vector, - const gfc_array_l4 * mask, char * field) +unpack0 (const gfc_array_char *ret, const gfc_array_char *vector, + const gfc_array_l4 *mask, char *field) { gfc_array_char tmp; tmp.dtype = 0; tmp.data = field; - __unpack1 (ret, vector, mask, &tmp); + unpack1 (ret, vector, mask, &tmp); } diff --git a/libgfortran/m4/cshift1.m4 b/libgfortran/m4/cshift1.m4 index 989f91c..aad1749 100644 --- a/libgfortran/m4/cshift1.m4 +++ b/libgfortran/m4/cshift1.m4 @@ -26,15 +26,15 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -void __cshift1_`'atype_kind (const gfc_array_char * ret, - const gfc_array_char * array, - const atype * h, const atype_name * pwhich); -export_proto_np(__cshift1_`'atype_kind); +void cshift1_`'atype_kind (const gfc_array_char * ret, + const gfc_array_char * array, + const atype * h, const atype_name * pwhich); +export_proto(cshift1_`'atype_kind); void -__cshift1_`'atype_kind (const gfc_array_char * ret, - const gfc_array_char * array, - const atype * h, const atype_name * pwhich) +cshift1_`'atype_kind (const gfc_array_char * ret, + const gfc_array_char * array, + const atype * h, const atype_name * pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/m4/dotprod.m4 b/libgfortran/m4/dotprod.m4 index 3e3245c..99ed53f 100644 --- a/libgfortran/m4/dotprod.m4 +++ b/libgfortran/m4/dotprod.m4 @@ -27,12 +27,12 @@ include(iparm.m4)dnl typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; -extern rtype_name __dot_product_`'rtype_code (rtype * a, rtype * b); -export_proto_np(__dot_product_`'rtype_code); +extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b); +export_proto(dot_product_`'rtype_code); /* Both parameters will already have been converted to the result type. */ rtype_name -__dot_product_`'rtype_code (rtype * a, rtype * b) +dot_product_`'rtype_code (rtype * a, rtype * b) { rtype_name *pa; rtype_name *pb; diff --git a/libgfortran/m4/dotprodc.m4 b/libgfortran/m4/dotprodc.m4 index 38ef7fc..d16b992 100644 --- a/libgfortran/m4/dotprodc.m4 +++ b/libgfortran/m4/dotprodc.m4 @@ -28,12 +28,12 @@ include(iparm.m4)dnl typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; -extern rtype_name __dot_product_`'rtype_code (rtype * a, rtype * b); -export_proto_np(__dot_product_`'rtype_code); +extern rtype_name dot_product_`'rtype_code (rtype * a, rtype * b); +export_proto(dot_product_`'rtype_code); /* Both parameters will already have been converted to the result type. */ rtype_name -__dot_product_`'rtype_code (rtype * a, rtype * b) +dot_product_`'rtype_code (rtype * a, rtype * b) { rtype_name *pa; rtype_name *pb; diff --git a/libgfortran/m4/dotprodl.m4 b/libgfortran/m4/dotprodl.m4 index dc196e0..779ca01 100644 --- a/libgfortran/m4/dotprodl.m4 +++ b/libgfortran/m4/dotprodl.m4 @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -extern rtype_name __dot_product_`'rtype_code (gfc_array_l4 *, gfc_array_l4 *); -export_proto_np(__dot_product_`'rtype_code); +extern rtype_name dot_product_`'rtype_code (gfc_array_l4 *, gfc_array_l4 *); +export_proto(dot_product_`'rtype_code); rtype_name -__dot_product_`'rtype_code (gfc_array_l4 * a, gfc_array_l4 * b) +dot_product_`'rtype_code (gfc_array_l4 * a, gfc_array_l4 * b) { GFC_LOGICAL_4 *pa; GFC_LOGICAL_4 *pb; diff --git a/libgfortran/m4/eoshift1.m4 b/libgfortran/m4/eoshift1.m4 index f8ae460..603901d 100644 --- a/libgfortran/m4/eoshift1.m4 +++ b/libgfortran/m4/eoshift1.m4 @@ -29,17 +29,17 @@ include(iparm.m4)dnl static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -extern void __eoshift1_`'atype_kind (const gfc_array_char *, +extern void eoshift1_`'atype_kind (const gfc_array_char *, const gfc_array_char *, const atype *, const char *, const atype_name *); -export_proto_np(__eoshift1_`'atype_kind); +export_proto(eoshift1_`'atype_kind); void -__eoshift1_`'atype_kind (const gfc_array_char *ret, - const gfc_array_char *array, - const atype *h, const char *pbound, - const atype_name *pwhich) +eoshift1_`'atype_kind (const gfc_array_char *ret, + const gfc_array_char *array, + const atype *h, const char *pbound, + const atype_name *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/m4/eoshift3.m4 b/libgfortran/m4/eoshift3.m4 index 4e706dc..0ded29e 100644 --- a/libgfortran/m4/eoshift3.m4 +++ b/libgfortran/m4/eoshift3.m4 @@ -29,15 +29,15 @@ include(iparm.m4)dnl static const char zeros[16] = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; -extern void __eoshift3_`'atype_kind (gfc_array_char *, gfc_array_char *, +extern void eoshift3_`'atype_kind (gfc_array_char *, gfc_array_char *, atype *, const gfc_array_char *, atype_name *); -export_proto_np(__eoshift3_`'atype_kind); +export_proto(eoshift3_`'atype_kind); void -__eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array, - atype *h, const gfc_array_char *bound, - atype_name *pwhich) +eoshift3_`'atype_kind (gfc_array_char *ret, gfc_array_char *array, + atype *h, const gfc_array_char *bound, + atype_name *pwhich) { /* r.* indicates the return array. */ index_type rstride[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/m4/iforeach.m4 b/libgfortran/m4/iforeach.m4 index b67770b..e6c9a09 100644 --- a/libgfortran/m4/iforeach.m4 +++ b/libgfortran/m4/iforeach.m4 @@ -4,11 +4,11 @@ dnl This file is part of the GNU Fortran 95 Runtime Library (libgfortran) dnl Distributed under the GNU LGPL. See COPYING for details. define(START_FOREACH_FUNCTION, ` -extern void `__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array); -export_proto_np(`__'name`'rtype_qual`_'atype_code); +extern void name`'rtype_qual`_'atype_code (rtype * retarray, atype *array); +export_proto(name`'rtype_qual`_'atype_code); void -`__'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) +name`'rtype_qual`_'atype_code (rtype * retarray, atype *array) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; @@ -90,11 +90,12 @@ define(FINISH_FOREACH_FUNCTION, }')dnl define(START_MASKED_FOREACH_FUNCTION, ` -extern void `__m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *); -export_proto_np(`__m'name`'rtype_qual`_'atype_code); +extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, gfc_array_l4 *); +export_proto(`m'name`'rtype_qual`_'atype_code); void -`__m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, gfc_array_l4 * mask) +`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype *array, + gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS]; diff --git a/libgfortran/m4/ifunction.m4 b/libgfortran/m4/ifunction.m4 index 0a377a5..ee63838 100644 --- a/libgfortran/m4/ifunction.m4 +++ b/libgfortran/m4/ifunction.m4 @@ -19,11 +19,11 @@ dnl You should not return or break from the inner loop of the implementation. dnl Care should also be taken to avoid using the names defined in iparm.m4 define(START_ARRAY_FUNCTION, ` -extern void `__'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *); -export_proto_np(`__'name`'rtype_qual`_'atype_code); +extern void name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *); +export_proto(name`'rtype_qual`_'atype_code); void -`__'name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim) +name`'rtype_qual`_'atype_code (rtype *retarray, atype *array, index_type *pdim) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; @@ -143,12 +143,13 @@ define(FINISH_ARRAY_FUNCTION, }')dnl define(START_MASKED_ARRAY_FUNCTION, ` -extern void `__m'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *, - gfc_array_l4 *); -export_proto_np(`__m'name`'rtype_qual`_'atype_code); +extern void `m'name`'rtype_qual`_'atype_code (rtype *, atype *, index_type *, + gfc_array_l4 *); +export_proto(`m'name`'rtype_qual`_'atype_code); void -`__m'name`'rtype_qual`_'atype_code (rtype * retarray, atype * array, index_type *pdim, gfc_array_l4 * mask) +`m'name`'rtype_qual`_'atype_code (rtype * retarray, atype * array, + index_type *pdim, gfc_array_l4 * mask) { index_type count[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1]; diff --git a/libgfortran/m4/matmul.m4 b/libgfortran/m4/matmul.m4 index ef631d3..3bab232 100644 --- a/libgfortran/m4/matmul.m4 +++ b/libgfortran/m4/matmul.m4 @@ -38,11 +38,11 @@ include(iparm.m4)dnl C(I,J) = C(I,J)+A(I,K)*B(K,J) */ -extern void `__matmul_'rtype_code (rtype * retarray, rtype * a, rtype * b); -export_proto_np(`__matmul_'rtype_code); +extern void matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b); +export_proto(matmul_`'rtype_code); void -`__matmul_'rtype_code (rtype * retarray, rtype * a, rtype * b) +matmul_`'rtype_code (rtype * retarray, rtype * a, rtype * b) { rtype_name *abase; rtype_name *bbase; diff --git a/libgfortran/m4/matmull.m4 b/libgfortran/m4/matmull.m4 index 4091ef6..131de03 100644 --- a/libgfortran/m4/matmull.m4 +++ b/libgfortran/m4/matmull.m4 @@ -28,11 +28,11 @@ include(iparm.m4)dnl /* 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_'rtype_code (rtype *, gfc_array_l4 *, gfc_array_l4 *); -export_proto_np(`__matmul_'rtype_code); +extern void matmul_`'rtype_code (rtype *, gfc_array_l4 *, gfc_array_l4 *); +export_proto(matmul_`'rtype_code); void -`__matmul_'rtype_code (rtype * retarray, gfc_array_l4 * a, gfc_array_l4 * b) +matmul_`'rtype_code (rtype * retarray, gfc_array_l4 * a, gfc_array_l4 * b) { GFC_INTEGER_4 *abase; GFC_INTEGER_4 *bbase; diff --git a/libgfortran/m4/reshape.m4 b/libgfortran/m4/reshape.m4 index 7355a7a..119154a 100644 --- a/libgfortran/m4/reshape.m4 +++ b/libgfortran/m4/reshape.m4 @@ -31,12 +31,12 @@ typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; return array. */ dnl Only the kind (ie size) is used to name the function. -extern void `__reshape_'rtype_kind (rtype *, rtype *, shape_type *, +extern void reshape_`'rtype_kind (rtype *, rtype *, shape_type *, rtype *, shape_type *); -extern_proto_np(`__reshape_'rtype_kind); +export_proto(reshape_`'rtype_kind); void -`__reshape_'rtype_kind (rtype * ret, rtype * source, shape_type * shape, +reshape_`'rtype_kind (rtype * ret, rtype * source, shape_type * shape, rtype * pad, shape_type * order) { /* r.* indicates the return array. */ diff --git a/libgfortran/m4/shape.m4 b/libgfortran/m4/shape.m4 index e10fe0c..296611f 100644 --- a/libgfortran/m4/shape.m4 +++ b/libgfortran/m4/shape.m4 @@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -extern void `__shape_'rtype_kind (rtype * ret, const rtype * array); -export_proto_np(`__shape_'rtype_kind); +extern void shape_`'rtype_kind (rtype * ret, const rtype * array); +export_proto(shape_`'rtype_kind); void -`__shape_'rtype_kind (rtype * ret, const rtype * array) +shape_`'rtype_kind (rtype * ret, const rtype * array) { int n; index_type stride; diff --git a/libgfortran/m4/transpose.m4 b/libgfortran/m4/transpose.m4 index e519b29..1e14225 100644 --- a/libgfortran/m4/transpose.m4 +++ b/libgfortran/m4/transpose.m4 @@ -24,11 +24,11 @@ Boston, MA 02111-1307, USA. */ #include "libgfortran.h"' include(iparm.m4)dnl -extern void `__transpose_'rtype_kind (rtype * ret, rtype * source); -export_proto_np(`__transpose_'rtype_kind); +extern void transpose_`'rtype_kind (rtype * ret, rtype * source); +export_proto(transpose_`'rtype_kind); void -`__transpose_'rtype_kind (rtype * ret, rtype * source) +transpose_`'rtype_kind (rtype * ret, rtype * source) { /* r.* indicates the return array. */ index_type rxstride, rystride; |