summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2021-12-29 20:57:48 -0500
committerJeffrey Armstrong <jeff@approximatrix.com>2021-12-29 20:57:48 -0500
commit507aec47d58e78458c8a6a2f5e5378a029160711 (patch)
tree003d23930d61fb5e215884d81b2678519e791f13
parentf3ebef8119973bcb906f2a597e041ef7d5afab0c (diff)
downloadfilo-appgraphics.tar.gz
filo-appgraphics.zip
Fixed appending new characters at end of line.appgraphics
-rw-r--r--filo.f903
1 files changed, 1 insertions, 2 deletions
diff --git a/filo.f90 b/filo.f90
index c358aa6..96e566e 100644
--- a/filo.f90
+++ b/filo.f90
@@ -221,7 +221,7 @@ contains
if(at > er%size()) then
padlen = at - er%size()
- allocate(ctmp(er%size() + padlen + 1))
+ allocate(ctmp(er%size() + padlen))
ctmp(1:er%size()) = er%chars
if(padlen > 0) then
ctmp(er%size()+1:er%size()+padlen) = ' '
@@ -237,7 +237,6 @@ contains
ctmp(at) = c
call move_alloc(ctmp, er%chars)
-
E%dirty = E%dirty + 1
end subroutine editorRowInsertChar