diff options
Diffstat (limited to 'libgfortran/m4/ifunction_logical.m4')
| -rw-r--r-- | libgfortran/m4/ifunction_logical.m4 | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/libgfortran/m4/ifunction_logical.m4 b/libgfortran/m4/ifunction_logical.m4 index d1d2dd09c44..e72f1d8a8f7 100644 --- a/libgfortran/m4/ifunction_logical.m4 +++ b/libgfortran/m4/ifunction_logical.m4 @@ -130,7 +130,7 @@ name`'rtype_qual`_'atype_code (rtype * const restrict retarray, count[n] = 0; dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); if (extent[n] <= 0) - len = 0; + return; } base = array->data; |