psblas3:

test/fileread/df_sample.f90 Fix bad use of keyword argument.
9 years ago · 56934747f4
parent 866fcc02d0
commit 56934747f4
1 changed files with 1 additions and 1 deletions
--- a/test/fileread/df_sample.f90
+++ b/test/fileread/df_sample.f90
@ -152,7 +152,7 @@ program df_sample
      call psb_gelp('N',perm(1:m_problem),&
           & b_col_glob(1:m_problem),info)
      write(fnout,'(a,i3.3,a)') 'amat-',iam,'-gps.mtx'
-      call aux_a%print(fname=fnout)
+      call aux_a%print(fnout)
      write(fnout,'(a,i3.3,a)') 'rhs-',iam,'-gps.mtx'
      call mm_array_write(b_col_glob(1:m_problem),'GPS RHS',info,filename=fnout)
    else