111
|
1 ! PR libfortran/47757
|
|
2 ! { dg-do run }
|
|
3
|
|
4 integer(1) :: a1(2,2)
|
|
5 integer(2) :: a2(2,2)
|
|
6 integer(4) :: a4(2,2)
|
|
7 integer(8) :: a8(2,2)
|
|
8 logical :: mask(2,2)
|
|
9 logical :: mask2
|
|
10 a1 = 0
|
|
11 a2 = 0
|
|
12 a3 = 0
|
|
13 a4 = 0
|
|
14 mask2 = .true.
|
|
15 mask = reshape([.true.,.true.,.false.,.true.],[2,2])
|
|
16 print *, iany(a1, dim=1, mask=mask)
|
|
17 print *, iany(a2, dim=1, mask=mask)
|
|
18 print *, iany(a4, dim=1, mask=mask)
|
|
19 print *, iany(a8, dim=1, mask=mask)
|
|
20 print *, iall(a1, dim=1, mask=mask)
|
|
21 print *, iall(a2, dim=1, mask=mask)
|
|
22 print *, iall(a4, dim=1, mask=mask)
|
|
23 print *, iall(a8, dim=1, mask=mask)
|
|
24 print *, iparity(a1, dim=1, mask=mask)
|
|
25 print *, iparity(a2, dim=1, mask=mask)
|
|
26 print *, iparity(a4, dim=1, mask=mask)
|
|
27 print *, iparity(a8, dim=1, mask=mask)
|
|
28 print *, iany(a1, dim=1, mask=mask2)
|
|
29 print *, iany(a2, dim=1, mask=mask2)
|
|
30 print *, iany(a4, dim=1, mask=mask2)
|
|
31 print *, iany(a8, dim=1, mask=mask2)
|
|
32 print *, iall(a1, dim=1, mask=mask2)
|
|
33 print *, iall(a2, dim=1, mask=mask2)
|
|
34 print *, iall(a4, dim=1, mask=mask2)
|
|
35 print *, iall(a8, dim=1, mask=mask2)
|
|
36 print *, iparity(a1, dim=1, mask=mask2)
|
|
37 print *, iparity(a2, dim=1, mask=mask2)
|
|
38 print *, iparity(a4, dim=1, mask=mask2)
|
|
39 print *, iparity(a8, dim=1, mask=mask2)
|
|
40 end
|