From 5b77fcad4e52e3c7920d0dced203466680c0b9b4 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Tue, 17 Mar 2015 12:46:48 +0000
Subject: [PATCH] Summary: psblas-3.3-maint: fix syntax error in error_mod

---
 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