mirror of git://gcc.gnu.org/git/gcc.git
re PR fortran/82995 (Segmentation fault passing optional argument to intrinsic sum function)
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/82995
* trans-expr.c (gfc_conv_procedure_call): Pass NULL pointer
for missing optional dummy arguments for library routines.
* trans-intinsic.c (conv_mask_condition): New function.
(gfc_conv_intrinsic_arith): Detect and handle optional mask.
(gfc_conv_intrinsic_minmaxloc): Likewise.
(gfc_conv_intrinsic_findloc): Likewise.
(gfc_conv_intrinsic_minmaxval): Likewise.
(gfc_inline_intrinsic_function_p): Do not inline for rank > 1 if
an optional mask is present.
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/82995
* m4/ifindloc0.m4: Handle case of absend optional argument, passed
as a NULL pointer. Correct allocation of retarray->base_addr.
* m4/ifindloc1.m4: Likewise.
* m4/ifindloc2.m4: Handle case of absend optional argument, passed
as a NULL pointer.
* m4/iforeach-s.m4: Likewise.
* m4/iforeach-s2.m4: Likewise.
* m4/iforeach.m4: Likewise.
* m4/ifunction-s.m4: Likewise.
* m4/ifunction-s2.m4: Likewise.
* m4/ifunction.m4: Likewise.
* generated/findloc0_c16.c: Regenerated.
* generated/findloc0_c4.c: Regenerated.
* generated/findloc0_c8.c: Regenerated.
* generated/findloc0_i1.c: Regenerated.
* generated/findloc0_i16.c: Regenerated.
* generated/findloc0_i2.c: Regenerated.
* generated/findloc0_i4.c: Regenerated.
* generated/findloc0_i8.c: Regenerated.
* generated/findloc0_r16.c: Regenerated.
* generated/findloc0_r4.c: Regenerated.
* generated/findloc0_r8.c: Regenerated.
* generated/findloc0_s1.c: Regenerated.
* generated/findloc0_s4.c: Regenerated.
* generated/findloc1_c16.c: Regenerated.
* generated/findloc1_c4.c: Regenerated.
* generated/findloc1_c8.c: Regenerated.
* generated/findloc1_i1.c: Regenerated.
* generated/findloc1_i16.c: Regenerated.
* generated/findloc1_i2.c: Regenerated.
* generated/findloc1_i4.c: Regenerated.
* generated/findloc1_i8.c: Regenerated.
* generated/findloc1_r16.c: Regenerated.
* generated/findloc1_r4.c: Regenerated.
* generated/findloc1_r8.c: Regenerated.
* generated/findloc1_s1.c: Regenerated.
* generated/findloc1_s4.c: Regenerated.
* generated/findloc2_s1.c: Regenerated.
* generated/findloc2_s4.c: Regenerated.
* generated/iall_i1.c: Regenerated.
* generated/iall_i16.c: Regenerated.
* generated/iall_i2.c: Regenerated.
* generated/iall_i4.c: Regenerated.
* generated/iall_i8.c: Regenerated.
* generated/iany_i1.c: Regenerated.
* generated/iany_i16.c: Regenerated.
* generated/iany_i2.c: Regenerated.
* generated/iany_i4.c: Regenerated.
* generated/iany_i8.c: Regenerated.
* generated/iparity_i1.c: Regenerated.
* generated/iparity_i16.c: Regenerated.
* generated/iparity_i2.c: Regenerated.
* generated/iparity_i4.c: Regenerated.
* generated/iparity_i8.c: Regenerated.
* generated/maxloc0_16_i1.c: Regenerated.
* generated/maxloc0_16_i16.c: Regenerated.
* generated/maxloc0_16_i2.c: Regenerated.
* generated/maxloc0_16_i4.c: Regenerated.
* generated/maxloc0_16_i8.c: Regenerated.
* generated/maxloc0_16_r10.c: Regenerated.
* generated/maxloc0_16_r16.c: Regenerated.
* generated/maxloc0_16_r4.c: Regenerated.
* generated/maxloc0_16_r8.c: Regenerated.
* generated/maxloc0_16_s1.c: Regenerated.
* generated/maxloc0_16_s4.c: Regenerated.
* generated/maxloc0_4_i1.c: Regenerated.
* generated/maxloc0_4_i16.c: Regenerated.
* generated/maxloc0_4_i2.c: Regenerated.
* generated/maxloc0_4_i4.c: Regenerated.
* generated/maxloc0_4_i8.c: Regenerated.
* generated/maxloc0_4_r10.c: Regenerated.
* generated/maxloc0_4_r16.c: Regenerated.
* generated/maxloc0_4_r4.c: Regenerated.
* generated/maxloc0_4_r8.c: Regenerated.
* generated/maxloc0_4_s1.c: Regenerated.
* generated/maxloc0_4_s4.c: Regenerated.
* generated/maxloc0_8_i1.c: Regenerated.
* generated/maxloc0_8_i16.c: Regenerated.
* generated/maxloc0_8_i2.c: Regenerated.
* generated/maxloc0_8_i4.c: Regenerated.
* generated/maxloc0_8_i8.c: Regenerated.
* generated/maxloc0_8_r10.c: Regenerated.
* generated/maxloc0_8_r16.c: Regenerated.
* generated/maxloc0_8_r4.c: Regenerated.
* generated/maxloc0_8_r8.c: Regenerated.
* generated/maxloc0_8_s1.c: Regenerated.
* generated/maxloc0_8_s4.c: Regenerated.
* generated/maxloc1_16_i1.c: Regenerated.
* generated/maxloc1_16_i16.c: Regenerated.
* generated/maxloc1_16_i2.c: Regenerated.
* generated/maxloc1_16_i4.c: Regenerated.
* generated/maxloc1_16_i8.c: Regenerated.
* generated/maxloc1_16_r10.c: Regenerated.
* generated/maxloc1_16_r16.c: Regenerated.
* generated/maxloc1_16_r4.c: Regenerated.
* generated/maxloc1_16_r8.c: Regenerated.
* generated/maxloc1_16_s1.c: Regenerated.
* generated/maxloc1_16_s4.c: Regenerated.
* generated/maxloc1_4_i1.c: Regenerated.
* generated/maxloc1_4_i16.c: Regenerated.
* generated/maxloc1_4_i2.c: Regenerated.
* generated/maxloc1_4_i4.c: Regenerated.
* generated/maxloc1_4_i8.c: Regenerated.
* generated/maxloc1_4_r10.c: Regenerated.
* generated/maxloc1_4_r16.c: Regenerated.
* generated/maxloc1_4_r4.c: Regenerated.
* generated/maxloc1_4_r8.c: Regenerated.
* generated/maxloc1_4_s1.c: Regenerated.
* generated/maxloc1_4_s4.c: Regenerated.
* generated/maxloc1_8_i1.c: Regenerated.
* generated/maxloc1_8_i16.c: Regenerated.
* generated/maxloc1_8_i2.c: Regenerated.
* generated/maxloc1_8_i4.c: Regenerated.
* generated/maxloc1_8_i8.c: Regenerated.
* generated/maxloc1_8_r10.c: Regenerated.
* generated/maxloc1_8_r16.c: Regenerated.
* generated/maxloc1_8_r4.c: Regenerated.
* generated/maxloc1_8_r8.c: Regenerated.
* generated/maxloc1_8_s1.c: Regenerated.
* generated/maxloc1_8_s4.c: Regenerated.
* generated/maxval0_s1.c: Regenerated.
* generated/maxval0_s4.c: Regenerated.
* generated/maxval1_s1.c: Regenerated.
* generated/maxval1_s4.c: Regenerated.
* generated/maxval_i1.c: Regenerated.
* generated/maxval_i16.c: Regenerated.
* generated/maxval_i2.c: Regenerated.
* generated/maxval_i4.c: Regenerated.
* generated/maxval_i8.c: Regenerated.
* generated/maxval_r10.c: Regenerated.
* generated/maxval_r16.c: Regenerated.
* generated/maxval_r4.c: Regenerated.
* generated/maxval_r8.c: Regenerated.
* generated/minloc0_16_i1.c: Regenerated.
* generated/minloc0_16_i16.c: Regenerated.
* generated/minloc0_16_i2.c: Regenerated.
* generated/minloc0_16_i4.c: Regenerated.
* generated/minloc0_16_i8.c: Regenerated.
* generated/minloc0_16_r10.c: Regenerated.
* generated/minloc0_16_r16.c: Regenerated.
* generated/minloc0_16_r4.c: Regenerated.
* generated/minloc0_16_r8.c: Regenerated.
* generated/minloc0_16_s1.c: Regenerated.
* generated/minloc0_16_s4.c: Regenerated.
* generated/minloc0_4_i1.c: Regenerated.
* generated/minloc0_4_i16.c: Regenerated.
* generated/minloc0_4_i2.c: Regenerated.
* generated/minloc0_4_i4.c: Regenerated.
* generated/minloc0_4_i8.c: Regenerated.
* generated/minloc0_4_r10.c: Regenerated.
* generated/minloc0_4_r16.c: Regenerated.
* generated/minloc0_4_r4.c: Regenerated.
* generated/minloc0_4_r8.c: Regenerated.
* generated/minloc0_4_s1.c: Regenerated.
* generated/minloc0_4_s4.c: Regenerated.
* generated/minloc0_8_i1.c: Regenerated.
* generated/minloc0_8_i16.c: Regenerated.
* generated/minloc0_8_i2.c: Regenerated.
* generated/minloc0_8_i4.c: Regenerated.
* generated/minloc0_8_i8.c: Regenerated.
* generated/minloc0_8_r10.c: Regenerated.
* generated/minloc0_8_r16.c: Regenerated.
* generated/minloc0_8_r4.c: Regenerated.
* generated/minloc0_8_r8.c: Regenerated.
* generated/minloc0_8_s1.c: Regenerated.
* generated/minloc0_8_s4.c: Regenerated.
* generated/minloc1_16_i1.c: Regenerated.
* generated/minloc1_16_i16.c: Regenerated.
* generated/minloc1_16_i2.c: Regenerated.
* generated/minloc1_16_i4.c: Regenerated.
* generated/minloc1_16_i8.c: Regenerated.
* generated/minloc1_16_r10.c: Regenerated.
* generated/minloc1_16_r16.c: Regenerated.
* generated/minloc1_16_r4.c: Regenerated.
* generated/minloc1_16_r8.c: Regenerated.
* generated/minloc1_16_s1.c: Regenerated.
* generated/minloc1_16_s4.c: Regenerated.
* generated/minloc1_4_i1.c: Regenerated.
* generated/minloc1_4_i16.c: Regenerated.
* generated/minloc1_4_i2.c: Regenerated.
* generated/minloc1_4_i4.c: Regenerated.
* generated/minloc1_4_i8.c: Regenerated.
* generated/minloc1_4_r10.c: Regenerated.
* generated/minloc1_4_r16.c: Regenerated.
* generated/minloc1_4_r4.c: Regenerated.
* generated/minloc1_4_r8.c: Regenerated.
* generated/minloc1_4_s1.c: Regenerated.
* generated/minloc1_4_s4.c: Regenerated.
* generated/minloc1_8_i1.c: Regenerated.
* generated/minloc1_8_i16.c: Regenerated.
* generated/minloc1_8_i2.c: Regenerated.
* generated/minloc1_8_i4.c: Regenerated.
* generated/minloc1_8_i8.c: Regenerated.
* generated/minloc1_8_r10.c: Regenerated.
* generated/minloc1_8_r16.c: Regenerated.
* generated/minloc1_8_r4.c: Regenerated.
* generated/minloc1_8_r8.c: Regenerated.
* generated/minloc1_8_s1.c: Regenerated.
* generated/minloc1_8_s4.c: Regenerated.
* generated/minval0_s1.c: Regenerated.
* generated/minval0_s4.c: Regenerated.
* generated/minval1_s1.c: Regenerated.
* generated/minval1_s4.c: Regenerated.
* generated/minval_i1.c: Regenerated.
* generated/minval_i16.c: Regenerated.
* generated/minval_i2.c: Regenerated.
* generated/minval_i4.c: Regenerated.
* generated/minval_i8.c: Regenerated.
* generated/minval_r10.c: Regenerated.
* generated/minval_r16.c: Regenerated.
* generated/minval_r4.c: Regenerated.
* generated/minval_r8.c: Regenerated.
* generated/product_c10.c: Regenerated.
* generated/product_c16.c: Regenerated.
* generated/product_c4.c: Regenerated.
* generated/product_c8.c: Regenerated.
* generated/product_i1.c: Regenerated.
* generated/product_i16.c: Regenerated.
* generated/product_i2.c: Regenerated.
* generated/product_i4.c: Regenerated.
* generated/product_i8.c: Regenerated.
* generated/product_r10.c: Regenerated.
* generated/product_r16.c: Regenerated.
* generated/product_r4.c: Regenerated.
* generated/product_r8.c: Regenerated.
* generated/sum_c10.c: Regenerated.
* generated/sum_c16.c: Regenerated.
* generated/sum_c4.c: Regenerated.
* generated/sum_c8.c: Regenerated.
* generated/sum_i1.c: Regenerated.
* generated/sum_i16.c: Regenerated.
* generated/sum_i2.c: Regenerated.
* generated/sum_i4.c: Regenerated.
* generated/sum_i8.c: Regenerated.
* generated/sum_r10.c: Regenerated.
* generated/sum_r16.c: Regenerated.
* generated/sum_r4.c: Regenerated.
* generated/sum_r8.c: Regenerated.
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
PR fortran/82995
* gfortran.dg/optional_absent_4.f90: New test.
* gfortran.dg/optional_absent_5.f90: New test.
From-SVN: r267487
This commit is contained in:
Thomas Koenig
parent
4d73e47bf8
commit
2ea47ee9fd
|
|
@ -1,3 +1,16 @@
|
||||||
|
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR fortran/82995
|
||||||
|
* trans-expr.c (gfc_conv_procedure_call): Pass NULL pointer
|
||||||
|
for missing optional dummy arguments for library routines.
|
||||||
|
* trans-intinsic.c (conv_mask_condition): New function.
|
||||||
|
(gfc_conv_intrinsic_arith): Detect and handle optional mask.
|
||||||
|
(gfc_conv_intrinsic_minmaxloc): Likewise.
|
||||||
|
(gfc_conv_intrinsic_findloc): Likewise.
|
||||||
|
(gfc_conv_intrinsic_minmaxval): Likewise.
|
||||||
|
(gfc_inline_intrinsic_function_p): Do not inline for rank > 1 if
|
||||||
|
an optional mask is present.
|
||||||
|
|
||||||
2018-12-29 Steven G. Kargl <kargl@gcc.gnu.org>
|
2018-12-29 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||||
|
|
||||||
* expr.c (external_spec_function): Add ieee_support_subnormal to list
|
* expr.c (external_spec_function): Add ieee_support_subnormal to list
|
||||||
|
|
|
||||||
|
|
@ -5760,17 +5760,21 @@ gfc_conv_procedure_call (gfc_se * se, gfc_symbol * sym,
|
||||||
array-descriptor actual to array-descriptor dummy, see
|
array-descriptor actual to array-descriptor dummy, see
|
||||||
PR 41911 for why a check has to be inserted.
|
PR 41911 for why a check has to be inserted.
|
||||||
fsym == NULL is checked as intrinsics required the descriptor
|
fsym == NULL is checked as intrinsics required the descriptor
|
||||||
but do not always set fsym. */
|
but do not always set fsym.
|
||||||
|
Also, it is necessary to pass a NULL pointer to library routines
|
||||||
|
which usually ignore optional arguments, so they can handle
|
||||||
|
these themselves. */
|
||||||
if (e->expr_type == EXPR_VARIABLE
|
if (e->expr_type == EXPR_VARIABLE
|
||||||
&& e->symtree->n.sym->attr.optional
|
&& e->symtree->n.sym->attr.optional
|
||||||
&& ((e->rank != 0 && elemental_proc)
|
&& (((e->rank != 0 && elemental_proc)
|
||||||
|| e->representation.length || e->ts.type == BT_CHARACTER
|
|| e->representation.length || e->ts.type == BT_CHARACTER
|
||||||
|| (e->rank != 0
|
|| (e->rank != 0
|
||||||
&& (fsym == NULL
|
&& (fsym == NULL
|
||||||
|| (fsym-> as
|
|| (fsym->as
|
||||||
&& (fsym->as->type == AS_ASSUMED_SHAPE
|
&& (fsym->as->type == AS_ASSUMED_SHAPE
|
||||||
|| fsym->as->type == AS_ASSUMED_RANK
|
|| fsym->as->type == AS_ASSUMED_RANK
|
||||||
|| fsym->as->type == AS_DEFERRED))))))
|
|| fsym->as->type == AS_DEFERRED)))))
|
||||||
|
|| se->ignore_optional))
|
||||||
gfc_conv_missing_dummy (&parmse, e, fsym ? fsym->ts : e->ts,
|
gfc_conv_missing_dummy (&parmse, e, fsym ? fsym->ts : e->ts,
|
||||||
e->representation.length);
|
e->representation.length);
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -4359,6 +4359,28 @@ enter_nested_loop (gfc_se *se)
|
||||||
return se->ss->loop;
|
return se->ss->loop;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
/* Build the condition for a mask, which may be optional. */
|
||||||
|
|
||||||
|
static tree
|
||||||
|
conv_mask_condition (gfc_se *maskse, gfc_expr *maskexpr,
|
||||||
|
bool optional_mask)
|
||||||
|
{
|
||||||
|
tree present;
|
||||||
|
tree type;
|
||||||
|
|
||||||
|
if (optional_mask)
|
||||||
|
{
|
||||||
|
type = TREE_TYPE (maskse->expr);
|
||||||
|
present = gfc_conv_expr_present (maskexpr->symtree->n.sym);
|
||||||
|
present = convert (type, present);
|
||||||
|
present = fold_build1_loc (input_location, TRUTH_NOT_EXPR, type,
|
||||||
|
present);
|
||||||
|
return fold_build2_loc (input_location, TRUTH_ORIF_EXPR,
|
||||||
|
type, present, maskse->expr);
|
||||||
|
}
|
||||||
|
else
|
||||||
|
return maskse->expr;
|
||||||
|
}
|
||||||
|
|
||||||
/* Inline implementation of the sum and product intrinsics. */
|
/* Inline implementation of the sum and product intrinsics. */
|
||||||
static void
|
static void
|
||||||
|
|
@ -4380,6 +4402,7 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op,
|
||||||
gfc_se *parent_se;
|
gfc_se *parent_se;
|
||||||
gfc_expr *arrayexpr;
|
gfc_expr *arrayexpr;
|
||||||
gfc_expr *maskexpr;
|
gfc_expr *maskexpr;
|
||||||
|
bool optional_mask;
|
||||||
|
|
||||||
if (expr->rank > 0)
|
if (expr->rank > 0)
|
||||||
{
|
{
|
||||||
|
|
@ -4419,13 +4442,19 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op,
|
||||||
arrayexpr = arg_array->expr;
|
arrayexpr = arg_array->expr;
|
||||||
|
|
||||||
if (op == NE_EXPR || norm2)
|
if (op == NE_EXPR || norm2)
|
||||||
/* PARITY and NORM2. */
|
{
|
||||||
maskexpr = NULL;
|
/* PARITY and NORM2. */
|
||||||
|
maskexpr = NULL;
|
||||||
|
optional_mask = false;
|
||||||
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
arg_mask = arg_array->next->next;
|
arg_mask = arg_array->next->next;
|
||||||
gcc_assert (arg_mask != NULL);
|
gcc_assert (arg_mask != NULL);
|
||||||
maskexpr = arg_mask->expr;
|
maskexpr = arg_mask->expr;
|
||||||
|
optional_mask = maskexpr && maskexpr->expr_type == EXPR_VARIABLE
|
||||||
|
&& maskexpr->symtree->n.sym->attr.dummy
|
||||||
|
&& maskexpr->symtree->n.sym->attr.optional;
|
||||||
}
|
}
|
||||||
|
|
||||||
if (expr->rank == 0)
|
if (expr->rank == 0)
|
||||||
|
|
@ -4444,17 +4473,22 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op,
|
||||||
|
|
||||||
/* Initialize the scalarizer. */
|
/* Initialize the scalarizer. */
|
||||||
gfc_init_loopinfo (&loop);
|
gfc_init_loopinfo (&loop);
|
||||||
gfc_add_ss_to_loop (&loop, arrayss);
|
|
||||||
|
/* We add the mask first because the number of iterations is
|
||||||
|
taken from the last ss, and this breaks if an absent
|
||||||
|
optional argument is used for mask. */
|
||||||
|
|
||||||
if (maskexpr && maskexpr->rank > 0)
|
if (maskexpr && maskexpr->rank > 0)
|
||||||
gfc_add_ss_to_loop (&loop, maskss);
|
gfc_add_ss_to_loop (&loop, maskss);
|
||||||
|
gfc_add_ss_to_loop (&loop, arrayss);
|
||||||
|
|
||||||
/* Initialize the loop. */
|
/* Initialize the loop. */
|
||||||
gfc_conv_ss_startstride (&loop);
|
gfc_conv_ss_startstride (&loop);
|
||||||
gfc_conv_loop_setup (&loop, &expr->where);
|
gfc_conv_loop_setup (&loop, &expr->where);
|
||||||
|
|
||||||
gfc_mark_ss_chain_used (arrayss, 1);
|
|
||||||
if (maskexpr && maskexpr->rank > 0)
|
if (maskexpr && maskexpr->rank > 0)
|
||||||
gfc_mark_ss_chain_used (maskss, 1);
|
gfc_mark_ss_chain_used (maskss, 1);
|
||||||
|
gfc_mark_ss_chain_used (arrayss, 1);
|
||||||
|
|
||||||
ploop = &loop;
|
ploop = &loop;
|
||||||
}
|
}
|
||||||
|
|
@ -4563,10 +4597,13 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op,
|
||||||
|
|
||||||
if (maskexpr && maskexpr->rank > 0)
|
if (maskexpr && maskexpr->rank > 0)
|
||||||
{
|
{
|
||||||
/* We enclose the above in if (mask) {...} . */
|
/* We enclose the above in if (mask) {...} . If the mask is an
|
||||||
|
optional argument, generate
|
||||||
|
IF (.NOT. PRESENT(MASK) .OR. MASK(I)). */
|
||||||
|
tree ifmask;
|
||||||
tmp = gfc_finish_block (&block);
|
tmp = gfc_finish_block (&block);
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
build_empty_stmt (input_location));
|
build_empty_stmt (input_location));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
@ -4591,10 +4628,13 @@ gfc_conv_intrinsic_arith (gfc_se * se, gfc_expr * expr, enum tree_code op,
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
tree ifmask;
|
||||||
|
|
||||||
gcc_assert (expr->rank == 0);
|
gcc_assert (expr->rank == 0);
|
||||||
gfc_init_se (&maskse, NULL);
|
gfc_init_se (&maskse, NULL);
|
||||||
gfc_conv_expr_val (&maskse, maskexpr);
|
gfc_conv_expr_val (&maskse, maskexpr);
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
build_empty_stmt (input_location));
|
build_empty_stmt (input_location));
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
@ -4833,6 +4873,7 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
gfc_se backse;
|
gfc_se backse;
|
||||||
tree pos;
|
tree pos;
|
||||||
int n;
|
int n;
|
||||||
|
bool optional_mask;
|
||||||
|
|
||||||
actual = expr->value.function.actual;
|
actual = expr->value.function.actual;
|
||||||
|
|
||||||
|
|
@ -4887,6 +4928,9 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
actual = actual->next->next;
|
actual = actual->next->next;
|
||||||
gcc_assert (actual);
|
gcc_assert (actual);
|
||||||
maskexpr = actual->expr;
|
maskexpr = actual->expr;
|
||||||
|
optional_mask = maskexpr && maskexpr->expr_type == EXPR_VARIABLE
|
||||||
|
&& maskexpr->symtree->n.sym->attr.dummy
|
||||||
|
&& maskexpr->symtree->n.sym->attr.optional;
|
||||||
backexpr = actual->next->next->expr;
|
backexpr = actual->next->next->expr;
|
||||||
nonempty = NULL;
|
nonempty = NULL;
|
||||||
if (maskexpr && maskexpr->rank != 0)
|
if (maskexpr && maskexpr->rank != 0)
|
||||||
|
|
@ -4939,10 +4983,16 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
|
|
||||||
/* Initialize the scalarizer. */
|
/* Initialize the scalarizer. */
|
||||||
gfc_init_loopinfo (&loop);
|
gfc_init_loopinfo (&loop);
|
||||||
gfc_add_ss_to_loop (&loop, arrayss);
|
|
||||||
|
/* We add the mask first because the number of iterations is taken
|
||||||
|
from the last ss, and this breaks if an absent optional argument
|
||||||
|
is used for mask. */
|
||||||
|
|
||||||
if (maskss)
|
if (maskss)
|
||||||
gfc_add_ss_to_loop (&loop, maskss);
|
gfc_add_ss_to_loop (&loop, maskss);
|
||||||
|
|
||||||
|
gfc_add_ss_to_loop (&loop, arrayss);
|
||||||
|
|
||||||
/* Initialize the loop. */
|
/* Initialize the loop. */
|
||||||
gfc_conv_ss_startstride (&loop);
|
gfc_conv_ss_startstride (&loop);
|
||||||
|
|
||||||
|
|
@ -5103,10 +5153,14 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
|
|
||||||
if (maskss)
|
if (maskss)
|
||||||
{
|
{
|
||||||
/* We enclose the above in if (mask) {...}. */
|
/* We enclose the above in if (mask) {...}. If the mask is an
|
||||||
tmp = gfc_finish_block (&block);
|
optional argument, generate IF (.NOT. PRESENT(MASK)
|
||||||
|
.OR. MASK(I)). */
|
||||||
|
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
tree ifmask;
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = gfc_finish_block (&block);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
build_empty_stmt (input_location));
|
build_empty_stmt (input_location));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
@ -5197,10 +5251,14 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
|
|
||||||
if (maskss)
|
if (maskss)
|
||||||
{
|
{
|
||||||
/* We enclose the above in if (mask) {...}. */
|
/* We enclose the above in if (mask) {...}. If the mask is
|
||||||
tmp = gfc_finish_block (&block);
|
an optional argument, generate IF (.NOT. PRESENT(MASK)
|
||||||
|
.OR. MASK(I)).*/
|
||||||
|
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
tree ifmask;
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = gfc_finish_block (&block);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
build_empty_stmt (input_location));
|
build_empty_stmt (input_location));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
|
|
@ -5219,6 +5277,8 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
/* For a scalar mask, enclose the loop in an if statement. */
|
/* For a scalar mask, enclose the loop in an if statement. */
|
||||||
if (maskexpr && maskss == NULL)
|
if (maskexpr && maskss == NULL)
|
||||||
{
|
{
|
||||||
|
tree ifmask;
|
||||||
|
|
||||||
gfc_init_se (&maskse, NULL);
|
gfc_init_se (&maskse, NULL);
|
||||||
gfc_conv_expr_val (&maskse, maskexpr);
|
gfc_conv_expr_val (&maskse, maskexpr);
|
||||||
gfc_init_block (&block);
|
gfc_init_block (&block);
|
||||||
|
|
@ -5232,8 +5292,8 @@ gfc_conv_intrinsic_minmaxloc (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
gfc_init_block (&elseblock);
|
gfc_init_block (&elseblock);
|
||||||
gfc_add_modify (&elseblock, pos, gfc_index_zero_node);
|
gfc_add_modify (&elseblock, pos, gfc_index_zero_node);
|
||||||
elsetmp = gfc_finish_block (&elseblock);
|
elsetmp = gfc_finish_block (&elseblock);
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp, elsetmp);
|
tmp = build3_v (COND_EXPR, ifmask, tmp, elsetmp);
|
||||||
gfc_add_expr_to_block (&block, tmp);
|
gfc_add_expr_to_block (&block, tmp);
|
||||||
gfc_add_block_to_block (&se->pre, &block);
|
gfc_add_block_to_block (&se->pre, &block);
|
||||||
}
|
}
|
||||||
|
|
@ -5276,6 +5336,7 @@ gfc_conv_intrinsic_findloc (gfc_se *se, gfc_expr *expr)
|
||||||
gfc_expr *maskexpr;
|
gfc_expr *maskexpr;
|
||||||
tree offset;
|
tree offset;
|
||||||
int i;
|
int i;
|
||||||
|
bool optional_mask;
|
||||||
|
|
||||||
array_arg = expr->value.function.actual;
|
array_arg = expr->value.function.actual;
|
||||||
value_arg = array_arg->next;
|
value_arg = array_arg->next;
|
||||||
|
|
@ -5326,6 +5387,9 @@ gfc_conv_intrinsic_findloc (gfc_se *se, gfc_expr *expr)
|
||||||
offset = gfc_create_var (gfc_array_index_type, "offset");
|
offset = gfc_create_var (gfc_array_index_type, "offset");
|
||||||
|
|
||||||
maskexpr = mask_arg->expr;
|
maskexpr = mask_arg->expr;
|
||||||
|
optional_mask = maskexpr && maskexpr->expr_type == EXPR_VARIABLE
|
||||||
|
&& maskexpr->symtree->n.sym->attr.dummy
|
||||||
|
&& maskexpr->symtree->n.sym->attr.optional;
|
||||||
|
|
||||||
/* Generate two loops, one for BACK=.true. and one for BACK=.false. */
|
/* Generate two loops, one for BACK=.true. and one for BACK=.false. */
|
||||||
|
|
||||||
|
|
@ -5347,9 +5411,14 @@ gfc_conv_intrinsic_findloc (gfc_se *se, gfc_expr *expr)
|
||||||
gfc_init_loopinfo (&loop);
|
gfc_init_loopinfo (&loop);
|
||||||
exit_label = gfc_build_label_decl (NULL_TREE);
|
exit_label = gfc_build_label_decl (NULL_TREE);
|
||||||
TREE_USED (exit_label) = 1;
|
TREE_USED (exit_label) = 1;
|
||||||
gfc_add_ss_to_loop (&loop, arrayss);
|
|
||||||
|
/* We add the mask first because the number of iterations is
|
||||||
|
taken from the last ss, and this breaks if an absent
|
||||||
|
optional argument is used for mask. */
|
||||||
|
|
||||||
if (maskss)
|
if (maskss)
|
||||||
gfc_add_ss_to_loop (&loop, maskss);
|
gfc_add_ss_to_loop (&loop, maskss);
|
||||||
|
gfc_add_ss_to_loop (&loop, arrayss);
|
||||||
|
|
||||||
/* Initialize the loop. */
|
/* Initialize the loop. */
|
||||||
gfc_conv_ss_startstride (&loop);
|
gfc_conv_ss_startstride (&loop);
|
||||||
|
|
@ -5412,8 +5481,16 @@ gfc_conv_intrinsic_findloc (gfc_se *se, gfc_expr *expr)
|
||||||
|
|
||||||
tmp = build3_v (COND_EXPR, tmp, found, build_empty_stmt (input_location));
|
tmp = build3_v (COND_EXPR, tmp, found, build_empty_stmt (input_location));
|
||||||
if (maskss)
|
if (maskss)
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
{
|
||||||
build_empty_stmt (input_location));
|
/* We enclose the above in if (mask) {...}. If the mask is
|
||||||
|
an optional argument, generate IF (.NOT. PRESENT(MASK)
|
||||||
|
.OR. MASK(I)). */
|
||||||
|
|
||||||
|
tree ifmask;
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
|
build_empty_stmt (input_location));
|
||||||
|
}
|
||||||
|
|
||||||
gfc_add_expr_to_block (&body, tmp);
|
gfc_add_expr_to_block (&body, tmp);
|
||||||
gfc_add_block_to_block (&body, &arrayse.post);
|
gfc_add_block_to_block (&body, &arrayse.post);
|
||||||
|
|
@ -5444,12 +5521,15 @@ gfc_conv_intrinsic_findloc (gfc_se *se, gfc_expr *expr)
|
||||||
/* For a scalar mask, enclose the loop in an if statement. */
|
/* For a scalar mask, enclose the loop in an if statement. */
|
||||||
if (maskexpr && maskss == NULL)
|
if (maskexpr && maskss == NULL)
|
||||||
{
|
{
|
||||||
|
tree ifmask;
|
||||||
tree if_stmt;
|
tree if_stmt;
|
||||||
|
|
||||||
gfc_init_se (&maskse, NULL);
|
gfc_init_se (&maskse, NULL);
|
||||||
gfc_conv_expr_val (&maskse, maskexpr);
|
gfc_conv_expr_val (&maskse, maskexpr);
|
||||||
gfc_init_block (&block);
|
gfc_init_block (&block);
|
||||||
gfc_add_expr_to_block (&block, maskse.expr);
|
gfc_add_expr_to_block (&block, maskse.expr);
|
||||||
if_stmt = build3_v (COND_EXPR, maskse.expr, tmp,
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
if_stmt = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
build_empty_stmt (input_location));
|
build_empty_stmt (input_location));
|
||||||
gfc_add_expr_to_block (&block, if_stmt);
|
gfc_add_expr_to_block (&block, if_stmt);
|
||||||
tmp = gfc_finish_block (&block);
|
tmp = gfc_finish_block (&block);
|
||||||
|
|
@ -5576,6 +5656,7 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
gfc_expr *arrayexpr;
|
gfc_expr *arrayexpr;
|
||||||
gfc_expr *maskexpr;
|
gfc_expr *maskexpr;
|
||||||
int n;
|
int n;
|
||||||
|
bool optional_mask;
|
||||||
|
|
||||||
if (se->ss)
|
if (se->ss)
|
||||||
{
|
{
|
||||||
|
|
@ -5665,6 +5746,9 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
actual = actual->next->next;
|
actual = actual->next->next;
|
||||||
gcc_assert (actual);
|
gcc_assert (actual);
|
||||||
maskexpr = actual->expr;
|
maskexpr = actual->expr;
|
||||||
|
optional_mask = maskexpr && maskexpr->expr_type == EXPR_VARIABLE
|
||||||
|
&& maskexpr->symtree->n.sym->attr.dummy
|
||||||
|
&& maskexpr->symtree->n.sym->attr.optional;
|
||||||
nonempty = NULL;
|
nonempty = NULL;
|
||||||
if (maskexpr && maskexpr->rank != 0)
|
if (maskexpr && maskexpr->rank != 0)
|
||||||
{
|
{
|
||||||
|
|
@ -5687,9 +5771,14 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
|
|
||||||
/* Initialize the scalarizer. */
|
/* Initialize the scalarizer. */
|
||||||
gfc_init_loopinfo (&loop);
|
gfc_init_loopinfo (&loop);
|
||||||
gfc_add_ss_to_loop (&loop, arrayss);
|
|
||||||
|
/* We add the mask first because the number of iterations is taken
|
||||||
|
from the last ss, and this breaks if an absent optional argument
|
||||||
|
is used for mask. */
|
||||||
|
|
||||||
if (maskss)
|
if (maskss)
|
||||||
gfc_add_ss_to_loop (&loop, maskss);
|
gfc_add_ss_to_loop (&loop, maskss);
|
||||||
|
gfc_add_ss_to_loop (&loop, arrayss);
|
||||||
|
|
||||||
/* Initialize the loop. */
|
/* Initialize the loop. */
|
||||||
gfc_conv_ss_startstride (&loop);
|
gfc_conv_ss_startstride (&loop);
|
||||||
|
|
@ -5832,9 +5921,15 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
|
|
||||||
tmp = gfc_finish_block (&block);
|
tmp = gfc_finish_block (&block);
|
||||||
if (maskss)
|
if (maskss)
|
||||||
/* We enclose the above in if (mask) {...}. */
|
{
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
/* We enclose the above in if (mask) {...}. If the mask is an
|
||||||
build_empty_stmt (input_location));
|
optional argument, generate IF (.NOT. PRESENT(MASK)
|
||||||
|
.OR. MASK(I)). */
|
||||||
|
tree ifmask;
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
|
build_empty_stmt (input_location));
|
||||||
|
}
|
||||||
gfc_add_expr_to_block (&body, tmp);
|
gfc_add_expr_to_block (&body, tmp);
|
||||||
|
|
||||||
if (lab)
|
if (lab)
|
||||||
|
|
@ -5891,8 +5986,13 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
tmp = gfc_finish_block (&block);
|
tmp = gfc_finish_block (&block);
|
||||||
if (maskss)
|
if (maskss)
|
||||||
/* We enclose the above in if (mask) {...}. */
|
/* We enclose the above in if (mask) {...}. */
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp,
|
{
|
||||||
build_empty_stmt (input_location));
|
tree ifmask;
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp,
|
||||||
|
build_empty_stmt (input_location));
|
||||||
|
}
|
||||||
|
|
||||||
gfc_add_expr_to_block (&body, tmp);
|
gfc_add_expr_to_block (&body, tmp);
|
||||||
/* Avoid initializing loopvar[0] again, it should be left where
|
/* Avoid initializing loopvar[0] again, it should be left where
|
||||||
it finished by the first loop. */
|
it finished by the first loop. */
|
||||||
|
|
@ -5920,6 +6020,7 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
if (maskexpr && maskss == NULL)
|
if (maskexpr && maskss == NULL)
|
||||||
{
|
{
|
||||||
tree else_stmt;
|
tree else_stmt;
|
||||||
|
tree ifmask;
|
||||||
|
|
||||||
gfc_init_se (&maskse, NULL);
|
gfc_init_se (&maskse, NULL);
|
||||||
gfc_conv_expr_val (&maskse, maskexpr);
|
gfc_conv_expr_val (&maskse, maskexpr);
|
||||||
|
|
@ -5932,7 +6033,9 @@ gfc_conv_intrinsic_minmaxval (gfc_se * se, gfc_expr * expr, enum tree_code op)
|
||||||
else_stmt = build2_v (MODIFY_EXPR, limit, huge_cst);
|
else_stmt = build2_v (MODIFY_EXPR, limit, huge_cst);
|
||||||
else
|
else
|
||||||
else_stmt = build_empty_stmt (input_location);
|
else_stmt = build_empty_stmt (input_location);
|
||||||
tmp = build3_v (COND_EXPR, maskse.expr, tmp, else_stmt);
|
|
||||||
|
ifmask = conv_mask_condition (&maskse, maskexpr, optional_mask);
|
||||||
|
tmp = build3_v (COND_EXPR, ifmask, tmp, else_stmt);
|
||||||
gfc_add_expr_to_block (&block, tmp);
|
gfc_add_expr_to_block (&block, tmp);
|
||||||
gfc_add_block_to_block (&se->pre, &block);
|
gfc_add_block_to_block (&se->pre, &block);
|
||||||
}
|
}
|
||||||
|
|
@ -10177,7 +10280,8 @@ gfc_walk_intrinsic_libfunc (gfc_ss * ss, gfc_expr * expr)
|
||||||
bool
|
bool
|
||||||
gfc_inline_intrinsic_function_p (gfc_expr *expr)
|
gfc_inline_intrinsic_function_p (gfc_expr *expr)
|
||||||
{
|
{
|
||||||
gfc_actual_arglist *args;
|
gfc_actual_arglist *args, *dim_arg, *mask_arg;
|
||||||
|
gfc_expr *maskexpr;
|
||||||
|
|
||||||
if (!expr->value.function.isym)
|
if (!expr->value.function.isym)
|
||||||
return false;
|
return false;
|
||||||
|
|
@ -10191,8 +10295,23 @@ gfc_inline_intrinsic_function_p (gfc_expr *expr)
|
||||||
return false;
|
return false;
|
||||||
|
|
||||||
args = expr->value.function.actual;
|
args = expr->value.function.actual;
|
||||||
|
dim_arg = args->next;
|
||||||
|
|
||||||
/* We need to be able to subset the SUM argument at compile-time. */
|
/* We need to be able to subset the SUM argument at compile-time. */
|
||||||
if (args->next->expr && args->next->expr->expr_type != EXPR_CONSTANT)
|
if (dim_arg->expr && dim_arg->expr->expr_type != EXPR_CONSTANT)
|
||||||
|
return false;
|
||||||
|
|
||||||
|
/* FIXME: If MASK is optional for a more than two-dimensional
|
||||||
|
argument, the scalarizer gets confused if the mask is
|
||||||
|
absent. See PR 82995. For now, fall back to the library
|
||||||
|
function. */
|
||||||
|
|
||||||
|
mask_arg = dim_arg->next;
|
||||||
|
maskexpr = mask_arg->expr;
|
||||||
|
|
||||||
|
if (expr->rank > 0 && maskexpr && maskexpr->expr_type == EXPR_VARIABLE
|
||||||
|
&& maskexpr->symtree->n.sym->attr.dummy
|
||||||
|
&& maskexpr->symtree->n.sym->attr.optional)
|
||||||
return false;
|
return false;
|
||||||
|
|
||||||
return true;
|
return true;
|
||||||
|
|
|
||||||
|
|
@ -1,3 +1,9 @@
|
||||||
|
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR fortran/82995
|
||||||
|
* gfortran.dg/optional_absent_4.f90: New test.
|
||||||
|
* gfortran.dg/optional_absent_5.f90: New test.
|
||||||
|
|
||||||
2018-12-31 Martin Liska <mliska@suse.cz>
|
2018-12-31 Martin Liska <mliska@suse.cz>
|
||||||
|
|
||||||
* g++.dg/tree-prof/devirt.C: Fix scan pattern and test options.
|
* g++.dg/tree-prof/devirt.C: Fix scan pattern and test options.
|
||||||
|
|
|
||||||
|
|
@ -0,0 +1,96 @@
|
||||||
|
! { dg-do run }
|
||||||
|
! PR 82995 - segfault passing on an optional argument;
|
||||||
|
! this tests the inline versions.
|
||||||
|
module y
|
||||||
|
implicit none
|
||||||
|
contains
|
||||||
|
|
||||||
|
function sum_1 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask(:)
|
||||||
|
integer, intent(in) :: input(:)
|
||||||
|
integer :: sum_1
|
||||||
|
sum_1 = sum (input, mask)
|
||||||
|
end function sum_1
|
||||||
|
|
||||||
|
function sum_2 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:)
|
||||||
|
integer :: sum_2
|
||||||
|
sum_2 = sum(input, mask)
|
||||||
|
end function sum_2
|
||||||
|
|
||||||
|
function sum_3 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer :: sum_3
|
||||||
|
sum_3 = sum (input, mask)
|
||||||
|
end function sum_3
|
||||||
|
|
||||||
|
function minval_1 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
real, intent(in) :: input(:,:)
|
||||||
|
real :: minval_1
|
||||||
|
minval_1 = minval (input, mask)
|
||||||
|
end function minval_1
|
||||||
|
|
||||||
|
function maxval_1 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
real, intent(in) :: input(:,:)
|
||||||
|
real :: maxval_1
|
||||||
|
maxval_1 = maxval (input, mask)
|
||||||
|
end function maxval_1
|
||||||
|
|
||||||
|
function maxloc_1 (input, mask)
|
||||||
|
logical, intent(in), optional :: mask(:)
|
||||||
|
real, intent(in) :: input(:)
|
||||||
|
integer :: maxloc_1
|
||||||
|
|
||||||
|
maxloc_1 = maxloc(input, dim=1, mask=mask)
|
||||||
|
end function maxloc_1
|
||||||
|
|
||||||
|
function findloc_1 (input, val, mask)
|
||||||
|
logical, intent(in), optional :: mask (:)
|
||||||
|
integer, intent(in) :: input(:)
|
||||||
|
integer, intent(in) :: val
|
||||||
|
integer :: findloc_1
|
||||||
|
|
||||||
|
findloc_1 = findloc(input, val, dim=1, mask=mask)
|
||||||
|
end function findloc_1
|
||||||
|
|
||||||
|
function findloc_2 (input, val, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:)
|
||||||
|
integer, intent(in) :: val
|
||||||
|
integer :: findloc_2
|
||||||
|
|
||||||
|
findloc_2 = findloc(input, val, dim=1, mask=mask)
|
||||||
|
end function findloc_2
|
||||||
|
|
||||||
|
end module y
|
||||||
|
|
||||||
|
program test_sum_1
|
||||||
|
use y
|
||||||
|
implicit none
|
||||||
|
integer :: input(5) = [1,2,4,8,16]
|
||||||
|
integer :: i2(2,3) = reshape([1,2,4,8,16,32], [2,3])
|
||||||
|
real :: r2(2,3) = reshape ([32.,16.,8.,4.,2.,1.], [2,3])
|
||||||
|
real :: r1(6) = [2.,4.,8.,32.,1.,16.]
|
||||||
|
integer :: res
|
||||||
|
real :: rres
|
||||||
|
res = sum_1(input)
|
||||||
|
if (res /= 31) stop 1
|
||||||
|
res = sum_2 (input)
|
||||||
|
if (res /= 31) stop 2
|
||||||
|
res = sum_3 (i2)
|
||||||
|
if (res /= 63) stop 3
|
||||||
|
rres = minval_1 (r2)
|
||||||
|
if (rres /= 1.0) stop 4
|
||||||
|
rres = maxval_1 (r2)
|
||||||
|
if (rres /= 32.) stop 5
|
||||||
|
res = maxloc_1 (r1)
|
||||||
|
if (res /= 4) stop 6
|
||||||
|
res = findloc_1 (input, 8)
|
||||||
|
if (res /= 4) stop 7
|
||||||
|
res = findloc_2 (input, 2)
|
||||||
|
if (res /= 2) stop 8
|
||||||
|
end program test_sum_1
|
||||||
|
|
@ -0,0 +1,144 @@
|
||||||
|
! { dg-do run }
|
||||||
|
! PR 82995 - segfault passing on an optional argument;
|
||||||
|
! this tests the library versions.
|
||||||
|
module z
|
||||||
|
implicit none
|
||||||
|
contains
|
||||||
|
subroutine sum_1 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = sum (input, dim=1, mask=mask)
|
||||||
|
end subroutine sum_1
|
||||||
|
|
||||||
|
subroutine sum_2 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = sum (input, dim=1, mask=mask)
|
||||||
|
end subroutine sum_2
|
||||||
|
|
||||||
|
subroutine maxloc_1 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = maxloc (input, dim=1, mask=mask)
|
||||||
|
end subroutine maxloc_1
|
||||||
|
|
||||||
|
subroutine minloc_1 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = minloc (input, dim=1, mask=mask)
|
||||||
|
end subroutine minloc_1
|
||||||
|
|
||||||
|
subroutine maxloc_2 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer :: n
|
||||||
|
n = 1
|
||||||
|
res = maxloc (input, dim=n, mask=mask)
|
||||||
|
end subroutine maxloc_2
|
||||||
|
|
||||||
|
subroutine findloc_1 (input, val, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer, intent(in) :: val
|
||||||
|
res = findloc(input, val)
|
||||||
|
end subroutine findloc_1
|
||||||
|
|
||||||
|
subroutine findloc_2 (input, val, res, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer, intent(in) :: val
|
||||||
|
res = findloc(input, val)
|
||||||
|
end subroutine findloc_2
|
||||||
|
|
||||||
|
subroutine findloc_3 (input, val, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer, intent(in) :: val
|
||||||
|
res = findloc(input, val, dim=1)
|
||||||
|
end subroutine findloc_3
|
||||||
|
|
||||||
|
subroutine findloc_4 (input, val, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer, intent(in) :: val
|
||||||
|
integer :: n = 1
|
||||||
|
res = findloc(input, val, dim=n)
|
||||||
|
end subroutine findloc_4
|
||||||
|
|
||||||
|
subroutine maxval_1 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = maxval (input, dim=1, mask=mask)
|
||||||
|
end subroutine maxval_1
|
||||||
|
|
||||||
|
subroutine maxval_2 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer :: n = 1
|
||||||
|
res = maxval (input, dim=n, mask=mask)
|
||||||
|
end subroutine maxval_2
|
||||||
|
|
||||||
|
subroutine minval_1 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
res = minval (input, dim=1, mask=mask)
|
||||||
|
end subroutine minval_1
|
||||||
|
|
||||||
|
subroutine minval_2 (input, res, mask)
|
||||||
|
logical, intent(in), optional :: mask(:,:)
|
||||||
|
integer, intent(in) :: input(:,:)
|
||||||
|
integer, dimension(:), intent(out) :: res
|
||||||
|
integer :: n = 1
|
||||||
|
res = minval (input, dim=n, mask=mask)
|
||||||
|
end subroutine minval_2
|
||||||
|
|
||||||
|
end module z
|
||||||
|
|
||||||
|
program main
|
||||||
|
use z
|
||||||
|
implicit none
|
||||||
|
integer :: i2(2,3) = reshape([1,2,4,8,16,32], [2,3])
|
||||||
|
integer, dimension(3) :: res3
|
||||||
|
integer, dimension(2) :: res2
|
||||||
|
call sum_1 (i2, res3)
|
||||||
|
if (any (res3 /= [3, 12, 48])) stop 1
|
||||||
|
res3 = -2
|
||||||
|
call sum_2 (i2, res3)
|
||||||
|
if (any (res3 /= [3, 12, 48])) stop 2
|
||||||
|
call maxloc_1 (i2, res3)
|
||||||
|
if (any (res3 /= 2)) stop 3
|
||||||
|
call minloc_1 (i2, res3)
|
||||||
|
if (any (res3 /= 1)) stop 4
|
||||||
|
call maxloc_2 (i2, res3)
|
||||||
|
if (any (res3 /= 2)) stop 5
|
||||||
|
call findloc_1 (i2, 4, res2)
|
||||||
|
if (any(res2 /= [1,2])) stop 6
|
||||||
|
res2 = -1234
|
||||||
|
call findloc_2 (i2, 4, res2)
|
||||||
|
if (any(res2 /= [1,2])) stop 7
|
||||||
|
call findloc_3 (i2, 4, res3)
|
||||||
|
if (any(res3 /= [0,1,0])) stop 8
|
||||||
|
call findloc_4 (i2, 4, res3)
|
||||||
|
if (any(res3 /= [0,1,0])) stop 9
|
||||||
|
call maxval_1 (i2, res3)
|
||||||
|
if (any (res3 /= [2,8,32])) stop 10
|
||||||
|
call minval_1 (i2, res3)
|
||||||
|
if (any (res3 /= [1,4,16])) stop 11
|
||||||
|
call maxval_2 (i2, res3)
|
||||||
|
if (any (res3 /= [2,8,32])) stop 12
|
||||||
|
call minval_2 (i2, res3)
|
||||||
|
if (any (res3 /= [1,4,16])) stop 13
|
||||||
|
|
||||||
|
end program main
|
||||||
|
|
@ -1,3 +1,245 @@
|
||||||
|
2018-12-31 Thomas Koenig <tkoenig@gcc.gnu.org>
|
||||||
|
|
||||||
|
PR fortran/82995
|
||||||
|
* m4/ifindloc0.m4: Handle case of absend optional argument, passed
|
||||||
|
as a NULL pointer. Correct allocation of retarray->base_addr.
|
||||||
|
* m4/ifindloc1.m4: Likewise.
|
||||||
|
* m4/ifindloc2.m4: Handle case of absend optional argument, passed
|
||||||
|
as a NULL pointer.
|
||||||
|
* m4/iforeach-s.m4: Likewise.
|
||||||
|
* m4/iforeach-s2.m4: Likewise.
|
||||||
|
* m4/iforeach.m4: Likewise.
|
||||||
|
* m4/ifunction-s.m4: Likewise.
|
||||||
|
* m4/ifunction-s2.m4: Likewise.
|
||||||
|
* m4/ifunction.m4: Likewise.
|
||||||
|
* generated/findloc0_c16.c: Regenerated.
|
||||||
|
* generated/findloc0_c4.c: Regenerated.
|
||||||
|
* generated/findloc0_c8.c: Regenerated.
|
||||||
|
* generated/findloc0_i1.c: Regenerated.
|
||||||
|
* generated/findloc0_i16.c: Regenerated.
|
||||||
|
* generated/findloc0_i2.c: Regenerated.
|
||||||
|
* generated/findloc0_i4.c: Regenerated.
|
||||||
|
* generated/findloc0_i8.c: Regenerated.
|
||||||
|
* generated/findloc0_r16.c: Regenerated.
|
||||||
|
* generated/findloc0_r4.c: Regenerated.
|
||||||
|
* generated/findloc0_r8.c: Regenerated.
|
||||||
|
* generated/findloc0_s1.c: Regenerated.
|
||||||
|
* generated/findloc0_s4.c: Regenerated.
|
||||||
|
* generated/findloc1_c16.c: Regenerated.
|
||||||
|
* generated/findloc1_c4.c: Regenerated.
|
||||||
|
* generated/findloc1_c8.c: Regenerated.
|
||||||
|
* generated/findloc1_i1.c: Regenerated.
|
||||||
|
* generated/findloc1_i16.c: Regenerated.
|
||||||
|
* generated/findloc1_i2.c: Regenerated.
|
||||||
|
* generated/findloc1_i4.c: Regenerated.
|
||||||
|
* generated/findloc1_i8.c: Regenerated.
|
||||||
|
* generated/findloc1_r16.c: Regenerated.
|
||||||
|
* generated/findloc1_r4.c: Regenerated.
|
||||||
|
* generated/findloc1_r8.c: Regenerated.
|
||||||
|
* generated/findloc1_s1.c: Regenerated.
|
||||||
|
* generated/findloc1_s4.c: Regenerated.
|
||||||
|
* generated/findloc2_s1.c: Regenerated.
|
||||||
|
* generated/findloc2_s4.c: Regenerated.
|
||||||
|
* generated/iall_i1.c: Regenerated.
|
||||||
|
* generated/iall_i16.c: Regenerated.
|
||||||
|
* generated/iall_i2.c: Regenerated.
|
||||||
|
* generated/iall_i4.c: Regenerated.
|
||||||
|
* generated/iall_i8.c: Regenerated.
|
||||||
|
* generated/iany_i1.c: Regenerated.
|
||||||
|
* generated/iany_i16.c: Regenerated.
|
||||||
|
* generated/iany_i2.c: Regenerated.
|
||||||
|
* generated/iany_i4.c: Regenerated.
|
||||||
|
* generated/iany_i8.c: Regenerated.
|
||||||
|
* generated/iparity_i1.c: Regenerated.
|
||||||
|
* generated/iparity_i16.c: Regenerated.
|
||||||
|
* generated/iparity_i2.c: Regenerated.
|
||||||
|
* generated/iparity_i4.c: Regenerated.
|
||||||
|
* generated/iparity_i8.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_i1.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_i16.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_i2.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_i4.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_i8.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_r10.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_r16.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_r4.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_r8.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_s1.c: Regenerated.
|
||||||
|
* generated/maxloc0_16_s4.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_i1.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_i16.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_i2.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_i4.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_i8.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_r10.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_r16.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_r4.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_r8.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_s1.c: Regenerated.
|
||||||
|
* generated/maxloc0_4_s4.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_i1.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_i16.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_i2.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_i4.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_i8.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_r10.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_r16.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_r4.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_r8.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_s1.c: Regenerated.
|
||||||
|
* generated/maxloc0_8_s4.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_i1.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_i16.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_i2.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_i4.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_i8.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_r10.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_r16.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_r4.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_r8.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_s1.c: Regenerated.
|
||||||
|
* generated/maxloc1_16_s4.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_i1.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_i16.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_i2.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_i4.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_i8.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_r10.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_r16.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_r4.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_r8.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_s1.c: Regenerated.
|
||||||
|
* generated/maxloc1_4_s4.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_i1.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_i16.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_i2.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_i4.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_i8.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_r10.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_r16.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_r4.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_r8.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_s1.c: Regenerated.
|
||||||
|
* generated/maxloc1_8_s4.c: Regenerated.
|
||||||
|
* generated/maxval0_s1.c: Regenerated.
|
||||||
|
* generated/maxval0_s4.c: Regenerated.
|
||||||
|
* generated/maxval1_s1.c: Regenerated.
|
||||||
|
* generated/maxval1_s4.c: Regenerated.
|
||||||
|
* generated/maxval_i1.c: Regenerated.
|
||||||
|
* generated/maxval_i16.c: Regenerated.
|
||||||
|
* generated/maxval_i2.c: Regenerated.
|
||||||
|
* generated/maxval_i4.c: Regenerated.
|
||||||
|
* generated/maxval_i8.c: Regenerated.
|
||||||
|
* generated/maxval_r10.c: Regenerated.
|
||||||
|
* generated/maxval_r16.c: Regenerated.
|
||||||
|
* generated/maxval_r4.c: Regenerated.
|
||||||
|
* generated/maxval_r8.c: Regenerated.
|
||||||
|
* generated/minloc0_16_i1.c: Regenerated.
|
||||||
|
* generated/minloc0_16_i16.c: Regenerated.
|
||||||
|
* generated/minloc0_16_i2.c: Regenerated.
|
||||||
|
* generated/minloc0_16_i4.c: Regenerated.
|
||||||
|
* generated/minloc0_16_i8.c: Regenerated.
|
||||||
|
* generated/minloc0_16_r10.c: Regenerated.
|
||||||
|
* generated/minloc0_16_r16.c: Regenerated.
|
||||||
|
* generated/minloc0_16_r4.c: Regenerated.
|
||||||
|
* generated/minloc0_16_r8.c: Regenerated.
|
||||||
|
* generated/minloc0_16_s1.c: Regenerated.
|
||||||
|
* generated/minloc0_16_s4.c: Regenerated.
|
||||||
|
* generated/minloc0_4_i1.c: Regenerated.
|
||||||
|
* generated/minloc0_4_i16.c: Regenerated.
|
||||||
|
* generated/minloc0_4_i2.c: Regenerated.
|
||||||
|
* generated/minloc0_4_i4.c: Regenerated.
|
||||||
|
* generated/minloc0_4_i8.c: Regenerated.
|
||||||
|
* generated/minloc0_4_r10.c: Regenerated.
|
||||||
|
* generated/minloc0_4_r16.c: Regenerated.
|
||||||
|
* generated/minloc0_4_r4.c: Regenerated.
|
||||||
|
* generated/minloc0_4_r8.c: Regenerated.
|
||||||
|
* generated/minloc0_4_s1.c: Regenerated.
|
||||||
|
* generated/minloc0_4_s4.c: Regenerated.
|
||||||
|
* generated/minloc0_8_i1.c: Regenerated.
|
||||||
|
* generated/minloc0_8_i16.c: Regenerated.
|
||||||
|
* generated/minloc0_8_i2.c: Regenerated.
|
||||||
|
* generated/minloc0_8_i4.c: Regenerated.
|
||||||
|
* generated/minloc0_8_i8.c: Regenerated.
|
||||||
|
* generated/minloc0_8_r10.c: Regenerated.
|
||||||
|
* generated/minloc0_8_r16.c: Regenerated.
|
||||||
|
* generated/minloc0_8_r4.c: Regenerated.
|
||||||
|
* generated/minloc0_8_r8.c: Regenerated.
|
||||||
|
* generated/minloc0_8_s1.c: Regenerated.
|
||||||
|
* generated/minloc0_8_s4.c: Regenerated.
|
||||||
|
* generated/minloc1_16_i1.c: Regenerated.
|
||||||
|
* generated/minloc1_16_i16.c: Regenerated.
|
||||||
|
* generated/minloc1_16_i2.c: Regenerated.
|
||||||
|
* generated/minloc1_16_i4.c: Regenerated.
|
||||||
|
* generated/minloc1_16_i8.c: Regenerated.
|
||||||
|
* generated/minloc1_16_r10.c: Regenerated.
|
||||||
|
* generated/minloc1_16_r16.c: Regenerated.
|
||||||
|
* generated/minloc1_16_r4.c: Regenerated.
|
||||||
|
* generated/minloc1_16_r8.c: Regenerated.
|
||||||
|
* generated/minloc1_16_s1.c: Regenerated.
|
||||||
|
* generated/minloc1_16_s4.c: Regenerated.
|
||||||
|
* generated/minloc1_4_i1.c: Regenerated.
|
||||||
|
* generated/minloc1_4_i16.c: Regenerated.
|
||||||
|
* generated/minloc1_4_i2.c: Regenerated.
|
||||||
|
* generated/minloc1_4_i4.c: Regenerated.
|
||||||
|
* generated/minloc1_4_i8.c: Regenerated.
|
||||||
|
* generated/minloc1_4_r10.c: Regenerated.
|
||||||
|
* generated/minloc1_4_r16.c: Regenerated.
|
||||||
|
* generated/minloc1_4_r4.c: Regenerated.
|
||||||
|
* generated/minloc1_4_r8.c: Regenerated.
|
||||||
|
* generated/minloc1_4_s1.c: Regenerated.
|
||||||
|
* generated/minloc1_4_s4.c: Regenerated.
|
||||||
|
* generated/minloc1_8_i1.c: Regenerated.
|
||||||
|
* generated/minloc1_8_i16.c: Regenerated.
|
||||||
|
* generated/minloc1_8_i2.c: Regenerated.
|
||||||
|
* generated/minloc1_8_i4.c: Regenerated.
|
||||||
|
* generated/minloc1_8_i8.c: Regenerated.
|
||||||
|
* generated/minloc1_8_r10.c: Regenerated.
|
||||||
|
* generated/minloc1_8_r16.c: Regenerated.
|
||||||
|
* generated/minloc1_8_r4.c: Regenerated.
|
||||||
|
* generated/minloc1_8_r8.c: Regenerated.
|
||||||
|
* generated/minloc1_8_s1.c: Regenerated.
|
||||||
|
* generated/minloc1_8_s4.c: Regenerated.
|
||||||
|
* generated/minval0_s1.c: Regenerated.
|
||||||
|
* generated/minval0_s4.c: Regenerated.
|
||||||
|
* generated/minval1_s1.c: Regenerated.
|
||||||
|
* generated/minval1_s4.c: Regenerated.
|
||||||
|
* generated/minval_i1.c: Regenerated.
|
||||||
|
* generated/minval_i16.c: Regenerated.
|
||||||
|
* generated/minval_i2.c: Regenerated.
|
||||||
|
* generated/minval_i4.c: Regenerated.
|
||||||
|
* generated/minval_i8.c: Regenerated.
|
||||||
|
* generated/minval_r10.c: Regenerated.
|
||||||
|
* generated/minval_r16.c: Regenerated.
|
||||||
|
* generated/minval_r4.c: Regenerated.
|
||||||
|
* generated/minval_r8.c: Regenerated.
|
||||||
|
* generated/product_c10.c: Regenerated.
|
||||||
|
* generated/product_c16.c: Regenerated.
|
||||||
|
* generated/product_c4.c: Regenerated.
|
||||||
|
* generated/product_c8.c: Regenerated.
|
||||||
|
* generated/product_i1.c: Regenerated.
|
||||||
|
* generated/product_i16.c: Regenerated.
|
||||||
|
* generated/product_i2.c: Regenerated.
|
||||||
|
* generated/product_i4.c: Regenerated.
|
||||||
|
* generated/product_i8.c: Regenerated.
|
||||||
|
* generated/product_r10.c: Regenerated.
|
||||||
|
* generated/product_r16.c: Regenerated.
|
||||||
|
* generated/product_r4.c: Regenerated.
|
||||||
|
* generated/product_r8.c: Regenerated.
|
||||||
|
* generated/sum_c10.c: Regenerated.
|
||||||
|
* generated/sum_c16.c: Regenerated.
|
||||||
|
* generated/sum_c4.c: Regenerated.
|
||||||
|
* generated/sum_c8.c: Regenerated.
|
||||||
|
* generated/sum_i1.c: Regenerated.
|
||||||
|
* generated/sum_i16.c: Regenerated.
|
||||||
|
* generated/sum_i2.c: Regenerated.
|
||||||
|
* generated/sum_i4.c: Regenerated.
|
||||||
|
* generated/sum_i8.c: Regenerated.
|
||||||
|
* generated/sum_r10.c: Regenerated.
|
||||||
|
* generated/sum_r16.c: Regenerated.
|
||||||
|
* generated/sum_r4.c: Regenerated.
|
||||||
|
* generated/sum_r8.c: Regenerated.
|
||||||
|
|
||||||
2018-12-29 Steven G. Kargl <kargl@gcc.gnu.org>
|
2018-12-29 Steven G. Kargl <kargl@gcc.gnu.org>
|
||||||
|
|
||||||
* gfortran.map: Expose subnormal functions in dynamic library.
|
* gfortran.map: Expose subnormal functions in dynamic library.
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_c16 (retarray, array, value, back);
|
findloc0_c16 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_c4 (retarray, array, value, back);
|
findloc0_c4 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_c8 (retarray, array, value, back);
|
findloc0_c8 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_i1 (retarray, array, value, back);
|
findloc0_i1 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_i16 (retarray, array, value, back);
|
findloc0_i16 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_i2 (retarray, array, value, back);
|
findloc0_i2 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_i4 (retarray, array, value, back);
|
findloc0_i4 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_i8 (retarray, array, value, back);
|
findloc0_i8 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_r16 (retarray, array, value, back);
|
findloc0_r16 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_r4 (retarray, array, value, back);
|
findloc0_r4 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -57,7 +57,7 @@ findloc0_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_r8 (retarray, array, value, back);
|
findloc0_r8 (retarray, array, value, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -58,7 +58,7 @@ findloc0_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -199,7 +199,7 @@ mfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -347,7 +347,7 @@ sfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_s1 (retarray, array, value, back, len_array, len_value);
|
findloc0_s1 (retarray, array, value, back, len_array, len_value);
|
||||||
return;
|
return;
|
||||||
|
|
@ -363,7 +363,7 @@ sfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -58,7 +58,7 @@ findloc0_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -199,7 +199,7 @@ mfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
|
|
@ -347,7 +347,7 @@ sfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type * restrict dest;
|
index_type * restrict dest;
|
||||||
index_type n;
|
index_type n;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc0_s4 (retarray, array, value, back, len_array, len_value);
|
findloc0_s4 (retarray, array, value, back, len_array, len_value);
|
||||||
return;
|
return;
|
||||||
|
|
@ -363,7 +363,7 @@ sfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||||
retarray->dtype.rank = 1;
|
retarray->dtype.rank = 1;
|
||||||
retarray->offset = 0;
|
retarray->offset = 0;
|
||||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||||
}
|
}
|
||||||
else if (unlikely (compile_options.bounds_check))
|
else if (unlikely (compile_options.bounds_check))
|
||||||
{
|
{
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_c16 (retarray, array, value, pdim, back);
|
findloc1_c16 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_c16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_c4 (retarray, array, value, pdim, back);
|
findloc1_c4 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_c4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_c8 (retarray, array, value, pdim, back);
|
findloc1_c8 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_c8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_i1 (retarray, array, value, pdim, back);
|
findloc1_i1 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_i1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_i16 (retarray, array, value, pdim, back);
|
findloc1_i16 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_i16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_i2 (retarray, array, value, pdim, back);
|
findloc1_i2 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_i2 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_i4 (retarray, array, value, pdim, back);
|
findloc1_i4 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_i4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_i8 (retarray, array, value, pdim, back);
|
findloc1_i8 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_i8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_r16 (retarray, array, value, pdim, back);
|
findloc1_r16 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_r16 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_r4 (retarray, array, value, pdim, back);
|
findloc1_r4 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_r4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -103,7 +103,7 @@ findloc1_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -291,7 +291,7 @@ mfindloc1_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_r8 (retarray, array, value, pdim, back);
|
findloc1_r8 (retarray, array, value, pdim, back);
|
||||||
return;
|
return;
|
||||||
|
|
@ -464,7 +464,7 @@ sfindloc1_r8 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -105,7 +105,7 @@ findloc1_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -293,7 +293,7 @@ mfindloc1_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -409,7 +409,7 @@ sfindloc1_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_s1 (retarray, array, value, pdim, back, len_array, len_value);
|
findloc1_s1 (retarray, array, value, pdim, back, len_array, len_value);
|
||||||
return;
|
return;
|
||||||
|
|
@ -466,7 +466,7 @@ sfindloc1_s1 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -105,7 +105,7 @@ findloc1_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -293,7 +293,7 @@ mfindloc1_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
@ -409,7 +409,7 @@ sfindloc1_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
bool continue_loop;
|
bool continue_loop;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
findloc1_s4 (retarray, array, value, pdim, back, len_array, len_value);
|
findloc1_s4 (retarray, array, value, pdim, back, len_array, len_value);
|
||||||
return;
|
return;
|
||||||
|
|
@ -466,7 +466,7 @@ sfindloc1_s4 (gfc_array_index_type * const restrict retarray,
|
||||||
|
|
||||||
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
alloc_size = GFC_DESCRIPTOR_STRIDE(retarray,rank-1) * extent[rank-1];
|
||||||
|
|
||||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||||
if (alloc_size == 0)
|
if (alloc_size == 0)
|
||||||
{
|
{
|
||||||
/* Make sure we have a zero-sized array. */
|
/* Make sure we have a zero-sized array. */
|
||||||
|
|
|
||||||
|
|
@ -145,7 +145,7 @@ sfindloc2_s1 (gfc_array_s1 * const restrict array,
|
||||||
GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
||||||
gfc_charlen_type len_value)
|
gfc_charlen_type len_value)
|
||||||
{
|
{
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
return findloc2_s1 (array, value, back, len_array, len_value);
|
return findloc2_s1 (array, value, back, len_array, len_value);
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -145,7 +145,7 @@ sfindloc2_s4 (gfc_array_s4 * const restrict array,
|
||||||
GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
GFC_LOGICAL_4 back, gfc_charlen_type len_array,
|
||||||
gfc_charlen_type len_value)
|
gfc_charlen_type len_value)
|
||||||
{
|
{
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
return findloc2_s4 (array, value, back, len_array, len_value);
|
return findloc2_s4 (array, value, back, len_array, len_value);
|
||||||
}
|
}
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miall_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iall_i1 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iall_i1 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iall_i1 (retarray, array, pdim, back);
|
iall_i1 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iall_i16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iall_i16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iall_i16 (retarray, array, pdim, back);
|
iall_i16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iall_i2 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iall_i2 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iall_i2 (retarray, array, pdim, back);
|
iall_i2 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iall_i4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iall_i4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iall_i4 (retarray, array, pdim, back);
|
iall_i4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iall_i8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iall_i8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iall_i8 (retarray, array, pdim, back);
|
iall_i8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iany_i1 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iany_i1 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iany_i1 (retarray, array, pdim, back);
|
iany_i1 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iany_i16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iany_i16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iany_i16 (retarray, array, pdim, back);
|
iany_i16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iany_i2 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iany_i2 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iany_i2 (retarray, array, pdim, back);
|
iany_i2 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iany_i4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iany_i4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iany_i4 (retarray, array, pdim, back);
|
iany_i4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iany_i8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iany_i8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iany_i8 (retarray, array, pdim, back);
|
iany_i8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iparity_i1 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iparity_i1 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iparity_i1 (retarray, array, pdim, back);
|
iparity_i1 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iparity_i16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iparity_i16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iparity_i16 (retarray, array, pdim, back);
|
iparity_i16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iparity_i2 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iparity_i2 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iparity_i2 (retarray, array, pdim, back);
|
iparity_i2 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iparity_i4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iparity_i4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iparity_i4 (retarray, array, pdim, back);
|
iparity_i4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -220,6 +220,16 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
iparity_i8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
iparity_i8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -399,7 +409,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
iparity_i8 (retarray, array, pdim, back);
|
iparity_i8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_i1 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_i1 (retarray, array, back);
|
maxloc0_16_i1 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_i16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_i16 (retarray, array, back);
|
maxloc0_16_i16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_i2 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_i2 (retarray, array, back);
|
maxloc0_16_i2 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_i4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_i4 (retarray, array, back);
|
maxloc0_16_i4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_i8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_i8 (retarray, array, back);
|
maxloc0_16_i8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_r10 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_r10 (retarray, array, back);
|
maxloc0_16_r10 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_r16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_r16 (retarray, array, back);
|
maxloc0_16_r16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_r4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_r4 (retarray, array, back);
|
maxloc0_16_r4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_16_r8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_16_r8 (retarray, array, back);
|
maxloc0_16_r8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_16_s1 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_16_s1 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_16_s1 (retarray, array, back, len);
|
maxloc0_16_s1 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_16_s4 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_16_s4 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_16 *dest;
|
GFC_INTEGER_16 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_16_s4 (retarray, array, back, len);
|
maxloc0_16_s4 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_i1 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_i1 (retarray, array, back);
|
maxloc0_4_i1 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_i16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_i16 (retarray, array, back);
|
maxloc0_4_i16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_i2 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_i2 (retarray, array, back);
|
maxloc0_4_i2 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_i4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_i4 (retarray, array, back);
|
maxloc0_4_i4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_i8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_i8 (retarray, array, back);
|
maxloc0_4_i8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_r10 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_r10 (retarray, array, back);
|
maxloc0_4_r10 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_r16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_r16 (retarray, array, back);
|
maxloc0_4_r16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_r4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_r4 (retarray, array, back);
|
maxloc0_4_r4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_4_r8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_4_r8 (retarray, array, back);
|
maxloc0_4_r8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_4_s1 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_4_s1 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_4_s1 (retarray, array, back, len);
|
maxloc0_4_s1 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_4_s4 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_4_s4 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_4 *dest;
|
GFC_INTEGER_4 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_4_s4 (retarray, array, back, len);
|
maxloc0_4_s4 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_i1 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_i1 (retarray, array, back);
|
maxloc0_8_i1 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_i16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_i16 (retarray, array, back);
|
maxloc0_8_i16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_i2 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_i2 (retarray, array, back);
|
maxloc0_8_i2 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_i4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_i4 (retarray, array, back);
|
maxloc0_8_i4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_i8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_i8 (retarray, array, back);
|
maxloc0_8_i8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_r10 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_r10 (retarray, array, back);
|
maxloc0_8_r10 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_r16 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_r16 (retarray, array, back);
|
maxloc0_8_r16 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_r4 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_r4 (retarray, array, back);
|
maxloc0_8_r4 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
maxloc0_8_r8 (retarray, array, back);
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -369,7 +376,7 @@ smaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
maxloc0_8_r8 (retarray, array, back);
|
maxloc0_8_r8 (retarray, array, back);
|
||||||
return;
|
return;
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_8_s1 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_8_s1 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_8_s1 (retarray, array, back, len);
|
maxloc0_8_s1 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -174,6 +174,16 @@ mmaxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc0_8_s4 (retarray, array, back, len);
|
||||||
|
#else
|
||||||
|
maxloc0_8_s4 (retarray, array, len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
rank = GFC_DESCRIPTOR_RANK (array);
|
rank = GFC_DESCRIPTOR_RANK (array);
|
||||||
if (rank <= 0)
|
if (rank <= 0)
|
||||||
runtime_error ("Rank of array needs to be > 0");
|
runtime_error ("Rank of array needs to be > 0");
|
||||||
|
|
@ -304,7 +314,7 @@ smaxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
|
||||||
index_type n;
|
index_type n;
|
||||||
GFC_INTEGER_8 *dest;
|
GFC_INTEGER_8 *dest;
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc0_8_s4 (retarray, array, back, len);
|
maxloc0_8_s4 (retarray, array, back, len);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_i1 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_i1 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_i1 (retarray, array, pdim, back);
|
maxloc1_16_i1 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_i16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_i16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_i16 (retarray, array, pdim, back);
|
maxloc1_16_i16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_i2 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_i2 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_i2 (retarray, array, pdim, back);
|
maxloc1_16_i2 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_i4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_i4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_i4 (retarray, array, pdim, back);
|
maxloc1_16_i4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_i8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_i8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_i8 (retarray, array, pdim, back);
|
maxloc1_16_i8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_r10 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_r10 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_r10 (retarray, array, pdim, back);
|
maxloc1_16_r10 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_r16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_r16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_r16 (retarray, array, pdim, back);
|
maxloc1_16_r16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_r4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_r4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_r4 (retarray, array, pdim, back);
|
maxloc1_16_r4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_r8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_16_r8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_r8 (retarray, array, pdim, back);
|
maxloc1_16_r8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -241,6 +241,16 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_s1 (retarray, array, pdim, back, string_len);
|
||||||
|
#else
|
||||||
|
maxloc1_16_s1 (retarray, array, pdim, string_len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -436,7 +446,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_s1 (retarray, array, pdim, back, string_len);
|
maxloc1_16_s1 (retarray, array, pdim, back, string_len);
|
||||||
|
|
|
||||||
|
|
@ -241,6 +241,16 @@ mmaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_16_s4 (retarray, array, pdim, back, string_len);
|
||||||
|
#else
|
||||||
|
maxloc1_16_s4 (retarray, array, pdim, string_len);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -436,7 +446,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_16_s4 (retarray, array, pdim, back, string_len);
|
maxloc1_16_s4 (retarray, array, pdim, back, string_len);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_i1 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_i1 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_i1 (retarray, array, pdim, back);
|
maxloc1_4_i1 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_i16 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_i16 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_i16 (retarray, array, pdim, back);
|
maxloc1_4_i16 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_i2 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_i2 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_i2 (retarray, array, pdim, back);
|
maxloc1_4_i2 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_i4 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_i4 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_i4 (retarray, array, pdim, back);
|
maxloc1_4_i4 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_i8 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_i8 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_i8 (retarray, array, pdim, back);
|
maxloc1_4_i8 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type mdelta;
|
index_type mdelta;
|
||||||
int mask_kind;
|
int mask_kind;
|
||||||
|
|
||||||
|
if (mask == NULL)
|
||||||
|
{
|
||||||
|
#ifdef HAVE_BACK_ARG
|
||||||
|
maxloc1_4_r10 (retarray, array, pdim, back);
|
||||||
|
#else
|
||||||
|
maxloc1_4_r10 (retarray, array, pdim);
|
||||||
|
#endif
|
||||||
|
return;
|
||||||
|
}
|
||||||
|
|
||||||
dim = (*pdim) - 1;
|
dim = (*pdim) - 1;
|
||||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||||
|
|
||||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
||||||
index_type dim;
|
index_type dim;
|
||||||
|
|
||||||
|
|
||||||
if (*mask)
|
if (mask == NULL || *mask)
|
||||||
{
|
{
|
||||||
#ifdef HAVE_BACK_ARG
|
#ifdef HAVE_BACK_ARG
|
||||||
maxloc1_4_r10 (retarray, array, pdim, back);
|
maxloc1_4_r10 (retarray, array, pdim, back);
|
||||||
|
|
|
||||||
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue