aboutsummaryrefslogtreecommitdiffstats
path: root/gcc-4.9/libgfortran/m4/bessel.m4
diff options
context:
space:
mode:
Diffstat (limited to 'gcc-4.9/libgfortran/m4/bessel.m4')
-rw-r--r--gcc-4.9/libgfortran/m4/bessel.m42
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc-4.9/libgfortran/m4/bessel.m4 b/gcc-4.9/libgfortran/m4/bessel.m4
index 36ffd3356..6a865448e 100644
--- a/gcc-4.9/libgfortran/m4/bessel.m4
+++ b/gcc-4.9/libgfortran/m4/bessel.m4
@@ -163,7 +163,7 @@ bessel_yn_r'rtype_kind` ('rtype` * const restrict ret, int n1, int n2,
x2rev = GFC_REAL_'rtype_kind`_LITERAL(2.)/x;
- for (i = 2; i <= n1+n2; i++)
+ for (i = 2; i <= n2 - n1; i++)
{
#if defined('rtype_name`_INFINITY)
if (unlikely (last2 == -'rtype_name`_INFINITY))