diff options
Diffstat (limited to 'libgfortran/generated/minloc2_8_s4.c')
-rw-r--r-- | libgfortran/generated/minloc2_8_s4.c | 21 |
1 files changed, 14 insertions, 7 deletions
diff --git a/libgfortran/generated/minloc2_8_s4.c b/libgfortran/generated/minloc2_8_s4.c index c94bc74..9b40c91 100644 --- a/libgfortran/generated/minloc2_8_s4.c +++ b/libgfortran/generated/minloc2_8_s4.c @@ -26,6 +26,7 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #include "libgfortran.h" #include <stdlib.h> #include <string.h> +#include <assert.h> #if defined (HAVE_GFC_INTEGER_4) && defined (HAVE_GFC_INTEGER_8) @@ -38,11 +39,13 @@ compare_fcn (const GFC_INTEGER_4 *a, const GFC_INTEGER_4 *b, gfc_charlen_type n) return memcmp_char4 (a, b, n); } -extern GFC_INTEGER_8 minloc2_8_s4 (gfc_array_s4 * const restrict, gfc_charlen_type); +extern GFC_INTEGER_8 minloc2_8_s4 (gfc_array_s4 * const restrict, GFC_LOGICAL_4 back, + gfc_charlen_type); export_proto(minloc2_8_s4); GFC_INTEGER_8 -minloc2_8_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len) +minloc2_8_s4 (gfc_array_s4 * const restrict array, GFC_LOGICAL_4 back, + gfc_charlen_type len) { index_type ret; index_type sstride; @@ -51,6 +54,7 @@ minloc2_8_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len) const GFC_INTEGER_4 *maxval; index_type i; + assert(back == 0); extent = GFC_DESCRIPTOR_EXTENT(array,0); if (extent <= 0) return 0; @@ -73,12 +77,14 @@ minloc2_8_s4 (gfc_array_s4 * const restrict array, gfc_charlen_type len) } extern GFC_INTEGER_8 mminloc2_8_s4 (gfc_array_s4 * const restrict, - gfc_array_l1 *const restrict mask, gfc_charlen_type); + gfc_array_l1 *const restrict mask, GFC_LOGICAL_4 back, + gfc_charlen_type); export_proto(mminloc2_8_s4); GFC_INTEGER_8 mminloc2_8_s4 (gfc_array_s4 * const restrict array, - gfc_array_l1 * const restrict mask, gfc_charlen_type len) + gfc_array_l1 * const restrict mask, GFC_LOGICAL_4 back, + gfc_charlen_type len) { index_type ret; index_type sstride; @@ -90,6 +96,7 @@ mminloc2_8_s4 (gfc_array_s4 * const restrict array, int mask_kind; index_type mstride; + assert (back == 0); extent = GFC_DESCRIPTOR_EXTENT(array,0); if (extent <= 0) return 0; @@ -139,15 +146,15 @@ mminloc2_8_s4 (gfc_array_s4 * const restrict array, } extern GFC_INTEGER_8 sminloc2_8_s4 (gfc_array_s4 * const restrict, - GFC_LOGICAL_4 *mask, gfc_charlen_type); + GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type); export_proto(sminloc2_8_s4); GFC_INTEGER_8 sminloc2_8_s4 (gfc_array_s4 * const restrict array, - GFC_LOGICAL_4 *mask, gfc_charlen_type len) + GFC_LOGICAL_4 *mask, GFC_LOGICAL_4 back, gfc_charlen_type len) { if (mask) - return minloc2_8_s4 (array, len); + return minloc2_8_s4 (array, len, back); else return 0; } |