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
243 changed files with 2829 additions and 360 deletions
|
|
@ -57,7 +57,7 @@ findloc0_c16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_c16 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_c4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_c4 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_c8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_c8 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_c8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_i1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_i1 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_i16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_i16 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_i2 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_i2 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i2 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_i4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_i4 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_i8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_i8 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_i8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_r16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_r16 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r16 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_r4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_r4 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -57,7 +57,7 @@ findloc0_r8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -196,7 +196,7 @@ mfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -342,7 +342,7 @@ sfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_r8 (retarray, array, value, back);
|
||||
return;
|
||||
|
|
@ -358,7 +358,7 @@ sfindloc0_r8 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@ findloc0_s1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -199,7 +199,7 @@ mfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -347,7 +347,7 @@ sfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_s1 (retarray, array, value, back, len_array, len_value);
|
||||
return;
|
||||
|
|
@ -363,7 +363,7 @@ sfindloc0_s1 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -58,7 +58,7 @@ findloc0_s4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -199,7 +199,7 @@ mfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
retarray->offset = 0;
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (rank, sizeof (index_type));
|
||||
}
|
||||
else
|
||||
{
|
||||
|
|
@ -347,7 +347,7 @@ sfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type * restrict dest;
|
||||
index_type n;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc0_s4 (retarray, array, value, back, len_array, len_value);
|
||||
return;
|
||||
|
|
@ -363,7 +363,7 @@ sfindloc0_s4 (gfc_array_index_type * const restrict retarray,
|
|||
GFC_DIMENSION_SET(retarray->dim[0], 0, rank-1, 1);
|
||||
retarray->dtype.rank = 1;
|
||||
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))
|
||||
{
|
||||
|
|
|
|||
|
|
@ -103,7 +103,7 @@ findloc1_c16 (gfc_array_index_type * const restrict retarray,
|
|||
|
||||
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)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_c16 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_c4 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_c8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_c8 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i1 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_i1 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_i16 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i2 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_i2 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_i4 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_i8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_i8 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r16 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_r16 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_r4 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -407,7 +407,7 @@ sfindloc1_r8 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_r8 (retarray, array, value, pdim, back);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -409,7 +409,7 @@ sfindloc1_s1 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_s1 (retarray, array, value, pdim, back, len_array, len_value);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* Make sure we have a zero-sized array. */
|
||||
|
|
@ -409,7 +409,7 @@ sfindloc1_s4 (gfc_array_index_type * const restrict retarray,
|
|||
index_type dim;
|
||||
bool continue_loop;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
findloc1_s4 (retarray, array, value, pdim, back, len_array, len_value);
|
||||
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];
|
||||
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (GFC_INTEGER_4));
|
||||
retarray->base_addr = xmallocarray (alloc_size, sizeof (index_type));
|
||||
if (alloc_size == 0)
|
||||
{
|
||||
/* 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_charlen_type len_value)
|
||||
{
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
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_charlen_type len_value)
|
||||
{
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
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;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siall_i1 (gfc_array_i1 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iall_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miall_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siall_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iall_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miall_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siall_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iall_i2 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miall_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siall_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iall_i4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miall_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siall_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iall_i8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miany_i1 (gfc_array_i1 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siany_i1 (gfc_array_i1 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iany_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miany_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siany_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iany_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miany_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siany_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iany_i2 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miany_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siany_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iany_i4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miany_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siany_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iany_i8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miparity_i1 (gfc_array_i1 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siparity_i1 (gfc_array_i1 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iparity_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miparity_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siparity_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iparity_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miparity_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siparity_i2 (gfc_array_i2 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iparity_i2 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miparity_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siparity_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iparity_i4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -220,6 +220,16 @@ miparity_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -399,7 +409,7 @@ siparity_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
iparity_i8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_i1 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_i1 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_i16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_i16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_i2 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_i2 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_i4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_i4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_i8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_i8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_r10 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_r10 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_r16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_r16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_r4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_r4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_16_r8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_16_r8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_16_s1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_16_s1 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_16_s4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_16 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_16_s4 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_i1 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_i1 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_i16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_i16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_i2 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_i2 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_i4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_i4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_i8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_i8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_r10 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_r10 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_r16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_r16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_r4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_r4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_4_r8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_4_r8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_4_s1 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_4_s1 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_4_s4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_4 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_4_s4 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_i1 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_i1 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_i16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_i16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i2 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_i2 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_i2 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i4 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_i4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_i4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_i8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_i8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_i8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r10 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_r10 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_r10 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r16 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_r16 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_r16 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r4 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_r4 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_r4 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -198,6 +198,13 @@ mmaxloc0_8_r8 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
int mask_kind;
|
||||
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
maxloc0_8_r8 (retarray, array, back);
|
||||
return;
|
||||
}
|
||||
|
||||
rank = GFC_DESCRIPTOR_RANK (array);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
maxloc0_8_r8 (retarray, array, back);
|
||||
return;
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_8_s1 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_8_s1 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -174,6 +174,16 @@ mmaxloc0_8_s4 (gfc_array_i8 * const restrict retarray,
|
|||
index_type n;
|
||||
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);
|
||||
if (rank <= 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;
|
||||
GFC_INTEGER_8 *dest;
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc0_8_s4 (retarray, array, back, len);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i2 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_i2 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_i4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_i8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_i8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r10 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_r10 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r16 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_r16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_r4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_16_r8 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_16_r8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -241,6 +241,16 @@ mmaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -436,7 +446,7 @@ smaxloc1_16_s1 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
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;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -436,7 +446,7 @@ smaxloc1_16_s4 (gfc_array_i16 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
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;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i1 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i2 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_i2 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_i4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_i8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_i8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
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;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_r10 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r10 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r16 (retarray, array, pdim, back);
|
||||
#else
|
||||
maxloc1_4_r16 (retarray, array, pdim);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_r16 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r4 (retarray, array, pdim, back);
|
||||
#else
|
||||
maxloc1_4_r4 (retarray, array, pdim);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_r4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r4 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r8 (retarray, array, pdim, back);
|
||||
#else
|
||||
maxloc1_4_r8 (retarray, array, pdim);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_4_r8 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_r8 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -241,6 +241,16 @@ mmaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_s1 (retarray, array, pdim, back, string_len);
|
||||
#else
|
||||
maxloc1_4_s1 (retarray, array, pdim, string_len);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -436,7 +446,7 @@ smaxloc1_4_s1 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_s1 (retarray, array, pdim, back, string_len);
|
||||
|
|
|
|||
|
|
@ -241,6 +241,16 @@ mmaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_s4 (retarray, array, pdim, back, string_len);
|
||||
#else
|
||||
maxloc1_4_s4 (retarray, array, pdim, string_len);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -436,7 +446,7 @@ smaxloc1_4_s4 (gfc_array_i4 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_4_s4 (retarray, array, pdim, back, string_len);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_8_i1 (retarray, array, pdim, back);
|
||||
#else
|
||||
maxloc1_8_i1 (retarray, array, pdim);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_8_i1 (gfc_array_i8 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_8_i1 (retarray, array, pdim, back);
|
||||
|
|
|
|||
|
|
@ -248,6 +248,16 @@ mmaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
index_type mdelta;
|
||||
int mask_kind;
|
||||
|
||||
if (mask == NULL)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_8_i16 (retarray, array, pdim, back);
|
||||
#else
|
||||
maxloc1_8_i16 (retarray, array, pdim);
|
||||
#endif
|
||||
return;
|
||||
}
|
||||
|
||||
dim = (*pdim) - 1;
|
||||
rank = GFC_DESCRIPTOR_RANK (array) - 1;
|
||||
|
||||
|
|
@ -470,7 +480,7 @@ smaxloc1_8_i16 (gfc_array_i8 * const restrict retarray,
|
|||
index_type dim;
|
||||
|
||||
|
||||
if (*mask)
|
||||
if (mask == NULL || *mask)
|
||||
{
|
||||
#ifdef HAVE_BACK_ARG
|
||||
maxloc1_8_i16 (retarray, array, pdim, back);
|
||||
|
|
|
|||
Some files were not shown because too many files have changed in this diff Show more
Loading…
Add table
Add a link
Reference in a new issue