summaryrefslogtreecommitdiff
path: root/gcc/testsuite/gfortran.dg/popcnt_poppar_1.F90
blob: 3b7322b94fa924b4481369de09ed6feb122c54e6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
! { dg-do run }
! { dg-options "-ffree-line-length-none" }

interface runtime_popcnt
  procedure runtime_popcnt_i1
  procedure runtime_popcnt_i2
  procedure runtime_popcnt_i4
  procedure runtime_popcnt_i8
end interface

interface runtime_poppar
  procedure runtime_poppar_i1
  procedure runtime_poppar_i2
  procedure runtime_poppar_i4
  procedure runtime_poppar_i8
end interface

#define CHECK(val,res) \
  if (popcnt(val) /= res) call abort ; \
  if (runtime_popcnt(val) /= res) call abort

#define CHECK2(val) \
  if (poppar(val) /= modulo(popcnt(val),2)) call abort ; \
  if (runtime_poppar(val) /= poppar(val)) call abort

  CHECK(0_1, 0)
  CHECK(0_2, 0)
  CHECK(0_4, 0)
  CHECK(0_8, 0)

  CHECK(1_1, 1)
  CHECK(1_2, 1)
  CHECK(1_4, 1)
  CHECK(1_8, 1)

  CHECK(-1_1,8)
  CHECK(-1_2,16)
  CHECK(-1_4,32)
  CHECK(-1_8,64)

  CHECK(-8_1,8-3)
  CHECK(-8_2,16-3)
  CHECK(-8_4,32-3)
  CHECK(-8_8,64-3)

  CHECK(huge(0_1), 8-1)
  CHECK(huge(0_2), 16-1)
  CHECK(huge(0_4), 32-1)
  CHECK(huge(0_8), 64-1)

  CHECK(-huge(0_1), 2)
  CHECK(-huge(0_2), 2)
  CHECK(-huge(0_4), 2)
  CHECK(-huge(0_8), 2)

  CHECK2(0_1)
  CHECK2(0_2)
  CHECK2(0_4)
  CHECK2(0_8)

  CHECK2(17_1)
  CHECK2(17_2)
  CHECK2(17_4)
  CHECK2(17_8)

  CHECK2(-17_1)
  CHECK2(-17_2)
  CHECK2(-17_4)
  CHECK2(-17_8)

  CHECK2(huge(0_1))
  CHECK2(huge(0_2))
  CHECK2(huge(0_4))
  CHECK2(huge(0_8))

  CHECK2(-huge(0_1))
  CHECK2(-huge(0_2))
  CHECK2(-huge(0_4))
  CHECK2(-huge(0_8))

contains
  integer function runtime_popcnt_i1 (i) result(res)
    integer(kind=1), intent(in) :: i
    res = popcnt(i)
  end function

  integer function runtime_popcnt_i2 (i) result(res)
    integer(kind=2), intent(in) :: i
    res = popcnt(i)
  end function

  integer function runtime_popcnt_i4 (i) result(res)
    integer(kind=4), intent(in) :: i
    res = popcnt(i)
  end function

  integer function runtime_popcnt_i8 (i) result(res)
    integer(kind=8), intent(in) :: i
    res = popcnt(i)
  end function

  integer function runtime_poppar_i1 (i) result(res)
    integer(kind=1), intent(in) :: i
    res = poppar(i)
  end function

  integer function runtime_poppar_i2 (i) result(res)
    integer(kind=2), intent(in) :: i
    res = poppar(i)
  end function

  integer function runtime_poppar_i4 (i) result(res)
    integer(kind=4), intent(in) :: i
    res = poppar(i)
  end function

  integer function runtime_poppar_i8 (i) result(res)
    integer(kind=8), intent(in) :: i
    res = poppar(i)
  end function
end