anchor.diff:    real(kreal), dimension(3, 6) :: face_locs
     integer(kint) :: i
     real(kreal) :: test_dist
  -  
  +
     face_locs = self%faceCentroids()
     calc_min_radius = huge(1.0_kreal)
     do i=1, 6
  
positive.code:    real(kreal), dimension(3) :: centroid
     real(kreal) :: volume
     real(kreal) :: aspectRatio
     
     contains
       procedure :: initSpecific
       procedure :: initPadded
  
negative.code:     call EndSection(aLog)
  end subroutine
  
  end module
  