diff options
Diffstat (limited to 'libgfortran/generated/product_r10.c')
| -rw-r--r-- | libgfortran/generated/product_r10.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/generated/product_r10.c b/libgfortran/generated/product_r10.c index ae86e720497..b93929d95db 100644 --- a/libgfortran/generated/product_r10.c +++ b/libgfortran/generated/product_r10.c @@ -128,7 +128,7 @@ product_r10 (gfc_array_r10 * const restrict retarray, count[n] = 0; dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); if (extent[n] <= 0) - len = 0; + return; } base = array->data; |