anchor.diff:        CASE(1)
           call fs_read_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a)
         CASE(2)
  -        call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a, ppser_zrperturb)
  +        call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, &
  +                                       'ser_a', a, ppser_zrperturb)
       END SELECT
   
     END SUBROUTINE deserialize
  
positive.code:     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)
  
  
negative.code:       CASE(1)
          call fs_read_field(ppser_serializer_ref, ppser_savepoint, 'ser_a', a)
        CASE(2)
          call fs_read_and_perturb_field(ppser_serializer_ref, ppser_savepoint, &
                                         'ser_a', a, ppser_zrperturb)
      END SELECT
  
    END SUBROUTINE serialize
  