anchor.diff:              integer(i_llong), dimension(:), allocatable   :: tmp
               integer(i_llong)                             :: new_size
               
  +            integer(i_byte)                              :: alloc_err
  +            character(len=100)                           :: err_msg
  +            
   #ifdef _DEBUG_MEM_
               call debug("Reallocating long array...")
   #endif
  -            
  -            integer(i_byte)                              :: alloc_err
  -            character(len=100)                           :: err_msg
               
               new_size = size(arr) + addl_num_entries
               
  
positive.code:             character(len=len(arr(1))), dimension(:), allocatable   :: tmp
              integer(i_llong)            :: new_size
              
  #ifdef _DEBUG_MEM_
              integer :: string_len, string_arr_size
              
  
negative.code:             integer(i_long), dimension(:), allocatable   :: tmp
              integer(i_llong)                             :: new_size
              
              integer(i_byte)                              :: alloc_err
              character(len=100)                           :: err_msg
              
  #ifdef _DEBUG_MEM_
              call debug("Reallocating long array...")
  #endif
              
              new_size = size(arr) + addl_num_entries
              
  