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

Subversion Repositories openrisc_me

[/] [openrisc/] [trunk/] [gnu-src/] [gcc-4.5.1/] [gcc/] [testsuite/] [gfortran.fortran-torture/] [execute/] [intrinsic_si_kind.f90] - Blame information for rev 303

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 303 jeremybenn 
! Program to test SELECTED_INT_KIND intrinsic function.
2 
Program test_si_kind
3 
  integer*1 i1
4 
  integer*2 i2
5 
  integer*4 i4
6 
  integer*8 i8
7 
  integer res
8 
  real t
9 
 
10 
  t = huge (i1)
11 
  t = log10 (t)
12 
  res = selected_int_kind (int (t))
13 
  if (res .ne. 1) call abort
14 
 
15 
  t = huge (i2)
16 
  t = log10 (t)
17 
  res = selected_int_kind (int (t))
18 
  if (res .ne. 2) call abort
19 
 
20 
  t = huge (i4)
21 
  t = log10 (t)
22 
  res = selected_int_kind (int (t))
23 
  if (res .ne. 4) call abort
24 
 
25 
  t = huge (i8)
26 
  t = log10 (t)
27 
  res = selected_int_kind (int (t))
28 
  if (res .ne. 8) call abort
29 
 
30 
  i4 = huge (i4)
31 
  res = selected_int_kind (i4)
32 
  if (res .ne. (-1)) call abort
33 
 
34 
end program
35 
 

powered by: WebSVN 2.1.0

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