TYPE btree_node_p_i8_cp2d TYPE(btree_node_i8_cp2d), POINTER :: node => NULL() END TYPE btree_node_p_i8_cp2d