From c9d03810db1db5e7cedbd0d79d2c87db66afe16f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sun, 25 Jan 2015 12:12:22 +0000
Subject: [PATCH] *** empty log message ***

---
 base/modules/psb_error_mod.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/base/modules/psb_error_mod.F90 b/base/modules/psb_error_mod.F90
index 11f63a0b..ebdc1e50 100644
--- a/base/modules/psb_error_mod.F90
+++ b/base/modules/psb_error_mod.F90
@@ -1038,7 +1038,7 @@ contains
     call psb_ach_errmsg(achmsg,err_c, r_name, i_e_d, a_e_d,me)
     
     do i=1,size(achmsg)
-      write(iunit,'(a)'),trim(achmsg(i))
+      write(iunit,'(a)') trim(achmsg(i))
     end do
 
   end subroutine psb_errmsg