From 477c626d509904d8efa294f2f738ab969f05516f Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 27 Mar 2013 20:00:41 -0400
Subject: [PATCH] Fix upper_case for letter 'z' (id 122).

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

diff --git a/src/string.F90 b/src/string.F90
index d1a5e68d74..3f0c87219a 100644
--- a/src/string.F90
+++ b/src/string.F90
@@ -179,7 +179,7 @@ contains
 
     do i = 1, len(word)
       ic = ichar(word(i:i))
-      if (ic >= 97 .and. ic < 122) word(i:i) = char(ic-32)
+      if (ic >= 97 .and. ic <= 122) word(i:i) = char(ic-32)
     end do
 
   end subroutine upper_case