anchor.diff:    CASE(2)
       call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a, ppser_zrperturb)
   END SELECT
  -#endif
   
     END SUBROUTINE deserialize_with_perturb
   
  
positive.code:     IMPLICIT NONE
      REAL(KIND=8), DIMENSION(:,:,:) :: a
  
  #ifdef SERIALIZE
  PRINT *, '>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<'
  PRINT *, '>>> WARNING: SERIALIZATION IS ON <<<'
  PRINT *, '>>>>>>>>>>>>>>>>>><<<<<<<<<<<<<<<<<<'
  
  ! setup serialization environment
  call ppser_initialize(directory='.',prefix='SerialboxTest')
  call fs_create_savepoint('sp1', ppser_savepoint)
  call ppser_set_mode(0)
  ! file: /Volumes/MeteoSwissCode/serialbox2/examples/Fortran/with_pp_ser/m_ser.f90 lineno: #14
  SELECT CASE ( ppser_get_mode() )
    CASE(0)
      call fs_write_field(ppser_serializer, ppser_savepoint, 'ser_a', a)
  
negative.code:   ppser_reallength, &
    ppser_realtype, &
    ppser_zrperturb
  
    IMPLICIT NONE
  
  