From 56934747f441708f5eac0bbd85ea17512f3fdb3f Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Wed, 9 Sep 2015 10:11:37 +0000
Subject: [PATCH] psblas3:  test/fileread/df_sample.f90 Fix bad use of keyword
 argument.

---
 test/fileread/df_sample.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/fileread/df_sample.f90 b/test/fileread/df_sample.f90
index c246b852..d39cbbeb 100644
--- 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