win_t
pure function win_is_null(this) result(is_null) class(win_t), intent(in) :: this logical :: is_null is_null = .not. this%is_valid end function win_is_null