Skip to content

R
riscv-gcc-1
Commit 7f68c75f by Richard Henderson Committed by Richard Henderson
Options

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
parent 5ad85f7d
Showing with 640 additions and 566 deletions
gcc/fortran/ChangeLog
2004-12-12 Richard Henderson <rth@redhat.com>
* 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.
2004-12-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18869
......
libgfortran/ChangeLog
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.
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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];
......
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];
......
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];
......
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];
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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;
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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. */
......
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. */
......
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;
......
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;
......
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];
......
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];
......
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];
......
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];
......
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];
......
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];
......
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;
......
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;
......
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);
}
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);
}
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);
}
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;
......
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];
......
libgfortran/intrinsics/spread_generic.c
/* 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];
......
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;
......
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);
}
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];
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment