From f5b1661e144ad3a38b6cabc50dc6f20620de1a62 Mon Sep 17 00:00:00 2001
From: sfilippone <filippone.salvatore@gmail.com>
Date: Mon, 24 Mar 2025 09:03:22 +0100
Subject: [PATCH] Fix fileread getp for single precision data

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

diff --git a/test/fileread/getp.f90 b/test/fileread/getp.f90
index 82bef762..db8207b6 100644
--- a/test/fileread/getp.f90
+++ b/test/fileread/getp.f90
@@ -198,7 +198,7 @@ contains
         read(inp_unit,*) kmethd
         read(inp_unit,*) ptype
         read(inp_unit,*) afmt
-        read(inp_unit,*) ipart
+        read(inp_unit,*) part
 
 
         call psb_bcast(ctxt,mtrx_file)