From 17ba1533f5fb055b80eb1f6788597939e92acc55 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Fri, 3 Sep 2010 08:01:52 +0000
Subject: [PATCH] *** empty log message ***

---
 tests/pdegen/ppde.f90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/tests/pdegen/ppde.f90 b/tests/pdegen/ppde.f90
index 5d9d5202..5919341e 100644
--- a/tests/pdegen/ppde.f90
+++ b/tests/pdegen/ppde.f90
@@ -464,7 +464,7 @@ contains
     m   = idim*idim*idim
     n   = m
     nnz = ((n*9)/(np))
-    if(iam == psb_root_) write(0,'("Generating Matrix (size=",i0,")...")')n
+    if(iam == psb_root_) write(*,'("Generating Matrix (size=",i0,")...")')n
 
     !
     ! Using a simple BLOCK distribution.