anchor.diff:                      call read_integer(subgroup_id, dncycles, mc_cycles_done)
   
                       ptr = c_loc(shift)
  -                    call read_ptr(subgroup_id, dshift, h5_p, ptr)
  +                    call read_ptr(subgroup_id, dshift, kinds%p, ptr)
   
                   call h5gclose_f(subgroup_id, ierr)
   
  
positive.code:     ! doesn't then handle the situation gracefully (e.g. by falling back to
      ! default values).
  
      implicit none
  
      private
  
negative.code:                 call h5gopen_f(group_id, gref, subgroup_id, ierr)
  
                      ptr = c_loc(f0)
                      call read_ptr(subgroup_id, dref, kinds%i0, ptr)
  
                      ptr = c_loc(hs_f0)
                      call read_ptr(subgroup_id, dhsref, kinds%i0, ptr)
  
                      ptr = c_loc(tmp)
                      call read_ptr(subgroup_id, dref_pop, kinds%p, ptr)
                      D0_population = tmp(1)
  
                  call h5gclose_f(subgroup_id, ierr)
  