anchor.diff:      call print_status(name, case_id, case_success, success)
   
       ! CASE 5: Change the ``t`` parameter, new corner node exists.
  -    curr_node%index_second = 1
  -    curr_node%t = 1.0_dp
  -    curr_node%interior_curve = second
  -    intersections(1)%index_first = 3
  -    intersections(1)%s = 0.5_dp
  -    intersections(1)%index_second = 2
  -    intersections(1)%t = 0.0_dp
  -    intersections(1)%interior_curve = IntersectionClassification_TANGENT_SECOND
  +    curr_node = Intersection(-1.0_dp, 1.0_dp, -1, 1, second)
  +    intersections(1) = Intersection( &
  +         0.5_dp, 0.0_dp, 3, 2, IntersectionClassification_TANGENT_SECOND)
       remaining = 0
       call to_front( &
            1, intersections, unused, remaining, &
  
positive.code:     second = IntersectionClassification_SECOND
  
      ! CASE 1: Unchanged node (i.e. not at the end).
      curr_node%index_first = 3
      curr_node%s = 0.5_dp
      curr_node%interior_curve = first
      remaining = 4
      call to_front( &
           0, intersections(:0), unused, remaining, &
  
negative.code:     call print_status(name, case_id, case_success, success)
  
      ! CASE 4: Change the ``t`` parameter, no corresponding node.
      curr_node = Intersection(-1.0_dp, 1.0_dp, -1, 2, second)
      remaining = 4
      call to_front( &
           0, intersections(:0), unused, remaining, &
  