anchor.diff:          
           integer :: j
           
  +        ! f95 will allocate and copy
           obj % ndims = size(velocity)
           obj % v = velocity
           obj % lengths = lengths
  
positive.code: 
  end module
  
  subroutine str2int(str, i, stat)
      implicit none
      ! Arguments
  
negative.code:     integer, intent(out)         :: stat
  
      read(str,*,iostat=stat) i
  end subroutine str2int
  
  program main
  