Skip to content
Closed
Original file line number Diff line number Diff line change
Expand Up @@ -241,7 +241,8 @@ module adj_lookup_table_mod
! Arguments
class(adj_lookup_table_type), intent(inout) :: self

! Pass
call self%lookup_field%clear()
call self%set_count_field%clear()
Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Make the subroutine a finaliser as described (see my other comment) and you shouldn't need to call any of this. In fact you shouldn't be calling clear (they are only for pFUnit tests - don't ask)

Suggested change
call self%lookup_field%clear()
call self%set_count_field%clear()

Copy link
Collaborator

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

As mentioned earlier you don't need this subroutine at all.


end subroutine adj_lookup_table_finaliser

Expand Down
Loading