TYPE private_item_p_type_str_i4 PRIVATE TYPE(private_item_type_str_i4), POINTER :: p => Null() END TYPE private_item_p_type_str_i4