TYPE btree_node_p_i8_zp2d TYPE(btree_node_i8_zp2d), POINTER :: node => NULL() END TYPE btree_node_p_i8_zp2d