Summary: psblas-3.3-maint: fix syntax error in error_mod

11 years ago · 5b77fcad4e
parent a20cc0c160
commit 5b77fcad4e
1 changed files with 1 additions and 1 deletions
--- 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