TYPE btree_node_p_i8_sp2d TYPE(btree_node_i8_sp2d), POINTER :: node => NULL() END TYPE btree_node_p_i8_sp2d