diff options
Diffstat (limited to 'libgfortran/generated/norm2_r4.c')
| -rw-r--r-- | libgfortran/generated/norm2_r4.c | 3 |
1 files changed, 1 insertions, 2 deletions
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c index a86f76e0ac2d..f2c5c8c83856 100644 --- a/libgfortran/generated/norm2_r4.c +++ b/libgfortran/generated/norm2_r4.c @@ -33,7 +33,6 @@ see the files COPYING3 and COPYING.RUNTIME respectively. If not, see #if defined (HAVE_GFC_REAL_4) && defined (HAVE_GFC_REAL_4) && defined (HAVE_SQRTF) && defined (HAVE_FABSF) #define MATHFUNC(funcname) funcname ## f -#define BUILTINMATHFUNC(funcname) MATHFUNC(funcname) extern void norm2_r4 (gfc_array_r4 * const restrict, @@ -133,7 +132,7 @@ norm2_r4 (gfc_array_r4 * const restrict retarray, count[n] = 0; dstride[n] = GFC_DESCRIPTOR_STRIDE(retarray,n); if (extent[n] <= 0) - len = 0; + return; } base = array->data; |