*** empty log message ***

base/modules/psb_error_mod.F90

@@ -218,8 +218,16 @@ contains
 
     new_node%err_code   = err_c
     new_node%routine    = r_name
-    if(present(i_err)) new_node%i_err_data = i_err
+    if(present(i_err)) then
-    if(present(a_err)) new_node%a_err_data = a_err
+      new_node%i_err_data = i_err
+    else 
+      new_node%i_err_data = (/0,0,0,0,0/)
+    end if
+    if(present(a_err)) then 
+      new_node%a_err_data = a_err
+    else
+      new_node%a_err_data = ''
+    end if
     new_node%next       => error_stack%top
     error_stack%top     => new_node
     error_stack%n_elems = error_stack%n_elems+1