From fc05f7d92580ef12f24bf61aaa7d52c348a36e36 Mon Sep 17 00:00:00 2001
From: Luke Ceddia <flukiluke@gmail.com>
Date: Thu, 11 Aug 2016 21:40:23 +1000
Subject: [PATCH] Fix parsing of corner-case negative exponents, such as
 1-(1+r) ^ -y

---
 source/qb64.bas | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/source/qb64.bas b/source/qb64.bas
index 16dbb22f4..f3c4a338b 100644
--- a/source/qb64.bas
+++ b/source/qb64.bas
@@ -17735,8 +17735,9 @@ FUNCTION fixoperationorder$ (savea$)
             IF pownegused THEN
                 b = 0
                 i = 0
-                DO WHILE i <= n
+                DO
                     i = i + 1
+                    IF i > n THEN EXIT DO
                     c = ASC(getelement(a$, i))
                     IF c = 41 OR c = 125 THEN b = b - 1
                     IF (c = 123 OR c = 125) AND b <> 0 THEN