1 program test_intrinsic_leadz
4 call test_leadz(0_1,0_2,0_4,0_8,1_1,1_2,1_4,1_8,8_1,8_2,8_4,8_8)
9 subroutine test_leadz(z1
,z2
,z4
,z8
,i1
,i2
,i4
,i8
,e1
,e2
,e4
,e8
)
10 integer(kind
=1) :: z1
, i1
, e1
11 integer(kind
=2) :: z2
, i2
, e2
12 integer(kind
=4) :: z4
, i4
, e4
13 integer(kind
=8) :: z8
, i8
, e8
15 if (leadz(0_1) /= 8) call abort()
16 if (leadz(0_2) /= 16) call abort()
17 if (leadz(0_4) /= 32) call abort()
18 if (leadz(0_8) /= 64) call abort()
20 if (leadz(1_1) /= 7) call abort()
21 if (leadz(1_2) /= 15) call abort()
22 if (leadz(1_4) /= 31) call abort()
23 if (leadz(1_8) /= 63) call abort()
25 if (leadz(8_1) /= 4) call abort()
26 if (leadz(8_2) /= 12) call abort()
27 if (leadz(8_4) /= 28) call abort()
28 if (leadz(8_8) /= 60) call abort()
30 if (leadz(z1
) /= 8) call abort()
31 if (leadz(z2
) /= 16) call abort()
32 if (leadz(z4
) /= 32) call abort()
33 if (leadz(z8
) /= 64) call abort()
35 if (leadz(i1
) /= 7) call abort()
36 if (leadz(i2
) /= 15) call abort()
37 if (leadz(i4
) /= 31) call abort()
38 if (leadz(i8
) /= 63) call abort()
40 if (leadz(e1
) /= 4) call abort()
41 if (leadz(e2
) /= 12) call abort()
42 if (leadz(e4
) /= 28) call abort()
43 if (leadz(e8
) /= 60) call abort()
44 end subroutine test_leadz