URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Subversion Repositories openrisc_2011-10-31
[/] [openrisc/] [tags/] [gnu-src/] [gcc-4.5.1/] [gcc-4.5.1-or32-1.0rc2/] [gcc/] [testsuite/] [gfortran.dg/] [leadz_trailz_2.f90] - Rev 384
Compare with Previous | Blame | View Log
! { dg-do run }! { dg-require-effective-target fortran_large_int }integer(kind=16) :: i16i16 = -1if (leadz(i16) /= 0) call abortif (trailz(i16) /= 0) call abortif (leadz(-1_16) /= 0) call abortif (trailz(-1_16) /= 0) call aborti16 = -64if (leadz(i16) /= 0) call abortif (trailz(i16) /= 6) call abortif (leadz(-64_16) /= 0) call abortif (trailz(-64_16) /= 6) call aborti16 = -108if (leadz(i16) /= 0) call abortif (trailz(i16) /= 2) call abortif (leadz(-108_16) /= 0) call abortif (trailz(-108_16) /= 2) call aborti16 = 1if (leadz(i16) /= bit_size(i16) - 1) call abortif (trailz(i16) /= 0) call abortif (leadz(1_16) /= bit_size(1_16) - 1) call abortif (trailz(1_16) /= 0) call aborti16 = 64if (leadz(i16) /= 121) call abortif (trailz(i16) /= 6) call abortif (leadz(64_16) /= 121) call abortif (trailz(64_16) /= 6) call abortend