Mercurial > hg > CbC > CbC_gcc

comparison gcc/testsuite/gfortran.dg/pr47757-1.f90 @ 111:04ced10e8804

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
gcc 7
author kono
date Fri, 27 Oct 2017 22:46:09 +0900
parents
children
comparison
equal deleted inserted replaced
68:561a7518be6b 111:04ced10e8804
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