1 program test_intrinsic_trailz
4 call test_trailz(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_trailz(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 (trailz(0_1) /= 8) call abort()
16 if (trailz(0_2) /= 16) call abort()
17 if (trailz(0_4) /= 32) call abort()
18 if (trailz(0_8) /= 64) call abort()
20 if (trailz(1_1) /= 0) call abort()
21 if (trailz(1_2) /= 0) call abort()
22 if (trailz(1_4) /= 0) call abort()
23 if (trailz(1_8) /= 0) call abort()
25 if (trailz(8_1) /= 3) call abort()
26 if (trailz(8_2) /= 3) call abort()
27 if (trailz(8_4) /= 3) call abort()
28 if (trailz(8_8) /= 3) call abort()
30 if (trailz(z1
) /= 8) call abort()
31 if (trailz(z2
) /= 16) call abort()
32 if (trailz(z4
) /= 32) call abort()
33 if (trailz(z8
) /= 64) call abort()
35 if (trailz(i1
) /= 0) call abort()
36 if (trailz(i2
) /= 0) call abort()
37 if (trailz(i4
) /= 0) call abort()
38 if (trailz(i8
) /= 0) call abort()
40 if (trailz(e1
) /= 3) call abort()
41 if (trailz(e2
) /= 3) call abort()
42 if (trailz(e4
) /= 3) call abort()
43 if (trailz(e8
) /= 3) call abort()
44 end subroutine test_trailz