test/Evaluate/folding20.f90

7   logical, parameter :: odds(2,3) = mod(intmatrix, 2) == 1  variable
11   logical, parameter :: test_all = .not. all(odds)
12   logical, parameter :: test_alldim1 = all(.not. all(odds,1))
13   logical, parameter :: test_alldim2 = all(all(odds,2) .eqv. [.true., .false.])
15   logical, parameter :: test_any = any(odds)
16   logical, parameter :: test_anydim1 = all(any(odds,1))
17   logical, parameter :: test_anydim2 = all(any(odds,2) .eqv. [.true., .false.])
21   logical, parameter :: test_iall_masked = iall(intmatrix,odds) == 1
26   logical, parameter :: test_iany_masked = iany(intmatrix,odds) == 7
31   logical, parameter :: test_iparity_masked = iparity(intmatrix,odds) == 7
39   logical, parameter :: test_imaxval_masked = maxval(intmatrix,odds) == 5
40   logical, parameter :: test_iminval_masked = minval(intmatrix,.not.odds) == 2
53   logical, parameter :: test_minvaldim2 = all(minval(intmatrix,dim=2,mask=odds) == [1, huge(0)])
57   logical, parameter :: test_iproduct_masked = product(intmatrix,odds) == 15
67   logical, parameter :: test_isum_masked = sum(intmatrix,odds) == 9