From c74ee75a38e84cacfbbd007a33317b55c80a9630 Mon Sep 17 00:00:00 2001
From: Sterling Harper <sterlingmharper@gmail.com>
Date: Fri, 23 Jan 2015 23:58:42 -0500
Subject: [PATCH] Fixed output.F90 typo

---
 src/output.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/output.F90 b/src/output.F90
index 0026966717..739ab9c11e 100644
--- a/src/output.F90
+++ b/src/output.F90
@@ -216,7 +216,7 @@ contains
 
       i_start = 0
       do
-        if (length - i_start < line_wrap - 1) then
+        if (length - i_start < line_wrap + 1) then
           ! Remainder of message will fit on line
           write(ou, fmt='(1X,A)') message(i_start+1:length)
           exit