git
/
gcc
mirror of git://gcc.gnu.org/git/gcc.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

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
This commit is contained in:
Richard Henderson 2004-12-12 18:47:58 -08:00 committed by Richard Henderson
parent 5ad85f7dc8
commit 7f68c75fb3
112 changed files with 714 additions and 714 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
gcc/fortran/ChangeLog
View File

@ -1,3 +1,13 @@
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> 2004-12-12 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
PR fortran/18869 PR fortran/18869

124
gcc/fortran/iresolve.c
View File

@ -126,7 +126,6 @@ free_strings (void)
void void
gfc_resolve_abs (gfc_expr * f, gfc_expr * a) gfc_resolve_abs (gfc_expr * f, gfc_expr * a)
{ {
f->ts = a->ts; f->ts = a->ts;
if (f->ts.type == BT_COMPLEX) if (f->ts.type == BT_COMPLEX)
f->ts.type = BT_REAL; f->ts.type = BT_REAL;
@ -139,7 +138,6 @@ gfc_resolve_abs (gfc_expr * f, gfc_expr * a)
void void
gfc_resolve_acos (gfc_expr * f, gfc_expr * x) gfc_resolve_acos (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__acos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -149,7 +147,6 @@ gfc_resolve_acos (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_aimag (gfc_expr * f, gfc_expr * x) gfc_resolve_aimag (gfc_expr * f, gfc_expr * x)
{ {
f->ts.type = BT_REAL; f->ts.type = BT_REAL;
f->ts.kind = x->ts.kind; f->ts.kind = x->ts.kind;
f->value.function.name = f->value.function.name =
@ -160,7 +157,6 @@ gfc_resolve_aimag (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_aint (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_aint (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = a->ts.type; f->ts.type = a->ts.type;
f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer); f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer);
@ -181,7 +177,6 @@ gfc_resolve_dint (gfc_expr * f, gfc_expr * a)
void void
gfc_resolve_all (gfc_expr * f, gfc_expr * mask, gfc_expr * dim) gfc_resolve_all (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
{ {
f->ts = mask->ts; f->ts = mask->ts;
if (dim != NULL) if (dim != NULL)
@ -192,7 +187,7 @@ gfc_resolve_all (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__all_%c%d", gfc_type_letter (mask->ts.type), gfc_get_string (PREFIX("all_%c%d"), gfc_type_letter (mask->ts.type),
mask->ts.kind); mask->ts.kind);
} }
@ -200,7 +195,6 @@ gfc_resolve_all (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
void void
gfc_resolve_anint (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_anint (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = a->ts.type; f->ts.type = a->ts.type;
f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer); f->ts.kind = (kind == NULL) ? a->ts.kind : mpz_get_si (kind->value.integer);
@ -221,7 +215,6 @@ gfc_resolve_dnint (gfc_expr * f, gfc_expr * a)
void void
gfc_resolve_any (gfc_expr * f, gfc_expr * mask, gfc_expr * dim) gfc_resolve_any (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
{ {
f->ts = mask->ts; f->ts = mask->ts;
if (dim != NULL) if (dim != NULL)
@ -232,7 +225,7 @@ gfc_resolve_any (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__any_%c%d", gfc_type_letter (mask->ts.type), gfc_get_string (PREFIX("any_%c%d"), gfc_type_letter (mask->ts.type),
mask->ts.kind); mask->ts.kind);
} }
@ -240,7 +233,6 @@ gfc_resolve_any (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
void void
gfc_resolve_asin (gfc_expr * f, gfc_expr * x) gfc_resolve_asin (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__asin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -250,7 +242,6 @@ gfc_resolve_asin (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_atan (gfc_expr * f, gfc_expr * x) gfc_resolve_atan (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__atan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -261,7 +252,6 @@ void
gfc_resolve_atan2 (gfc_expr * f, gfc_expr * x, gfc_resolve_atan2 (gfc_expr * f, gfc_expr * x,
gfc_expr * y ATTRIBUTE_UNUSED) gfc_expr * y ATTRIBUTE_UNUSED)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__atan2_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__atan2_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -289,7 +279,6 @@ gfc_resolve_besn (gfc_expr * f, gfc_expr * n, gfc_expr * x)
void void
gfc_resolve_btest (gfc_expr * f, gfc_expr * i, gfc_expr * pos) gfc_resolve_btest (gfc_expr * f, gfc_expr * i, gfc_expr * pos)
{ {
f->ts.type = BT_LOGICAL; f->ts.type = BT_LOGICAL;
f->ts.kind = gfc_default_logical_kind; f->ts.kind = gfc_default_logical_kind;
@ -301,7 +290,6 @@ gfc_resolve_btest (gfc_expr * f, gfc_expr * i, gfc_expr * pos)
void void
gfc_resolve_ceiling (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_ceiling (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = (kind == NULL) ? gfc_default_integer_kind f->ts.kind = (kind == NULL) ? gfc_default_integer_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -315,7 +303,6 @@ gfc_resolve_ceiling (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_char (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_char (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_CHARACTER; f->ts.type = BT_CHARACTER;
f->ts.kind = (kind == NULL) ? gfc_default_character_kind f->ts.kind = (kind == NULL) ? gfc_default_character_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -329,7 +316,6 @@ gfc_resolve_char (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_cmplx (gfc_expr * f, gfc_expr * x, gfc_expr * y, gfc_expr * kind) gfc_resolve_cmplx (gfc_expr * f, gfc_expr * x, gfc_expr * y, gfc_expr * kind)
{ {
f->ts.type = BT_COMPLEX; f->ts.type = BT_COMPLEX;
f->ts.kind = (kind == NULL) ? gfc_default_real_kind f->ts.kind = (kind == NULL) ? gfc_default_real_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -354,7 +340,6 @@ gfc_resolve_dcmplx (gfc_expr * f, gfc_expr * x, gfc_expr * y)
void void
gfc_resolve_conjg (gfc_expr * f, gfc_expr * x) gfc_resolve_conjg (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = gfc_get_string ("__conjg_%d", x->ts.kind); f->value.function.name = gfc_get_string ("__conjg_%d", x->ts.kind);
} }
@ -363,7 +348,6 @@ gfc_resolve_conjg (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_cos (gfc_expr * f, gfc_expr * x) gfc_resolve_cos (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__cos_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -373,7 +357,6 @@ gfc_resolve_cos (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_cosh (gfc_expr * f, gfc_expr * x) gfc_resolve_cosh (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__cosh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -383,7 +366,6 @@ gfc_resolve_cosh (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_count (gfc_expr * f, gfc_expr * mask, gfc_expr * dim) gfc_resolve_count (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
@ -395,7 +377,7 @@ gfc_resolve_count (gfc_expr * f, gfc_expr * mask, gfc_expr * dim)
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__count_%d_%c%d", f->ts.kind, gfc_get_string (PREFIX("count_%d_%c%d"), f->ts.kind,
gfc_type_letter (mask->ts.type), mask->ts.kind); gfc_type_letter (mask->ts.type), mask->ts.kind);
} }
@ -424,14 +406,13 @@ gfc_resolve_cshift (gfc_expr * f, gfc_expr * array,
gfc_convert_type_warn (dim, &shift->ts, 2, 0); gfc_convert_type_warn (dim, &shift->ts, 2, 0);
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__cshift%d_%d", n, shift->ts.kind); gfc_get_string (PREFIX("cshift%d_%d"), n, shift->ts.kind);
} }
void void
gfc_resolve_dble (gfc_expr * f, gfc_expr * a) gfc_resolve_dble (gfc_expr * f, gfc_expr * a)
{ {
f->ts.type = BT_REAL; f->ts.type = BT_REAL;
f->ts.kind = gfc_default_double_kind; f->ts.kind = gfc_default_double_kind;
f->value.function.name = f->value.function.name =
@ -443,7 +424,6 @@ void
gfc_resolve_dim (gfc_expr * f, gfc_expr * x, gfc_resolve_dim (gfc_expr * f, gfc_expr * x,
gfc_expr * y ATTRIBUTE_UNUSED) gfc_expr * y ATTRIBUTE_UNUSED)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__dim_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__dim_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -472,7 +452,7 @@ gfc_resolve_dot_product (gfc_expr * f, gfc_expr * a, gfc_expr * b)
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__dot_product_%c%d", gfc_type_letter (f->ts.type), gfc_get_string (PREFIX("dot_product_%c%d"), gfc_type_letter (f->ts.type),
f->ts.kind); f->ts.kind);
} }
@ -513,14 +493,13 @@ gfc_resolve_eoshift (gfc_expr * f, gfc_expr * array,
gfc_convert_type_warn (dim, &shift->ts, 2, 0); gfc_convert_type_warn (dim, &shift->ts, 2, 0);
f->value.function.name = f->value.function.name =
gfc_get_string ("__eoshift%d_%d", n, shift->ts.kind); gfc_get_string (PREFIX("eoshift%d_%d"), n, shift->ts.kind);
} }
void void
gfc_resolve_exp (gfc_expr * f, gfc_expr * x) gfc_resolve_exp (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__exp_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -530,7 +509,6 @@ gfc_resolve_exp (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_exponent (gfc_expr * f, gfc_expr * x) gfc_resolve_exponent (gfc_expr * f, gfc_expr * x)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
@ -541,7 +519,6 @@ gfc_resolve_exponent (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_floor (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_floor (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = (kind == NULL) ? gfc_default_integer_kind f->ts.kind = (kind == NULL) ? gfc_default_integer_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -555,7 +532,6 @@ gfc_resolve_floor (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_fnum (gfc_expr * f, gfc_expr * n) gfc_resolve_fnum (gfc_expr * f, gfc_expr * n)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
if (n->ts.kind != f->ts.kind) if (n->ts.kind != f->ts.kind)
@ -567,7 +543,6 @@ gfc_resolve_fnum (gfc_expr * f, gfc_expr * n)
void void
gfc_resolve_fraction (gfc_expr * f, gfc_expr * x) gfc_resolve_fraction (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = gfc_get_string ("__fraction_%d", x->ts.kind); f->value.function.name = gfc_get_string ("__fraction_%d", x->ts.kind);
} }
@ -640,7 +615,6 @@ gfc_resolve_iand (gfc_expr * f, gfc_expr * i, gfc_expr * j)
void void
gfc_resolve_ibclr (gfc_expr * f, gfc_expr * i, gfc_expr * pos ATTRIBUTE_UNUSED) gfc_resolve_ibclr (gfc_expr * f, gfc_expr * i, gfc_expr * pos ATTRIBUTE_UNUSED)
{ {
f->ts = i->ts; f->ts = i->ts;
f->value.function.name = gfc_get_string ("__ibclr_%d", i->ts.kind); f->value.function.name = gfc_get_string ("__ibclr_%d", i->ts.kind);
} }
@ -651,7 +625,6 @@ gfc_resolve_ibits (gfc_expr * f, gfc_expr * i,
gfc_expr * pos ATTRIBUTE_UNUSED, gfc_expr * pos ATTRIBUTE_UNUSED,
gfc_expr * len ATTRIBUTE_UNUSED) gfc_expr * len ATTRIBUTE_UNUSED)
{ {
f->ts = i->ts; f->ts = i->ts;
f->value.function.name = gfc_get_string ("__ibits_%d", i->ts.kind); f->value.function.name = gfc_get_string ("__ibits_%d", i->ts.kind);
} }
@ -661,7 +634,6 @@ void
gfc_resolve_ibset (gfc_expr * f, gfc_expr * i, gfc_resolve_ibset (gfc_expr * f, gfc_expr * i,
gfc_expr * pos ATTRIBUTE_UNUSED) gfc_expr * pos ATTRIBUTE_UNUSED)
{ {
f->ts = i->ts; f->ts = i->ts;
f->value.function.name = gfc_get_string ("__ibset_%d", i->ts.kind); f->value.function.name = gfc_get_string ("__ibset_%d", i->ts.kind);
} }
@ -670,7 +642,6 @@ gfc_resolve_ibset (gfc_expr * f, gfc_expr * i,
void void
gfc_resolve_ichar (gfc_expr * f, gfc_expr * c) gfc_resolve_ichar (gfc_expr * f, gfc_expr * c)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
@ -726,7 +697,6 @@ gfc_resolve_ior (gfc_expr * f, gfc_expr * i, gfc_expr * j)
void void
gfc_resolve_int (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_int (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = (kind == NULL) ? gfc_default_integer_kind f->ts.kind = (kind == NULL) ? gfc_default_integer_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -740,7 +710,6 @@ gfc_resolve_int (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_ishft (gfc_expr * f, gfc_expr * i, gfc_expr * shift) gfc_resolve_ishft (gfc_expr * f, gfc_expr * i, gfc_expr * shift)
{ {
f->ts = i->ts; f->ts = i->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__ishft_%d_%d", i->ts.kind, shift->ts.kind); gfc_get_string ("__ishft_%d_%d", i->ts.kind, shift->ts.kind);
@ -784,7 +753,6 @@ gfc_resolve_lbound (gfc_expr * f, gfc_expr * array,
void void
gfc_resolve_len (gfc_expr * f, gfc_expr * string) gfc_resolve_len (gfc_expr * f, gfc_expr * string)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->value.function.name = gfc_get_string ("__len_%d", string->ts.kind); f->value.function.name = gfc_get_string ("__len_%d", string->ts.kind);
@ -794,7 +762,6 @@ gfc_resolve_len (gfc_expr * f, gfc_expr * string)
void void
gfc_resolve_len_trim (gfc_expr * f, gfc_expr * string) gfc_resolve_len_trim (gfc_expr * f, gfc_expr * string)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->value.function.name = gfc_get_string ("__len_trim%d", string->ts.kind); f->value.function.name = gfc_get_string ("__len_trim%d", string->ts.kind);
@ -804,7 +771,6 @@ gfc_resolve_len_trim (gfc_expr * f, gfc_expr * string)
void void
gfc_resolve_log (gfc_expr * f, gfc_expr * x) gfc_resolve_log (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__log_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -814,7 +780,6 @@ gfc_resolve_log (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_log10 (gfc_expr * f, gfc_expr * x) gfc_resolve_log10 (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__log10_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__log10_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -824,7 +789,6 @@ gfc_resolve_log10 (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_logical (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_logical (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_LOGICAL; f->ts.type = BT_LOGICAL;
f->ts.kind = (kind == NULL) ? gfc_default_logical_kind f->ts.kind = (kind == NULL) ? gfc_default_logical_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -860,7 +824,7 @@ gfc_resolve_matmul (gfc_expr * f, gfc_expr * a, gfc_expr * b)
f->rank = (a->rank == 2 && b->rank == 2) ? 2 : 1; f->rank = (a->rank == 2 && b->rank == 2) ? 2 : 1;
f->value.function.name = f->value.function.name =
gfc_get_string ("__matmul_%c%d", gfc_type_letter (f->ts.type), gfc_get_string (PREFIX("matmul_%c%d"), gfc_type_letter (f->ts.type),
f->ts.kind); f->ts.kind);
} }
@ -917,7 +881,7 @@ gfc_resolve_maxloc (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
name = mask ? "mmaxloc" : "maxloc"; name = mask ? "mmaxloc" : "maxloc";
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s%d_%d_%c%d", name, dim != NULL, f->ts.kind, gfc_get_string (PREFIX("%s%d_%d_%c%d"), name, dim != NULL, f->ts.kind,
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -926,7 +890,6 @@ void
gfc_resolve_maxval (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_resolve_maxval (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
gfc_expr * mask) gfc_expr * mask)
{ {
f->ts = array->ts; f->ts = array->ts;
if (dim != NULL) if (dim != NULL)
@ -936,7 +899,7 @@ gfc_resolve_maxval (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s_%c%d", mask ? "mmaxval" : "maxval", gfc_get_string (PREFIX("%s_%c%d"), mask ? "mmaxval" : "maxval",
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -946,7 +909,6 @@ gfc_resolve_merge (gfc_expr * f, gfc_expr * tsource,
gfc_expr * fsource ATTRIBUTE_UNUSED, gfc_expr * fsource ATTRIBUTE_UNUSED,
gfc_expr * mask ATTRIBUTE_UNUSED) gfc_expr * mask ATTRIBUTE_UNUSED)
{ {
f->ts = tsource->ts; f->ts = tsource->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type), gfc_get_string ("__merge_%c%d", gfc_type_letter (tsource->ts.type),
@ -980,7 +942,7 @@ gfc_resolve_minloc (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
name = mask ? "mminloc" : "minloc"; name = mask ? "mminloc" : "minloc";
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s%d_%d_%c%d", name, dim != NULL, f->ts.kind, gfc_get_string (PREFIX("%s%d_%d_%c%d"), name, dim != NULL, f->ts.kind,
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -989,7 +951,6 @@ void
gfc_resolve_minval (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_resolve_minval (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
gfc_expr * mask) gfc_expr * mask)
{ {
f->ts = array->ts; f->ts = array->ts;
if (dim != NULL) if (dim != NULL)
@ -999,7 +960,7 @@ gfc_resolve_minval (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s_%c%d", mask ? "mminval" : "minval", gfc_get_string (PREFIX("%s_%c%d"), mask ? "mminval" : "minval",
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -1008,7 +969,6 @@ void
gfc_resolve_mod (gfc_expr * f, gfc_expr * a, gfc_resolve_mod (gfc_expr * f, gfc_expr * a,
gfc_expr * p ATTRIBUTE_UNUSED) gfc_expr * p ATTRIBUTE_UNUSED)
{ {
f->ts = a->ts; f->ts = a->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__mod_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); gfc_get_string ("__mod_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
@ -1019,7 +979,6 @@ void
gfc_resolve_modulo (gfc_expr * f, gfc_expr * a, gfc_resolve_modulo (gfc_expr * f, gfc_expr * a,
gfc_expr * p ATTRIBUTE_UNUSED) gfc_expr * p ATTRIBUTE_UNUSED)
{ {
f->ts = a->ts; f->ts = a->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__modulo_%c%d", gfc_type_letter (a->ts.type), gfc_get_string ("__modulo_%c%d", gfc_type_letter (a->ts.type),
@ -1027,10 +986,8 @@ gfc_resolve_modulo (gfc_expr * f, gfc_expr * a,
} }
void void
gfc_resolve_nearest (gfc_expr * f, gfc_expr * a, gfc_resolve_nearest (gfc_expr * f, gfc_expr * a, gfc_expr *p ATTRIBUTE_UNUSED)
gfc_expr *p ATTRIBUTE_UNUSED)
{ {
f->ts = a->ts; f->ts = a->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type), gfc_get_string ("__nearest_%c%d", gfc_type_letter (a->ts.type),
@ -1040,7 +997,6 @@ gfc_resolve_nearest (gfc_expr * f, gfc_expr * a,
void void
gfc_resolve_nint (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_nint (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = (kind == NULL) ? gfc_default_integer_kind f->ts.kind = (kind == NULL) ? gfc_default_integer_kind
: mpz_get_si (kind->value.integer); : mpz_get_si (kind->value.integer);
@ -1053,7 +1009,6 @@ gfc_resolve_nint (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_not (gfc_expr * f, gfc_expr * i) gfc_resolve_not (gfc_expr * f, gfc_expr * i)
{ {
f->ts = i->ts; f->ts = i->ts;
f->value.function.name = gfc_get_string ("__not_%d", i->ts.kind); f->value.function.name = gfc_get_string ("__not_%d", i->ts.kind);
} }
@ -1065,14 +1020,11 @@ gfc_resolve_pack (gfc_expr * f,
gfc_expr * mask, gfc_expr * mask,
gfc_expr * vector ATTRIBUTE_UNUSED) gfc_expr * vector ATTRIBUTE_UNUSED)
{ {
static char pack[] = "__pack",
pack_s[] = "__pack_s";
f->ts = array->ts; f->ts = array->ts;
f->rank = 1; f->rank = 1;
if (mask->rank != 0) if (mask->rank != 0)
f->value.function.name = pack; f->value.function.name = PREFIX("pack");
else else
{ {
/* We convert mask to default logical only in the scalar case. /* We convert mask to default logical only in the scalar case.
@ -1087,7 +1039,7 @@ gfc_resolve_pack (gfc_expr * f,
gfc_convert_type (mask, &ts, 2); gfc_convert_type (mask, &ts, 2);
} }
f->value.function.name = pack_s; f->value.function.name = PREFIX("pack_s");
} }
} }
@ -1096,7 +1048,6 @@ void
gfc_resolve_product (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_resolve_product (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
gfc_expr * mask) gfc_expr * mask)
{ {
f->ts = array->ts; f->ts = array->ts;
if (dim != NULL) if (dim != NULL)
@ -1106,7 +1057,7 @@ gfc_resolve_product (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s_%c%d", mask ? "mproduct" : "product", gfc_get_string (PREFIX("%s_%c%d"), mask ? "mproduct" : "product",
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -1114,7 +1065,6 @@ gfc_resolve_product (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
void void
gfc_resolve_real (gfc_expr * f, gfc_expr * a, gfc_expr * kind) gfc_resolve_real (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
{ {
f->ts.type = BT_REAL; f->ts.type = BT_REAL;
if (kind != NULL) if (kind != NULL)
@ -1131,9 +1081,8 @@ gfc_resolve_real (gfc_expr * f, gfc_expr * a, gfc_expr * kind)
void void
gfc_resolve_repeat (gfc_expr * f, gfc_expr * string, gfc_resolve_repeat (gfc_expr * f, gfc_expr * string,
gfc_expr * ncopies ATTRIBUTE_UNUSED) gfc_expr * ncopies ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_CHARACTER; f->ts.type = BT_CHARACTER;
f->ts.kind = string->ts.kind; f->ts.kind = string->ts.kind;
f->value.function.name = gfc_get_string ("__repeat_%d", string->ts.kind); f->value.function.name = gfc_get_string ("__repeat_%d", string->ts.kind);
@ -1145,7 +1094,6 @@ gfc_resolve_reshape (gfc_expr * f, gfc_expr * source, gfc_expr * shape,
gfc_expr * pad ATTRIBUTE_UNUSED, gfc_expr * pad ATTRIBUTE_UNUSED,
gfc_expr * order ATTRIBUTE_UNUSED) gfc_expr * order ATTRIBUTE_UNUSED)
{ {
static char reshape0[] = "__reshape";
mpz_t rank; mpz_t rank;
int kind; int kind;
int i; int i;
@ -1178,11 +1126,11 @@ gfc_resolve_reshape (gfc_expr * f, gfc_expr * source, gfc_expr * shape,
case 8: case 8:
/* case 16: */ /* case 16: */
f->value.function.name = f->value.function.name =
gfc_get_string ("__reshape_%d", source->ts.kind); gfc_get_string (PREFIX("reshape_%d"), source->ts.kind);
break; break;
default: default:
f->value.function.name = reshape0; f->value.function.name = PREFIX("reshape");
break; break;
} }
@ -1217,7 +1165,6 @@ gfc_resolve_reshape (gfc_expr * f, gfc_expr * source, gfc_expr * shape,
void void
gfc_resolve_rrspacing (gfc_expr * f, gfc_expr * x) gfc_resolve_rrspacing (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = gfc_get_string ("__rrspacing_%d", x->ts.kind); f->value.function.name = gfc_get_string ("__rrspacing_%d", x->ts.kind);
} }
@ -1226,7 +1173,6 @@ gfc_resolve_rrspacing (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_scale (gfc_expr * f, gfc_expr * x, gfc_expr * i) gfc_resolve_scale (gfc_expr * f, gfc_expr * x, gfc_expr * i)
{ {
f->ts = x->ts; f->ts = x->ts;
/* The implementation calls scalbn which takes an int as the /* The implementation calls scalbn which takes an int as the
@ -1250,7 +1196,6 @@ gfc_resolve_scan (gfc_expr * f, gfc_expr * string,
gfc_expr * set ATTRIBUTE_UNUSED, gfc_expr * set ATTRIBUTE_UNUSED,
gfc_expr * back ATTRIBUTE_UNUSED) gfc_expr * back ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->value.function.name = gfc_get_string ("__scan_%d", string->ts.kind); f->value.function.name = gfc_get_string ("__scan_%d", string->ts.kind);
@ -1260,7 +1205,6 @@ gfc_resolve_scan (gfc_expr * f, gfc_expr * string,
void void
gfc_resolve_set_exponent (gfc_expr * f, gfc_expr * x, gfc_expr * i) gfc_resolve_set_exponent (gfc_expr * f, gfc_expr * x, gfc_expr * i)
{ {
f->ts = x->ts; f->ts = x->ts;
/* The library implementation uses GFC_INTEGER_4 unconditionally, /* The library implementation uses GFC_INTEGER_4 unconditionally,
@ -1283,11 +1227,10 @@ gfc_resolve_set_exponent (gfc_expr * f, gfc_expr * x, gfc_expr * i)
void void
gfc_resolve_shape (gfc_expr * f, gfc_expr * array) gfc_resolve_shape (gfc_expr * f, gfc_expr * array)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->rank = 1; f->rank = 1;
f->value.function.name = gfc_get_string ("__shape_%d", f->ts.kind); f->value.function.name = gfc_get_string (PREFIX("shape_%d"), f->ts.kind);
f->shape = gfc_get_shape (1); f->shape = gfc_get_shape (1);
mpz_init_set_ui (f->shape[0], array->rank); mpz_init_set_ui (f->shape[0], array->rank);
} }
@ -1296,7 +1239,6 @@ gfc_resolve_shape (gfc_expr * f, gfc_expr * array)
void void
gfc_resolve_sign (gfc_expr * f, gfc_expr * a, gfc_expr * b ATTRIBUTE_UNUSED) gfc_resolve_sign (gfc_expr * f, gfc_expr * a, gfc_expr * b ATTRIBUTE_UNUSED)
{ {
f->ts = a->ts; f->ts = a->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type), a->ts.kind); gfc_get_string ("__sign_%c%d", gfc_type_letter (a->ts.type), a->ts.kind);
@ -1306,7 +1248,6 @@ gfc_resolve_sign (gfc_expr * f, gfc_expr * a, gfc_expr * b ATTRIBUTE_UNUSED)
void void
gfc_resolve_sin (gfc_expr * f, gfc_expr * x) gfc_resolve_sin (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__sin_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -1316,7 +1257,6 @@ gfc_resolve_sin (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_sinh (gfc_expr * f, gfc_expr * x) gfc_resolve_sinh (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__sinh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -1326,7 +1266,6 @@ gfc_resolve_sinh (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_spacing (gfc_expr * f, gfc_expr * x) gfc_resolve_spacing (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = gfc_get_string ("__spacing_%d", x->ts.kind); f->value.function.name = gfc_get_string ("__spacing_%d", x->ts.kind);
} }
@ -1337,11 +1276,9 @@ gfc_resolve_spread (gfc_expr * f, gfc_expr * source,
gfc_expr * dim, gfc_expr * dim,
gfc_expr * ncopies) gfc_expr * ncopies)
{ {
static char spread[] = "__spread";
f->ts = source->ts; f->ts = source->ts;
f->rank = source->rank + 1; f->rank = source->rank + 1;
f->value.function.name = spread; f->value.function.name = PREFIX("spread");
gfc_resolve_index (dim, 1); gfc_resolve_index (dim, 1);
gfc_resolve_index (ncopies, 1); gfc_resolve_index (ncopies, 1);
@ -1351,7 +1288,6 @@ gfc_resolve_spread (gfc_expr * f, gfc_expr * source,
void void
gfc_resolve_sqrt (gfc_expr * f, gfc_expr * x) gfc_resolve_sqrt (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__sqrt_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -1364,7 +1300,6 @@ void
gfc_resolve_stat (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED, gfc_resolve_stat (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED,
gfc_expr * a ATTRIBUTE_UNUSED) gfc_expr * a ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->value.function.name = gfc_get_string (PREFIX("stat_i%d"), f->ts.kind); f->value.function.name = gfc_get_string (PREFIX("stat_i%d"), f->ts.kind);
@ -1374,7 +1309,6 @@ gfc_resolve_stat (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED,
void void
gfc_resolve_fstat (gfc_expr * f, gfc_expr * n, gfc_expr * a ATTRIBUTE_UNUSED) gfc_resolve_fstat (gfc_expr * f, gfc_expr * n, gfc_expr * a ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
if (n->ts.kind != f->ts.kind) if (n->ts.kind != f->ts.kind)
@ -1388,7 +1322,6 @@ void
gfc_resolve_sum (gfc_expr * f, gfc_expr * array, gfc_expr * dim, gfc_resolve_sum (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
gfc_expr * mask) gfc_expr * mask)
{ {
f->ts = array->ts; f->ts = array->ts;
if (dim != NULL) if (dim != NULL)
@ -1398,7 +1331,7 @@ gfc_resolve_sum (gfc_expr * f, gfc_expr * array, gfc_expr * dim,
} }
f->value.function.name = f->value.function.name =
gfc_get_string ("__%s_%c%d", mask ? "msum" : "sum", gfc_get_string (PREFIX("%s_%c%d"), mask ? "msum" : "sum",
gfc_type_letter (array->ts.type), array->ts.kind); gfc_type_letter (array->ts.type), array->ts.kind);
} }
@ -1417,7 +1350,6 @@ gfc_resolve_system (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED)
void void
gfc_resolve_tan (gfc_expr * f, gfc_expr * x) gfc_resolve_tan (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__tan_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -1427,7 +1359,6 @@ gfc_resolve_tan (gfc_expr * f, gfc_expr * x)
void void
gfc_resolve_tanh (gfc_expr * f, gfc_expr * x) gfc_resolve_tanh (gfc_expr * f, gfc_expr * x)
{ {
f->ts = x->ts; f->ts = x->ts;
f->value.function.name = f->value.function.name =
gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind); gfc_get_string ("__tanh_%c%d", gfc_type_letter (x->ts.type), x->ts.kind);
@ -1459,7 +1390,6 @@ gfc_resolve_transfer (gfc_expr * f, gfc_expr * source ATTRIBUTE_UNUSED,
void void
gfc_resolve_transpose (gfc_expr * f, gfc_expr * matrix) gfc_resolve_transpose (gfc_expr * f, gfc_expr * matrix)
{ {
static char transpose0[] = "__transpose";
int kind; int kind;
f->ts = matrix->ts; f->ts = matrix->ts;
@ -1495,11 +1425,11 @@ gfc_resolve_transpose (gfc_expr * f, gfc_expr * matrix)
case 8: case 8:
/* case 16: */ /* case 16: */
f->value.function.name = f->value.function.name =
gfc_get_string ("__transpose_%d", kind); gfc_get_string (PREFIX("transpose_%d"), kind);
break; break;
default: default:
f->value.function.name = transpose0; f->value.function.name = PREFIX("transpose");
} }
} }
@ -1507,7 +1437,6 @@ gfc_resolve_transpose (gfc_expr * f, gfc_expr * matrix)
void void
gfc_resolve_trim (gfc_expr * f, gfc_expr * string) gfc_resolve_trim (gfc_expr * f, gfc_expr * string)
{ {
f->ts.type = BT_CHARACTER; f->ts.type = BT_CHARACTER;
f->ts.kind = string->ts.kind; f->ts.kind = string->ts.kind;
f->value.function.name = gfc_get_string ("__trim_%d", string->ts.kind); f->value.function.name = gfc_get_string ("__trim_%d", string->ts.kind);
@ -1539,7 +1468,6 @@ gfc_resolve_ubound (gfc_expr * f, gfc_expr * array,
void void
gfc_resolve_umask (gfc_expr * f, gfc_expr * n) gfc_resolve_umask (gfc_expr * f, gfc_expr * n)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = n->ts.kind; f->ts.kind = n->ts.kind;
f->value.function.name = gfc_get_string (PREFIX("umask_i%d"), n->ts.kind); f->value.function.name = gfc_get_string (PREFIX("umask_i%d"), n->ts.kind);
@ -1551,7 +1479,6 @@ gfc_resolve_umask (gfc_expr * f, gfc_expr * n)
void void
gfc_resolve_unlink (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED) gfc_resolve_unlink (gfc_expr * f, gfc_expr * n ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = 4; f->ts.kind = 4;
f->value.function.name = gfc_get_string (PREFIX("unlink")); f->value.function.name = gfc_get_string (PREFIX("unlink"));
@ -1561,13 +1488,12 @@ void
gfc_resolve_unpack (gfc_expr * f, gfc_expr * vector, gfc_expr * mask, gfc_resolve_unpack (gfc_expr * f, gfc_expr * vector, gfc_expr * mask,
gfc_expr * field ATTRIBUTE_UNUSED) gfc_expr * field ATTRIBUTE_UNUSED)
{ {
f->ts.type = vector->ts.type; f->ts.type = vector->ts.type;
f->ts.kind = vector->ts.kind; f->ts.kind = vector->ts.kind;
f->rank = mask->rank; f->rank = mask->rank;
f->value.function.name = f->value.function.name =
gfc_get_string ("__unpack%d", field->rank > 0 ? 1 : 0); gfc_get_string (PREFIX("unpack%d"), field->rank > 0 ? 1 : 0);
} }
@ -1576,7 +1502,6 @@ gfc_resolve_verify (gfc_expr * f, gfc_expr * string,
gfc_expr * set ATTRIBUTE_UNUSED, gfc_expr * set ATTRIBUTE_UNUSED,
gfc_expr * back ATTRIBUTE_UNUSED) gfc_expr * back ATTRIBUTE_UNUSED)
{ {
f->ts.type = BT_INTEGER; f->ts.type = BT_INTEGER;
f->ts.kind = gfc_default_integer_kind; f->ts.kind = gfc_default_integer_kind;
f->value.function.name = gfc_get_string ("__verify_%d", string->ts.kind); f->value.function.name = gfc_get_string ("__verify_%d", string->ts.kind);
@ -1875,6 +1800,5 @@ gfc_iresolve_init_1 (void)
void void
gfc_iresolve_done_1 (void) gfc_iresolve_done_1 (void)
{ {
free_strings (); free_strings ();
} }

12
libgfortran/ChangeLog
View File

@ -1,3 +1,15 @@
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> 2004-12-12 Richard Henderson <rth@redhat.com>
* acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New. * acinclude.m4 (LIBGFOR_CHECK_ATTRIBUTE_VISIBILITY): New.

6
libgfortran/generated/all_l4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); extern void all_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
export_proto_np(__all_l4); export_proto(all_l4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/all_l8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); extern void all_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
export_proto_np(__all_l8); export_proto(all_l8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/any_l4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *); extern void any_l4 (gfc_array_l4 *, gfc_array_l4 *, index_type *);
export_proto_np(__any_l4); export_proto(any_l4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/any_l8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *); extern void any_l8 (gfc_array_l8 *, gfc_array_l8 *, index_type *);
export_proto_np(__any_l8); export_proto(any_l8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/count_4_l4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *); extern void count_4_l4 (gfc_array_i4 *, gfc_array_l4 *, index_type *);
export_proto_np(__count_4_l4); export_proto(count_4_l4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/count_4_l8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *); extern void count_4_l8 (gfc_array_i4 *, gfc_array_l8 *, index_type *);
export_proto_np(__count_4_l8); export_proto(count_4_l8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/count_8_l4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *); extern void count_8_l4 (gfc_array_i8 *, gfc_array_l4 *, index_type *);
export_proto_np(__count_8_l4); export_proto(count_8_l4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/count_8_l8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *); extern void count_8_l8 (gfc_array_i8 *, gfc_array_l8 *, index_type *);
export_proto_np(__count_8_l8); export_proto(count_8_l8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

14
libgfortran/generated/cshift1_4.c
View File

@ -25,15 +25,15 @@ Boston, MA 02111-1307, USA. */
#include <string.h> #include <string.h>
#include "libgfortran.h" #include "libgfortran.h"
void __cshift1_4 (const gfc_array_char * ret, void cshift1_4 (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich); const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich);
export_proto_np(__cshift1_4); export_proto(cshift1_4);
void void
__cshift1_4 (const gfc_array_char * ret, cshift1_4 (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich) const gfc_array_i4 * h, const GFC_INTEGER_4 * pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

14
libgfortran/generated/cshift1_8.c
View File

@ -25,15 +25,15 @@ Boston, MA 02111-1307, USA. */
#include <string.h> #include <string.h>
#include "libgfortran.h" #include "libgfortran.h"
void __cshift1_8 (const gfc_array_char * ret, void cshift1_8 (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich); const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich);
export_proto_np(__cshift1_8); export_proto(cshift1_8);
void void
__cshift1_8 (const gfc_array_char * ret, cshift1_8 (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich) const gfc_array_i8 * h, const GFC_INTEGER_8 * pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/dotprod_c4.c
View File

@ -27,12 +27,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_COMPLEX_4 dot_product_c4 (gfc_array_c4 * a, gfc_array_c4 * b);
export_proto_np(__dot_product_c4); export_proto(dot_product_c4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_4 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 *pa;
GFC_COMPLEX_4 *pb; GFC_COMPLEX_4 *pb;

6
libgfortran/generated/dotprod_c8.c
View File

@ -27,12 +27,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_COMPLEX_8 dot_product_c8 (gfc_array_c8 * a, gfc_array_c8 * b);
export_proto_np(__dot_product_c8); export_proto(dot_product_c8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_COMPLEX_8 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 *pa;
GFC_COMPLEX_8 *pb; GFC_COMPLEX_8 *pb;

6
libgfortran/generated/dotprod_i4.c
View File

@ -26,12 +26,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_INTEGER_4 dot_product_i4 (gfc_array_i4 * a, gfc_array_i4 * b);
export_proto_np(__dot_product_i4); export_proto(dot_product_i4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_INTEGER_4 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 *pa;
GFC_INTEGER_4 *pb; GFC_INTEGER_4 *pb;

6
libgfortran/generated/dotprod_i8.c
View File

@ -26,12 +26,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_INTEGER_8 dot_product_i8 (gfc_array_i8 * a, gfc_array_i8 * b);
export_proto_np(__dot_product_i8); export_proto(dot_product_i8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_INTEGER_8 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 *pa;
GFC_INTEGER_8 *pb; GFC_INTEGER_8 *pb;

6
libgfortran/generated/dotprod_l4.c
View File

@ -24,11 +24,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern GFC_LOGICAL_4 __dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *); extern GFC_LOGICAL_4 dot_product_l4 (gfc_array_l4 *, gfc_array_l4 *);
export_proto_np(__dot_product_l4); export_proto(dot_product_l4);
GFC_LOGICAL_4 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 *pa;
GFC_LOGICAL_4 *pb; GFC_LOGICAL_4 *pb;

6
libgfortran/generated/dotprod_l8.c
View File

@ -24,11 +24,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern GFC_LOGICAL_8 __dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *); extern GFC_LOGICAL_8 dot_product_l8 (gfc_array_l4 *, gfc_array_l4 *);
export_proto_np(__dot_product_l8); export_proto(dot_product_l8);
GFC_LOGICAL_8 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 *pa;
GFC_LOGICAL_4 *pb; GFC_LOGICAL_4 *pb;

6
libgfortran/generated/dotprod_r4.c
View File

@ -26,12 +26,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_REAL_4 dot_product_r4 (gfc_array_r4 * a, gfc_array_r4 * b);
export_proto_np(__dot_product_r4); export_proto(dot_product_r4);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_4 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 *pa;
GFC_REAL_4 *pb; GFC_REAL_4 *pb;

6
libgfortran/generated/dotprod_r8.c
View File

@ -26,12 +26,12 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) char_array; 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); extern GFC_REAL_8 dot_product_r8 (gfc_array_r8 * a, gfc_array_r8 * b);
export_proto_np(__dot_product_r8); export_proto(dot_product_r8);
/* Both parameters will already have been converted to the result type. */ /* Both parameters will already have been converted to the result type. */
GFC_REAL_8 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 *pa;
GFC_REAL_8 *pb; GFC_REAL_8 *pb;

12
libgfortran/generated/eoshift1_4.c
View File

@ -28,17 +28,17 @@ Boston, MA 02111-1307, USA. */
static const char zeros[16] = static const char zeros[16] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; {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_char *,
const gfc_array_i4 *, const char *, const gfc_array_i4 *, const char *,
const GFC_INTEGER_4 *); const GFC_INTEGER_4 *);
export_proto_np(__eoshift1_4); export_proto(eoshift1_4);
void void
__eoshift1_4 (const gfc_array_char *ret, eoshift1_4 (const gfc_array_char *ret,
const gfc_array_char *array, const gfc_array_char *array,
const gfc_array_i4 *h, const char *pbound, const gfc_array_i4 *h, const char *pbound,
const GFC_INTEGER_4 *pwhich) const GFC_INTEGER_4 *pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

12
libgfortran/generated/eoshift1_8.c
View File

@ -28,17 +28,17 @@ Boston, MA 02111-1307, USA. */
static const char zeros[16] = static const char zeros[16] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; {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_char *,
const gfc_array_i8 *, const char *, const gfc_array_i8 *, const char *,
const GFC_INTEGER_8 *); const GFC_INTEGER_8 *);
export_proto_np(__eoshift1_8); export_proto(eoshift1_8);
void void
__eoshift1_8 (const gfc_array_char *ret, eoshift1_8 (const gfc_array_char *ret,
const gfc_array_char *array, const gfc_array_char *array,
const gfc_array_i8 *h, const char *pbound, const gfc_array_i8 *h, const char *pbound,
const GFC_INTEGER_8 *pwhich) const GFC_INTEGER_8 *pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

10
libgfortran/generated/eoshift3_4.c
View File

@ -28,15 +28,15 @@ Boston, MA 02111-1307, USA. */
static const char zeros[16] = static const char zeros[16] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; {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_array_i4 *, const gfc_array_char *,
GFC_INTEGER_4 *); GFC_INTEGER_4 *);
export_proto_np(__eoshift3_4); export_proto(eoshift3_4);
void void
__eoshift3_4 (gfc_array_char *ret, gfc_array_char *array, eoshift3_4 (gfc_array_char *ret, gfc_array_char *array,
gfc_array_i4 *h, const gfc_array_char *bound, gfc_array_i4 *h, const gfc_array_char *bound,
GFC_INTEGER_4 *pwhich) GFC_INTEGER_4 *pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

10
libgfortran/generated/eoshift3_8.c
View File

@ -28,15 +28,15 @@ Boston, MA 02111-1307, USA. */
static const char zeros[16] = static const char zeros[16] =
{0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0}; {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_array_i8 *, const gfc_array_char *,
GFC_INTEGER_8 *); GFC_INTEGER_8 *);
export_proto_np(__eoshift3_8); export_proto(eoshift3_8);
void void
__eoshift3_8 (gfc_array_char *ret, gfc_array_char *array, eoshift3_8 (gfc_array_char *ret, gfc_array_char *array,
gfc_array_i8 *h, const gfc_array_char *bound, gfc_array_i8 *h, const gfc_array_char *bound,
GFC_INTEGER_8 *pwhich) GFC_INTEGER_8 *pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/matmul_c4.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_c4 (gfc_array_c4 * retarray, gfc_array_c4 * a, gfc_array_c4 * b);
export_proto_np(__matmul_c4); export_proto(matmul_c4);
void 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 *abase;
GFC_COMPLEX_4 *bbase; GFC_COMPLEX_4 *bbase;

6
libgfortran/generated/matmul_c8.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_c8 (gfc_array_c8 * retarray, gfc_array_c8 * a, gfc_array_c8 * b);
export_proto_np(__matmul_c8); export_proto(matmul_c8);
void 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 *abase;
GFC_COMPLEX_8 *bbase; GFC_COMPLEX_8 *bbase;

6
libgfortran/generated/matmul_i4.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_i4 (gfc_array_i4 * retarray, gfc_array_i4 * a, gfc_array_i4 * b);
export_proto_np(__matmul_i4); export_proto(matmul_i4);
void 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 *abase;
GFC_INTEGER_4 *bbase; GFC_INTEGER_4 *bbase;

6
libgfortran/generated/matmul_i8.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_i8 (gfc_array_i8 * retarray, gfc_array_i8 * a, gfc_array_i8 * b);
export_proto_np(__matmul_i8); export_proto(matmul_i8);
void 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 *abase;
GFC_INTEGER_8 *bbase; GFC_INTEGER_8 *bbase;

6
libgfortran/generated/matmul_l4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
/* Dimensions: retarray(x,y) a(x, count) b(count,y). /* 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. */ 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 *); extern void matmul_l4 (gfc_array_l4 *, gfc_array_l4 *, gfc_array_l4 *);
export_proto_np(__matmul_l4); export_proto(matmul_l4);
void 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 *abase;
GFC_INTEGER_4 *bbase; GFC_INTEGER_4 *bbase;

6
libgfortran/generated/matmul_l8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
/* Dimensions: retarray(x,y) a(x, count) b(count,y). /* 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. */ 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 *); extern void matmul_l8 (gfc_array_l8 *, gfc_array_l4 *, gfc_array_l4 *);
export_proto_np(__matmul_l8); export_proto(matmul_l8);
void 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 *abase;
GFC_INTEGER_4 *bbase; GFC_INTEGER_4 *bbase;

6
libgfortran/generated/matmul_r4.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_r4 (gfc_array_r4 * retarray, gfc_array_r4 * a, gfc_array_r4 * b);
export_proto_np(__matmul_r4); export_proto(matmul_r4);
void 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 *abase;
GFC_REAL_4 *bbase; GFC_REAL_4 *bbase;

6
libgfortran/generated/matmul_r8.c
View File

@ -37,11 +37,11 @@ Boston, MA 02111-1307, USA. */
C(I,J) = C(I,J)+A(I,K)*B(K,J) 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); extern void matmul_r8 (gfc_array_r8 * retarray, gfc_array_r8 * a, gfc_array_r8 * b);
export_proto_np(__matmul_r8); export_proto(matmul_r8);
void 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 *abase;
GFC_REAL_8 *bbase; GFC_REAL_8 *bbase;

13
libgfortran/generated/maxloc0_4_i4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); extern void maxloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
export_proto_np(__maxloc0_4_i4); export_proto(maxloc0_4_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_4_i4); export_proto(mmaxloc0_4_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_4_i8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); extern void maxloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
export_proto_np(__maxloc0_4_i8); export_proto(maxloc0_4_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_4_i8); export_proto(mmaxloc0_4_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_4_r4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); extern void maxloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
export_proto_np(__maxloc0_4_r4); export_proto(maxloc0_4_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_4_r4); export_proto(mmaxloc0_4_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_4_r8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); extern void maxloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
export_proto_np(__maxloc0_4_r8); export_proto(maxloc0_4_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_4_r8); export_proto(mmaxloc0_4_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_8_i4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); extern void maxloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
export_proto_np(__maxloc0_8_i4); export_proto(maxloc0_8_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_8_i4); export_proto(mmaxloc0_8_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_8_i8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); extern void maxloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
export_proto_np(__maxloc0_8_i8); export_proto(maxloc0_8_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_8_i8); export_proto(mmaxloc0_8_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_8_r4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); extern void maxloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
export_proto_np(__maxloc0_8_r4); export_proto(maxloc0_8_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_8_r4); export_proto(mmaxloc0_8_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/maxloc0_8_r8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); extern void maxloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
export_proto_np(__maxloc0_8_r8); export_proto(maxloc0_8_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mmaxloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
export_proto_np(__mmaxloc0_8_r8); export_proto(mmaxloc0_8_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

15
libgfortran/generated/maxloc1_4_i4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void maxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__maxloc1_4_i4); export_proto(maxloc1_4_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_4_i4); export_proto(mmaxloc1_4_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_4_i8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); extern void maxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
export_proto_np(__maxloc1_4_i8); export_proto(maxloc1_4_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_4_i8); export_proto(mmaxloc1_4_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_4_r4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); extern void maxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
export_proto_np(__maxloc1_4_r4); export_proto(maxloc1_4_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_4_r4); export_proto(mmaxloc1_4_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_4_r8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); extern void maxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
export_proto_np(__maxloc1_4_r8); export_proto(maxloc1_4_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_4_r8); export_proto(mmaxloc1_4_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_8_i4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); extern void maxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
export_proto_np(__maxloc1_8_i4); export_proto(maxloc1_8_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_8_i4); export_proto(mmaxloc1_8_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_8_i8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void maxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__maxloc1_8_i8); export_proto(maxloc1_8_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_8_i8); export_proto(mmaxloc1_8_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_8_r4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); extern void maxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
export_proto_np(__maxloc1_8_r4); export_proto(maxloc1_8_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_8_r4); export_proto(mmaxloc1_8_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxloc1_8_r8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); extern void maxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
export_proto_np(__maxloc1_8_r8); export_proto(maxloc1_8_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxloc1_8_r8); export_proto(mmaxloc1_8_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxval_i4.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void maxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__maxval_i4); export_proto(maxval_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxval_i4); export_proto(mmaxval_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxval_i8.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void maxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__maxval_i8); export_proto(maxval_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxval_i8); export_proto(mmaxval_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxval_r4.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); extern void maxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
export_proto_np(__maxval_r4); export_proto(maxval_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxval_r4); export_proto(mmaxval_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/maxval_r8.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); extern void maxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
export_proto_np(__maxval_r8); export_proto(maxval_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mmaxval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mmaxval_r8); export_proto(mmaxval_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

13
libgfortran/generated/minloc0_4_i4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array); extern void minloc0_4_i4 (gfc_array_i4 * retarray, gfc_array_i4 *array);
export_proto_np(__minloc0_4_i4); export_proto(minloc0_4_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_4_i4 (gfc_array_i4 *, gfc_array_i4 *, gfc_array_l4 *);
export_proto_np(__mminloc0_4_i4); export_proto(mminloc0_4_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_4_i8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array); extern void minloc0_4_i8 (gfc_array_i4 * retarray, gfc_array_i8 *array);
export_proto_np(__minloc0_4_i8); export_proto(minloc0_4_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_4_i8 (gfc_array_i4 *, gfc_array_i8 *, gfc_array_l4 *);
export_proto_np(__mminloc0_4_i8); export_proto(mminloc0_4_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_4_r4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array); extern void minloc0_4_r4 (gfc_array_i4 * retarray, gfc_array_r4 *array);
export_proto_np(__minloc0_4_r4); export_proto(minloc0_4_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_4_r4 (gfc_array_i4 *, gfc_array_r4 *, gfc_array_l4 *);
export_proto_np(__mminloc0_4_r4); export_proto(mminloc0_4_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_4_r8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array); extern void minloc0_4_r8 (gfc_array_i4 * retarray, gfc_array_r8 *array);
export_proto_np(__minloc0_4_r8); export_proto(minloc0_4_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_4_r8 (gfc_array_i4 *, gfc_array_r8 *, gfc_array_l4 *);
export_proto_np(__mminloc0_4_r8); export_proto(mminloc0_4_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_8_i4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array); extern void minloc0_8_i4 (gfc_array_i8 * retarray, gfc_array_i4 *array);
export_proto_np(__minloc0_8_i4); export_proto(minloc0_8_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_8_i4 (gfc_array_i8 *, gfc_array_i4 *, gfc_array_l4 *);
export_proto_np(__mminloc0_8_i4); export_proto(mminloc0_8_i4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_8_i8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array); extern void minloc0_8_i8 (gfc_array_i8 * retarray, gfc_array_i8 *array);
export_proto_np(__minloc0_8_i8); export_proto(minloc0_8_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_8_i8 (gfc_array_i8 *, gfc_array_i8 *, gfc_array_l4 *);
export_proto_np(__mminloc0_8_i8); export_proto(mminloc0_8_i8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_8_r4.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array); extern void minloc0_8_r4 (gfc_array_i8 * retarray, gfc_array_r4 *array);
export_proto_np(__minloc0_8_r4); export_proto(minloc0_8_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_8_r4 (gfc_array_i8 *, gfc_array_r4 *, gfc_array_l4 *);
export_proto_np(__mminloc0_8_r4); export_proto(mminloc0_8_r4);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

13
libgfortran/generated/minloc0_8_r8.c
View File

@ -28,11 +28,11 @@ Boston, MA 02111-1307, USA. */
extern void __minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array); extern void minloc0_8_r8 (gfc_array_i8 * retarray, gfc_array_r8 *array);
export_proto_np(__minloc0_8_r8); export_proto(minloc0_8_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[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 *); extern void mminloc0_8_r8 (gfc_array_i8 *, gfc_array_r8 *, gfc_array_l4 *);
export_proto_np(__mminloc0_8_r8); export_proto(mminloc0_8_r8);
void 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 count[GFC_MAX_DIMENSIONS];
index_type extent[GFC_MAX_DIMENSIONS]; index_type extent[GFC_MAX_DIMENSIONS];

15
libgfortran/generated/minloc1_4_i4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void minloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__minloc1_4_i4); export_proto(minloc1_4_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_4_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_4_i4); export_proto(mminloc1_4_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_4_i8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *); extern void minloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *);
export_proto_np(__minloc1_4_i8); export_proto(minloc1_4_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_4_i8 (gfc_array_i4 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_4_i8); export_proto(mminloc1_4_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_4_r4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *); extern void minloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *);
export_proto_np(__minloc1_4_r4); export_proto(minloc1_4_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_4_r4 (gfc_array_i4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_4_r4); export_proto(mminloc1_4_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_4_r8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *); extern void minloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *);
export_proto_np(__minloc1_4_r8); export_proto(minloc1_4_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_4_r8 (gfc_array_i4 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_4_r8); export_proto(mminloc1_4_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_8_i4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *); extern void minloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *);
export_proto_np(__minloc1_8_i4); export_proto(minloc1_8_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_8_i4 (gfc_array_i8 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_8_i4); export_proto(mminloc1_8_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_8_i8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void minloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__minloc1_8_i8); export_proto(minloc1_8_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_8_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_8_i8); export_proto(mminloc1_8_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_8_r4.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *); extern void minloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *);
export_proto_np(__minloc1_8_r4); export_proto(minloc1_8_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_8_r4 (gfc_array_i8 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_8_r4); export_proto(mminloc1_8_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minloc1_8_r8.c
View File

@ -27,11 +27,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *); extern void minloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *);
export_proto_np(__minloc1_8_r8); export_proto(minloc1_8_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminloc1_8_r8 (gfc_array_i8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminloc1_8_r8); export_proto(mminloc1_8_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minval_i4.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void minval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__minval_i4); export_proto(minval_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminval_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminval_i4); export_proto(mminval_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minval_i8.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void minval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__minval_i8); export_proto(minval_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminval_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminval_i8); export_proto(mminval_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minval_r4.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); extern void minval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
export_proto_np(__minval_r4); export_proto(minval_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminval_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminval_r4); export_proto(mminval_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/minval_r8.c
View File

@ -26,11 +26,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); extern void minval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
export_proto_np(__minval_r8); export_proto(minval_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mminval_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mminval_r8); export_proto(mminval_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_c4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); extern void product_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
export_proto_np(__product_c4); export_proto(product_c4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_c4); export_proto(mproduct_c4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_c8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); extern void product_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
export_proto_np(__product_c8); export_proto(product_c8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_c8); export_proto(mproduct_c8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_i4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void product_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__product_i4); export_proto(product_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_i4); export_proto(mproduct_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_i8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void product_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__product_i8); export_proto(product_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_i8); export_proto(mproduct_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_r4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); extern void product_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
export_proto_np(__product_r4); export_proto(product_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_r4); export_proto(mproduct_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/product_r8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); extern void product_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
export_proto_np(__product_r8); export_proto(product_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void mproduct_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__mproduct_r8); export_proto(mproduct_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/reshape_i4.c
View File

@ -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 /* The shape parameter is ignored. We can currently deduce the shape from the
return array. */ 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 *); gfc_array_i4 *, shape_type *);
extern_proto_np(__reshape_4); export_proto(reshape_4);
void 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) gfc_array_i4 * pad, shape_type * order)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */

6
libgfortran/generated/reshape_i8.c
View File

@ -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 /* The shape parameter is ignored. We can currently deduce the shape from the
return array. */ 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 *); gfc_array_i8 *, shape_type *);
extern_proto_np(__reshape_8); export_proto(reshape_8);
void 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) gfc_array_i8 * pad, shape_type * order)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */

6
libgfortran/generated/shape_i4.c
View File

@ -24,11 +24,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array); extern void shape_4 (gfc_array_i4 * ret, const gfc_array_i4 * array);
export_proto_np(__shape_4); export_proto(shape_4);
void 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; int n;
index_type stride; index_type stride;

6
libgfortran/generated/shape_i8.c
View File

@ -24,11 +24,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array); extern void shape_8 (gfc_array_i8 * ret, const gfc_array_i8 * array);
export_proto_np(__shape_8); export_proto(shape_8);
void 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; int n;
index_type stride; index_type stride;

15
libgfortran/generated/sum_c4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *); extern void sum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *);
export_proto_np(__sum_c4); export_proto(sum_c4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_c4 (gfc_array_c4 *, gfc_array_c4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_c4); export_proto(msum_c4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/sum_c8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *); extern void sum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *);
export_proto_np(__sum_c8); export_proto(sum_c8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_c8 (gfc_array_c8 *, gfc_array_c8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_c8); export_proto(msum_c8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/sum_i4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *); extern void sum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *);
export_proto_np(__sum_i4); export_proto(sum_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_i4 (gfc_array_i4 *, gfc_array_i4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_i4); export_proto(msum_i4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/sum_i8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *); extern void sum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *);
export_proto_np(__sum_i8); export_proto(sum_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_i8 (gfc_array_i8 *, gfc_array_i8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_i8); export_proto(msum_i8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/sum_r4.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *); extern void sum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *);
export_proto_np(__sum_r4); export_proto(sum_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_r4 (gfc_array_r4 *, gfc_array_r4 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_r4); export_proto(msum_r4);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

15
libgfortran/generated/sum_r8.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h" #include "libgfortran.h"
extern void __sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *); extern void sum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *);
export_proto_np(__sum_r8); export_proto(sum_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[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 *, extern void msum_r8 (gfc_array_r8 *, gfc_array_r8 *, index_type *,
gfc_array_l4 *); gfc_array_l4 *);
export_proto_np(__msum_r8); export_proto(msum_r8);
void 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 count[GFC_MAX_DIMENSIONS - 1];
index_type extent[GFC_MAX_DIMENSIONS - 1]; index_type extent[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/generated/transpose_i4.c
View File

@ -23,11 +23,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source); extern void transpose_4 (gfc_array_i4 * ret, gfc_array_i4 * source);
export_proto_np(__transpose_4); export_proto(transpose_4);
void 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. */ /* r.* indicates the return array. */
index_type rxstride, rystride; index_type rxstride, rystride;

6
libgfortran/generated/transpose_i8.c
View File

@ -23,11 +23,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source); extern void transpose_8 (gfc_array_i8 * ret, gfc_array_i8 * source);
export_proto_np(__transpose_8); export_proto(transpose_8);
void 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. */ /* r.* indicates the return array. */
index_type rxstride, rystride; index_type rxstride, rystride;

28
libgfortran/intrinsics/cshift0.c
View File

@ -66,8 +66,8 @@ DEF_COPY_LOOP(ldouble, long double)
static void static void
__cshift0 (gfc_array_char * ret, const gfc_array_char * array, cshift0 (gfc_array_char * ret, const gfc_array_char * array,
ssize_t shift, int which) ssize_t shift, int which)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; 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 *, extern void cshift0_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const GFC_INTEGER_4 *); const GFC_INTEGER_4 *, const GFC_INTEGER_4 *);
export_proto_np(__cshift0_4); export_proto(cshift0_4);
void void
__cshift0_4 (gfc_array_char * ret, const gfc_array_char * array, cshift0_4 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_4 * pshift, const GFC_INTEGER_4 * pdim) 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 *, extern void cshift0_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const GFC_INTEGER_8 *); const GFC_INTEGER_8 *, const GFC_INTEGER_8 *);
export_proto_np(__cshift0_8); export_proto(cshift0_8);
void void
__cshift0_8 (gfc_array_char * ret, const gfc_array_char * array, cshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_8 * pshift, const GFC_INTEGER_8 * pdim) const GFC_INTEGER_8 *pshift, const GFC_INTEGER_8 *pdim)
{ {
__cshift0 (ret, array, *pshift, pdim ? *pdim : 1); cshift0 (ret, array, *pshift, pdim ? *pdim : 1);
} }

36
libgfortran/intrinsics/eoshift0.c
View File

@ -32,8 +32,8 @@ static const char zeros[16] =
sizeof(int) < sizeof (index_type). */ sizeof(int) < sizeof (index_type). */
static void static void
__eoshift0 (gfc_array_char * ret, const gfc_array_char * array, eoshift0 (gfc_array_char * ret, const gfc_array_char * array,
int shift, const char * pbound, int which) int shift, const char * pbound, int which)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; 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 *, extern void eoshift0_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const char *, const GFC_INTEGER_4 *, const char *,
const GFC_INTEGER_4 *); const GFC_INTEGER_4 *);
export_proto_np(__eoshift0_4); export_proto(eoshift0_4);
void void
__eoshift0_4 (gfc_array_char * ret, const gfc_array_char * array, eoshift0_4 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_4 * pshift, const char * pbound, const GFC_INTEGER_4 *pshift, const char *pbound,
const GFC_INTEGER_4 * pdim) 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 *, extern void eoshift0_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const char *, const GFC_INTEGER_8 *, const char *,
const GFC_INTEGER_8 *); const GFC_INTEGER_8 *);
export_proto_np(__eoshift0_8); export_proto(eoshift0_8);
void void
__eoshift0_8 (gfc_array_char * ret, const gfc_array_char * array, eoshift0_8 (gfc_array_char *ret, const gfc_array_char *array,
const GFC_INTEGER_8 * pshift, const char * pbound, const GFC_INTEGER_8 *pshift, const char *pbound,
const GFC_INTEGER_8 * pdim) const GFC_INTEGER_8 *pdim)
{ {
__eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1); eoshift0 (ret, array, *pshift, pbound, pdim ? *pdim : 1);
} }

36
libgfortran/intrinsics/eoshift2.c
View File

@ -32,8 +32,8 @@ static const char zeros[16] =
sizeof(int) < sizeof (index_type). */ sizeof(int) < sizeof (index_type). */
static void static void
__eoshift2 (gfc_array_char * ret, const gfc_array_char * array, eoshift2 (gfc_array_char *ret, const gfc_array_char *array,
int shift, const gfc_array_char * bound, int which) int shift, const gfc_array_char *bound, int which)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; 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 *, extern void eoshift2_4 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_4 *, const gfc_array_char *, const GFC_INTEGER_4 *, const gfc_array_char *,
const GFC_INTEGER_4 *); const GFC_INTEGER_4 *);
export_proto_np(__eoshift2_4); export_proto(eoshift2_4);
void void
__eoshift2_4 (gfc_array_char * ret, const gfc_array_char * array, 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 *pshift, const gfc_array_char *bound,
const GFC_INTEGER_4 * pdim) 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 *, extern void eoshift2_8 (gfc_array_char *, const gfc_array_char *,
const GFC_INTEGER_8 *, const gfc_array_char *, const GFC_INTEGER_8 *, const gfc_array_char *,
const GFC_INTEGER_8 *); const GFC_INTEGER_8 *);
export_proto_np(__eoshift2_8); export_proto(eoshift2_8);
void void
__eoshift2_8 (gfc_array_char * ret, const gfc_array_char * array, 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 *pshift, const gfc_array_char *bound,
const GFC_INTEGER_8 * pdim) const GFC_INTEGER_8 *pdim)
{ {
__eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1); eoshift2 (ret, array, *pshift, bound, pdim ? *pdim : 1);
} }

20
libgfortran/intrinsics/pack_generic.c
View File

@ -65,13 +65,13 @@ Boston, MA 02111-1307, USA. */
There are two variants of the PACK intrinsic: one, where MASK is There are two variants of the PACK intrinsic: one, where MASK is
array valued, and the other one where MASK is scalar. */ array valued, and the other one where MASK is scalar. */
extern void __pack (gfc_array_char *, const gfc_array_char *, extern void pack (gfc_array_char *, const gfc_array_char *,
const gfc_array_l4 *, const gfc_array_char *); const gfc_array_l4 *, const gfc_array_char *);
export_proto_np(__pack); export_proto(pack);
void void
__pack (gfc_array_char * ret, const gfc_array_char * array, pack (gfc_array_char *ret, const gfc_array_char *array,
const gfc_array_l4 * mask, const gfc_array_char * vector) const gfc_array_l4 *mask, const gfc_array_char *vector)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride0; 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, extern void pack_s (gfc_array_char *ret, const gfc_array_char *array,
const GFC_LOGICAL_4 *, const gfc_array_char *); const GFC_LOGICAL_4 *, const gfc_array_char *);
export_proto_np(__pack_s); export_proto(pack_s);
void void
__pack_s (gfc_array_char * ret, const gfc_array_char * array, pack_s (gfc_array_char *ret, const gfc_array_char *array,
const GFC_LOGICAL_4 * mask, const gfc_array_char * vector) const GFC_LOGICAL_4 *mask, const gfc_array_char *vector)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride0; index_type rstride0;

9
libgfortran/intrinsics/reshape_generic.c
View File

@ -28,16 +28,15 @@ Boston, MA 02111-1307, USA. */
typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type; typedef GFC_ARRAY_DESCRIPTOR(1, index_type) shape_type;
typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) parray; typedef GFC_ARRAY_DESCRIPTOR(GFC_MAX_DIMENSIONS, char) parray;
extern void __reshape (parray *, parray *, shape_type *, extern void reshape (parray *, parray *, shape_type *, parray *, shape_type *);
parray *, shape_type *); export_proto(reshape);
export_proto_np(__reshape);
/* The shape parameter is ignored. We can currently deduce the shape from the /* The shape parameter is ignored. We can currently deduce the shape from the
return array. */ return array. */
void void
__reshape (parray * ret, parray * source, shape_type * shape, reshape (parray *ret, parray *source, shape_type *shape,
parray * pad, shape_type * order) parray *pad, shape_type *order)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rcount[GFC_MAX_DIMENSIONS - 1]; index_type rcount[GFC_MAX_DIMENSIONS - 1];

12
libgfortran/intrinsics/spread_generic.c
View File

@ -1,4 +1,4 @@
/* Generic implementation of the RESHAPE intrinsic /* Generic implementation of the SPREAD intrinsic
Copyright 2002 Free Software Foundation, Inc. Copyright 2002 Free Software Foundation, Inc.
Contributed by Paul Brook <paul@nowt.org> Contributed by Paul Brook <paul@nowt.org>
@ -25,13 +25,13 @@ Boston, MA 02111-1307, USA. */
#include <string.h> #include <string.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __spread (const gfc_array_char *, const gfc_array_char *, extern void spread (const gfc_array_char *, const gfc_array_char *,
const index_type *, const index_type *); const index_type *, const index_type *);
export_proto_np(__spread); export_proto(spread);
void void
__spread (const gfc_array_char * ret, const gfc_array_char * source, spread (const gfc_array_char *ret, const gfc_array_char *source,
const index_type * along, const index_type * pncopies) const index_type *along, const index_type *pncopies)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

6
libgfortran/intrinsics/transpose_generic.c
View File

@ -25,11 +25,11 @@ Boston, MA 02111-1307, USA. */
#include <assert.h> #include <assert.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __transpose (gfc_array_char *, gfc_array_char *); extern void transpose (gfc_array_char *, gfc_array_char *);
export_proto_np(__transpose); export_proto(transpose);
void void
__transpose (gfc_array_char * ret, gfc_array_char * source) transpose (gfc_array_char *ret, gfc_array_char *source)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rxstride, rystride; index_type rxstride, rystride;

23
libgfortran/intrinsics/unpack_generic.c
View File

@ -25,13 +25,13 @@ Boston, MA 02111-1307, USA. */
#include <string.h> #include <string.h>
#include "libgfortran.h" #include "libgfortran.h"
extern void __unpack1 (const gfc_array_char *, const gfc_array_char *, extern void unpack1 (const gfc_array_char *, const gfc_array_char *,
const gfc_array_l4 *, const gfc_array_char *); const gfc_array_l4 *, const gfc_array_char *);
export_proto_np(__unpack1); iexport_proto(unpack1);
void void
__unpack1 (const gfc_array_char * ret, const gfc_array_char * vector, unpack1 (const gfc_array_char *ret, const gfc_array_char *vector,
const gfc_array_l4 * mask, const gfc_array_char * field) const gfc_array_l4 *mask, const gfc_array_char *field)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS]; 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 *, extern void unpack0 (const gfc_array_char *, const gfc_array_char *,
const gfc_array_l4 *, char *); const gfc_array_l4 *, char *);
export_proto_np(__unpack0); export_proto(unpack0);
void void
__unpack0 (const gfc_array_char * ret, const gfc_array_char * vector, unpack0 (const gfc_array_char *ret, const gfc_array_char *vector,
const gfc_array_l4 * mask, char * field) const gfc_array_l4 *mask, char *field)
{ {
gfc_array_char tmp; gfc_array_char tmp;
tmp.dtype = 0; tmp.dtype = 0;
tmp.data = field; tmp.data = field;
__unpack1 (ret, vector, mask, &tmp); unpack1 (ret, vector, mask, &tmp);
} }

14
libgfortran/m4/cshift1.m4
View File

@ -26,15 +26,15 @@ Boston, MA 02111-1307, USA. */
#include "libgfortran.h"' #include "libgfortran.h"'
include(iparm.m4)dnl include(iparm.m4)dnl
void __cshift1_`'atype_kind (const gfc_array_char * ret, void cshift1_`'atype_kind (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const atype * h, const atype_name * pwhich); const atype * h, const atype_name * pwhich);
export_proto_np(__cshift1_`'atype_kind); export_proto(cshift1_`'atype_kind);
void void
__cshift1_`'atype_kind (const gfc_array_char * ret, cshift1_`'atype_kind (const gfc_array_char * ret,
const gfc_array_char * array, const gfc_array_char * array,
const atype * h, const atype_name * pwhich) const atype * h, const atype_name * pwhich)
{ {
/* r.* indicates the return array. */ /* r.* indicates the return array. */
index_type rstride[GFC_MAX_DIMENSIONS - 1]; index_type rstride[GFC_MAX_DIMENSIONS - 1];

Some files were not shown because too many files have changed in this diff Show More