anchor.diff:    character(len=:), allocatable          :: fmt
     character(len=:), allocatable          :: type
     character(len=:), allocatable          :: data
  -  integer(I4P)                           :: np, offs, pos
  +  integer(I4P)                           :: np, offs
     integer(I4P)                           :: N_Byte
     !---------------------------------------------------------------------------------------------------------------------------------
   
  
positive.code:   character(len=:), allocatable       :: fmt
    character(len=:), allocatable       :: type
    character(len=:), allocatable       :: data
    integer(I4P)                        :: np, offs, pos
    integer(I4P)                        :: N_Byte
    !---------------------------------------------------------------------------------------------------------------------------------
  
  
negative.code:   character(len=:), allocatable          :: fmt
    character(len=:), allocatable          :: type
    character(len=:), allocatable          :: data
    integer(I4P)                           :: np, offs
    integer(I4P)                           :: N_Byte
    !---------------------------------------------------------------------------------------------------------------------------------
  
  