3 complex, parameter :: a(0) = 0
4 real, parameter :: x(0) = 0
5 integer, parameter :: z(0) = 0
6 if (any(z
> 0) .neqv
. .false
.) stop 1
7 if (all(z
> 0) .neqv
. .true
.) stop 2
8 if (count(z
> 0) /= 0) stop 3
9 if (kind(count(z
> 0, kind
=1)) /= 1) stop 4
10 if (iall(z
) /= not(int(0, kind(z
)))) stop 5
11 if (iany(z
) /= 0) stop 6
12 if (iparity(z
) /= 0) stop 7
13 if (maxval(z
) /= -huge(0) - 1) stop 8
14 if (maxval(x
) /= -huge(x
)) stop 9
15 if (minval(z
) /= huge(0)) stop 10
16 if (minval(x
) /= huge(x
)) stop 11
17 if (norm2(x
) /= 0) stop 12
18 if (real(product(a
)) /= 1 .and
. aimag(product(a
)) /= 0) stop 13
19 if (product(x
) /= 1) stop 14
20 if (product(z
) /= 1) stop 15
21 if (real(sum(a
)) /= 0 .and
. aimag(sum(a
)) /= 0) stop 13
22 if (sum(x
) /= 0) stop 14
23 if (sum(z
) /= 0) stop 15
28 complex, parameter :: a(0) = 0
29 real, parameter :: x(3,4,0) = 0
30 integer, parameter :: z(3,4,0) = 0
31 if (any(z
> 0) .neqv
. .false
.) stop 101
32 if (all(z
> 0) .neqv
. .true
.) stop 102
33 if (count(z
> 0) /= 0) stop 103
34 if (kind(count(z
> 0, kind
=1)) /= 1) stop 104
35 if (iall(z
) /= not(int(0, kind(z
)))) stop 105
36 if (iany(z
) /= 0) stop 106
37 if (iparity(z
) /= 0) stop 107
38 if (maxval(z
) /= -huge(0) - 1) stop 108
39 if (maxval(x
) /= -huge(x
)) stop 109
40 if (minval(z
) /= huge(0)) stop 110
41 if (minval(x
) /= huge(x
)) stop 111
42 if (norm2(x
) /= 0) stop 112
43 if (real(product(a
)) /= 1 .and
. aimag(product(a
)) /= 0) stop 113
44 if (product(x
) /= 1) stop 114
45 if (product(z
) /= 1) stop 115
46 if (real(sum(a
)) /= 0 .and
. aimag(sum(a
)) /= 0) stop 13
47 if (sum(x
) /= 0) stop 14
48 if (sum(z
) /= 0) stop 15
50 ! { dg-prune-output "symmetric range implied by Standard" }
