diff --git a/test/Fileread/getp.f90 b/test/Fileread/getp.f90
index 5cf169cf..3f004274 100644
--- a/test/Fileread/getp.f90
+++ b/test/Fileread/getp.f90
@@ -122,7 +122,7 @@ CONTAINS
         call psb_bcast(ictxt,eps)
 
         write(*,'("Solving matrix       : ",a40)')mtrx_file      
-        write(*,'("Number of processors : ",i3)')nprow
+        write(*,'("Number of processors : ",i3)')np
         write(*,'("Data distribution    : ",i2)')ipart
         write(*,'("Preconditioner       : ",i2)')iprec
         if(iprec.gt.2) write(*,'("Overlapping levels   : ",i2)')novr