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

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gfortran.dg/] [leadz_trailz_2.f90] - Blame information for rev 708

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

Line No. Rev Author Line
1 694 jeremybenn 
! { dg-do run }
2 
! { dg-require-effective-target fortran_large_int }
3 
 
4 
  integer(kind=16) :: i16
5 
 
6 
  i16 = -1
7 
  if (leadz(i16) /= 0) call abort
8 
  if (trailz(i16) /= 0) call abort
9 
  if (leadz(-1_16) /= 0) call abort
10 
  if (trailz(-1_16) /= 0) call abort
11 
 
12 
  i16 = -64
13 
  if (leadz(i16) /= 0) call abort
14 
  if (trailz(i16) /= 6) call abort
15 
  if (leadz(-64_16) /= 0) call abort
16 
  if (trailz(-64_16) /= 6) call abort
17 
 
18 
  i16 = -108
19 
  if (leadz(i16) /= 0) call abort
20 
  if (trailz(i16) /= 2) call abort
21 
  if (leadz(-108_16) /= 0) call abort
22 
  if (trailz(-108_16) /= 2) call abort
23 
 
24 
  i16 = 1
25 
  if (leadz(i16) /= bit_size(i16) - 1) call abort
26 
  if (trailz(i16) /= 0) call abort
27 
  if (leadz(1_16) /= bit_size(1_16) - 1) call abort
28 
  if (trailz(1_16) /= 0) call abort
29 
 
30 
  i16 = 64
31 
  if (leadz(i16) /= 121) call abort
32 
  if (trailz(i16) /= 6) call abort
33 
  if (leadz(64_16) /= 121) call abort
34 
  if (trailz(64_16) /= 6) call abort
35 
 
36 
end

powered by: WebSVN 2.1.0

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