aboutsummaryrefslogtreecommitdiff
path: root/libgfortran/generated/product_i16.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/product_i16.c')
-rw-r--r--libgfortran/generated/product_i16.c11
1 files changed, 11 insertions, 0 deletions
diff --git a/libgfortran/generated/product_i16.c b/libgfortran/generated/product_i16.c
index 58c51fb..f23890e 100644
--- a/libgfortran/generated/product_i16.c
+++ b/libgfortran/generated/product_i16.c
@@ -51,6 +51,10 @@ product_i16 (gfc_array_i16 * const restrict retarray,
index_type dim;
int continue_loop;
+#ifdef HAVE_BACK_ARG
+ assert(back == 0);
+#endif
+
/* Make dim zero based to avoid confusion. */
rank = GFC_DESCRIPTOR_RANK (array) - 1;
dim = (*pdim) - 1;
@@ -218,6 +222,9 @@ mproduct_i16 (gfc_array_i16 * const restrict retarray,
index_type mdelta;
int mask_kind;
+#ifdef HAVE_BACK_ARG
+ assert (back == 0);
+#endif
dim = (*pdim) - 1;
rank = GFC_DESCRIPTOR_RANK (array) - 1;
@@ -399,7 +406,11 @@ sproduct_i16 (gfc_array_i16 * const restrict retarray,
if (*mask)
{
+#ifdef HAVE_BACK_ARG
+ product_i16 (retarray, array, pdim, back);
+#else
product_i16 (retarray, array, pdim);
+#endif
return;
}
/* Make dim zero based to avoid confusion. */