Fix: blck was no longer used.

19 years ago · 64e2230593
parent 5307017c9d
commit 64e2230593
1 changed files with 1 additions and 8 deletions
--- a/test/Fileread/mat_dist.f90
+++ b/test/Fileread/mat_dist.f90
@ -802,14 +802,7 @@ contains
      call psb_errpush(info,name,a_err=ch_err)
      goto 9999
    end if
-    call psb_sp_free(blck,info)
+2
    if(info/=0)then
      info=4010
      ch_err='sp_free'
      call psb_errpush(info,name,a_err=ch_err)
      goto 9999
    end if
    deallocate(iwork)   
    call psb_erractionrestore(err_act)