From 1bb7db5c07c826ba2671b30513381a96ed656e67 Mon Sep 17 00:00:00 2001
From: Alfredo Buttari <alfredo.buttari@enseeiht.fr>
Date: Wed, 9 Nov 2005 12:14:31 +0000
Subject: [PATCH] *** empty log message ***

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

diff --git a/test/pargen/ppde90.f90 b/test/pargen/ppde90.f90
index e02dd68c..e18f5153 100644
--- a/test/pargen/ppde90.f90
+++ b/test/pargen/ppde90.f90
@@ -87,7 +87,7 @@ program pde90
   character(len=10)  :: ptype
   character(len=20)  :: name,ch_err
  
-  if(psb_get_errstatus().ne.0) return 
+  if(psb_get_errstatus().ne.0) goto 9999
   info=0
   name='pde90'
   call psb_set_errverbosity(2)