OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_trailz.f90] - Blame information for rev 707

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 695 jeremybenn 
program test_intrinsic_trailz
2 
   implicit none
3 
 
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)
5 
   stop
6 
 
7 
   contains
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
14 
 
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()
19 
 
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()
24 
 
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()
29 
 
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()
34 
 
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()
39 
 
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
45 
 
46 
end program

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.