anchor.diff:        field(i) = field(i)*growing_factor;
       end do
     END SUBROUTINE
  -
  +!OMP PARALLEL DO
     SUBROUTINE harvest(field, carrots, size)
       integer, intent(in) :: size
       integer, dimension(size), intent(inout) :: field, carrots
  
positive.code: MODULE growing
    IMPLICIT NONE
  CONTAINS
    SUBROUTINE plant(field, size, seed)
  
negative.code:       carrots(i) = field(i)
      end do
    END SUBROUTINE
  !OMP END DO
  !OMP END PARALLEL
  END MODULE growing
  