TYPE btree_i8_zp2d TYPE(btree_node_structure_i8_zp2d) :: b = btree_node_structure_i8_zp2d () END TYPE btree_i8_zp2d