From 939fe439e46607054e62e4afbc34d2b8bf60f874 Mon Sep 17 00:00:00 2001
From: Salvatore Filippone <salvatore.filippone@cranfield.ac.uk>
Date: Sun, 24 Feb 2008 16:26:14 +0000
Subject: [PATCH] Fixed spurious call to geterrstatus in the wrong position.

---
 test/pargen/ppde.f90 | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/test/pargen/ppde.f90 b/test/pargen/ppde.f90
index 205467db..c251618e 100644
--- a/test/pargen/ppde.f90
+++ b/test/pargen/ppde.f90
@@ -105,10 +105,7 @@ program ppde
   integer            :: info
   character(len=20)  :: name,ch_err
 
-  if(psb_get_errstatus() /= 0) goto 9999
   info=0
-  name='pde90'
-  call psb_set_errverbosity(2)
 
 
   call psb_init(ictxt)
@@ -119,6 +116,9 @@ program ppde
     call psb_exit(ictxt)
     stop
   endif
+  if(psb_get_errstatus() /= 0) goto 9999
+  name='pde90'
+  call psb_set_errverbosity(2)
 
   !
   !  get parameters