anchor.diff:      call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a, ppser_zrperturb)
   END SELECT
   call ppser_set_mode(0)
  -! file: /Volumes/MeteoSwissCode/serialbox2/examples/Fortran/with_pp_ser/m_ser.f90 lineno: #27
  +
   SELECT CASE ( ppser_get_mode() )
     CASE(0)
       call fs_write_field(ppser_serializer, ppser_savepoint, 'ser_a', a)
  
positive.code:   ppser_reallength, &
    ppser_realtype, &
    ppser_zrperturb
  #endif
  
  
    IMPLICIT NONE
  
  
negative.code:   CASE(2)
      call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a, ppser_zrperturb)
  END SELECT
  
    END SUBROUTINE serialize
  
    SUBROUTINE deserialize(a)
      IMPLICIT NONE
      REAL(KIND=8), DIMENSION(:,:,:) :: a
  ! setup serialization environment
  call ppser_initialize(directory='.',prefix='SerialboxTest-output',prefix_ref='SerialboxTest')
  call fs_create_savepoint('sp1', ppser_savepoint)
  call ppser_set_mode(1)
  
  SELECT CASE ( ppser_get_mode() )
    CASE(0)
      call fs_write_field(ppser_serializer, ppser_savepoint, 'ser_a', a)
  