|
|
|
@ -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(a_err)) new_node%a_err_data = a_err
|
|
|
|
|
if(present(i_err)) then
|
|
|
|
|
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
|
|
|
|
|