diff --git a/test/pargen/psb_d_pde2d.f90 b/test/pargen/psb_d_pde2d.F90
similarity index 99%
rename from test/pargen/psb_d_pde2d.f90
rename to test/pargen/psb_d_pde2d.F90
index 620acd16..a5668c7d 100644
--- a/test/pargen/psb_d_pde2d.f90
+++ b/test/pargen/psb_d_pde2d.F90
@@ -314,7 +314,11 @@ contains
 
       ! A nifty MPI function will split the process list
       npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
       call mpi_dims_create(np,2,npdims,info)
+#endif
       npx = npdims(1)
       npy = npdims(2)
 
diff --git a/test/pargen/psb_d_pde3d.f90 b/test/pargen/psb_d_pde3d.F90
similarity index 99%
rename from test/pargen/psb_d_pde3d.f90
rename to test/pargen/psb_d_pde3d.F90
index fd0d0530..c56f2427 100644
--- a/test/pargen/psb_d_pde3d.f90
+++ b/test/pargen/psb_d_pde3d.F90
@@ -330,7 +330,11 @@ contains
 
       ! A nifty MPI function will split the process list
       npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
       call mpi_dims_create(np,3,npdims,info)
+#endif
       npx = npdims(1)
       npy = npdims(2)
       npz = npdims(3)
diff --git a/test/pargen/psb_s_pde2d.f90 b/test/pargen/psb_s_pde2d.F90
similarity index 99%
rename from test/pargen/psb_s_pde2d.f90
rename to test/pargen/psb_s_pde2d.F90
index 9b9ef3a4..ee2f103c 100644
--- a/test/pargen/psb_s_pde2d.f90
+++ b/test/pargen/psb_s_pde2d.F90
@@ -314,7 +314,11 @@ contains
 
       ! A nifty MPI function will split the process list
       npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
       call mpi_dims_create(np,2,npdims,info)
+#endif
       npx = npdims(1)
       npy = npdims(2)
 
diff --git a/test/pargen/psb_s_pde3d.f90 b/test/pargen/psb_s_pde3d.F90
similarity index 99%
rename from test/pargen/psb_s_pde3d.f90
rename to test/pargen/psb_s_pde3d.F90
index 631633d9..975837fe 100644
--- a/test/pargen/psb_s_pde3d.f90
+++ b/test/pargen/psb_s_pde3d.F90
@@ -330,7 +330,11 @@ contains
 
       ! A nifty MPI function will split the process list
       npdims = 0
+#if defined(SERIAL_MPI)
+      npdims = 1
+#else
       call mpi_dims_create(np,3,npdims,info)
+#endif
       npx = npdims(1)
       npy = npdims(2)
       npz = npdims(3)