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
   
  
positive.code:   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
  
  
negative.code:     IMPLICIT NONE
      REAL(KIND=8), DIMENSION(:,:,:) :: a
  
  
  ! setup serialization environment
  call ppser_initialize(directory='.',prefix='SerialboxTest')
  call fs_create_savepoint('sp1', ppser_savepoint)
  call ppser_set_mode(0)
  
  SELECT CASE ( ppser_get_mode() )
    CASE(0)
      call fs_write_field(ppser_serializer, ppser_savepoint, 'ser_a', a)
  