Searched refs:ubs_empty (Results 1 – 1 of 1) sorted by relevance
45 integer, parameter :: ubs_empty(*) = ubound(empty) variable46 logical, parameter :: test_ubs_empty = all(ubs_empty == [0, 3, 0])