TYPE btree_i8_sp2d TYPE(btree_node_structure_i8_sp2d) :: b = btree_node_structure_i8_sp2d () END TYPE btree_i8_sp2d