summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-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