summaryrefslogtreecommitdiff
path: root/libgfortran/generated/norm2_r4.c
diff options
context:
space:
mode:
Diffstat (limited to 'libgfortran/generated/norm2_r4.c')
-rw-r--r--libgfortran/generated/norm2_r4.c4
1 files changed, 2 insertions, 2 deletions
diff --git a/libgfortran/generated/norm2_r4.c b/libgfortran/generated/norm2_r4.c
index 9d9d936fb373..0482b16ca2d1 100644
--- a/libgfortran/generated/norm2_r4.c
+++ b/libgfortran/generated/norm2_r4.c
@@ -187,9 +187,9 @@ norm2_r4 (gfc_array_r4 * const restrict retarray,
base -= sstride[n] * extent[n];
dest -= dstride[n] * extent[n];
n++;
- if (n == rank)
+ if (n >= rank)
{
- /* Break out of the look. */
+ /* Break out of the loop. */
continue_loop = 0;
break;
}