anchor.diff:      call print_status(name, case_id, case_success, success)
   
       ! CASE 4: Change the ``t`` parameter, no corresponding node.
  -    curr_node%index_first = -1
  -    curr_node%s = -1.0_dp
  -    curr_node%index_second = 2
  -    curr_node%t = 1.0_dp
  -    curr_node%interior_curve = second
  +    curr_node = Intersection(-1.0_dp, 1.0_dp, -1, 2, second)
       remaining = 4
       call to_front( &
            0, intersections(:0), unused, remaining, &
  
positive.code: 
      ! CASE 3: On an edge of second surface, no other intersections on
      !         that edge.
      curr_node%index_second = 3
      curr_node%t = 0.625_dp
      curr_node%interior_curve = second
      intersections(1)%index_second = 1
      intersections(1)%s = 0.5_dp
      intersections(1)%interior_curve = first
      remaining = 2
      call get_next( &
           1, intersections(:1), unused, remaining, &
  
negative.code:     nodes2(3, :) = [2.0_dp, 0.0_dp]
      edges_second(1)%nodes = nodes2
  
      intersection_ = Intersection(0.5_dp, 0.5_dp, 1, 1)
  
      call classify_intersection( &
           edges_first, edges_second, intersection_, enum_, status)
  