From b3b8506ef0ce1200cd1f50455ff4a81deb8bd74e Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Wed, 6 May 2020 20:44:08 -0400
Subject: Some minor memory safety improvements

---
 render.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'render.f90')

diff --git a/render.f90 b/render.f90
index 0045c22..d723467 100644
--- a/render.f90
+++ b/render.f90
@@ -212,7 +212,7 @@ contains
         do while(w > r%max_width)
         
             endpos = endpos - 1
-            do while(text(endpos:endpos) /= ' ' .and. text(endpos:endpos) /= '-')
+            do while(text(endpos:endpos) /= ' ' .and. text(endpos:endpos) /= '-' .and. endpos > my_start)
                 endpos = endpos - 1
             end do
             
-- 
cgit v1.2.3