*** empty log message ***

19 years ago · 1bb7db5c07
parent 4012f47ba0
commit 1bb7db5c07
1 changed files with 1 additions and 1 deletions
--- 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)