TYPE btree_i8_cp2d TYPE(btree_node_structure_i8_cp2d) :: b = btree_node_structure_i8_cp2d () END TYPE btree_i8_cp2d