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) STOP 1
16 if (trailz(0_2) /= 16) STOP 2
17 if (trailz(0_4) /= 32) STOP 3
18 if (trailz(0_8) /= 64) STOP 4
20 if (trailz(1_1) /= 0) STOP 5
21 if (trailz(1_2) /= 0) STOP 6
22 if (trailz(1_4) /= 0) STOP 7
23 if (trailz(1_8) /= 0) STOP 8
25 if (trailz(8_1) /= 3) STOP 9
26 if (trailz(8_2) /= 3) STOP 10
27 if (trailz(8_4) /= 3) STOP 11
28 if (trailz(8_8) /= 3) STOP 12
30 if (trailz(z1
) /= 8) STOP 13
31 if (trailz(z2
) /= 16) STOP 14
32 if (trailz(z4
) /= 32) STOP 15
33 if (trailz(z8
) /= 64) STOP 16
35 if (trailz(i1
) /= 0) STOP 17
36 if (trailz(i2
) /= 0) STOP 18
37 if (trailz(i4
) /= 0) STOP 19
38 if (trailz(i8
) /= 0) STOP 20
40 if (trailz(e1
) /= 3) STOP 21
41 if (trailz(e2
) /= 3) STOP 22
42 if (trailz(e4
) /= 3) STOP 23
43 if (trailz(e8
) /= 3) STOP 24
44 end subroutine test_trailz