URL
https://opencores.org/ocsvn/openrisc_2011-10-31/openrisc_2011-10-31/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 303 |
Rev 338 |
! Program to test SELECTED_INT_KIND intrinsic function.
|
! Program to test SELECTED_INT_KIND intrinsic function.
|
Program test_si_kind
|
Program test_si_kind
|
integer*1 i1
|
integer*1 i1
|
integer*2 i2
|
integer*2 i2
|
integer*4 i4
|
integer*4 i4
|
integer*8 i8
|
integer*8 i8
|
integer res
|
integer res
|
real t
|
real t
|
|
|
t = huge (i1)
|
t = huge (i1)
|
t = log10 (t)
|
t = log10 (t)
|
res = selected_int_kind (int (t))
|
res = selected_int_kind (int (t))
|
if (res .ne. 1) call abort
|
if (res .ne. 1) call abort
|
|
|
t = huge (i2)
|
t = huge (i2)
|
t = log10 (t)
|
t = log10 (t)
|
res = selected_int_kind (int (t))
|
res = selected_int_kind (int (t))
|
if (res .ne. 2) call abort
|
if (res .ne. 2) call abort
|
|
|
t = huge (i4)
|
t = huge (i4)
|
t = log10 (t)
|
t = log10 (t)
|
res = selected_int_kind (int (t))
|
res = selected_int_kind (int (t))
|
if (res .ne. 4) call abort
|
if (res .ne. 4) call abort
|
|
|
t = huge (i8)
|
t = huge (i8)
|
t = log10 (t)
|
t = log10 (t)
|
res = selected_int_kind (int (t))
|
res = selected_int_kind (int (t))
|
if (res .ne. 8) call abort
|
if (res .ne. 8) call abort
|
|
|
i4 = huge (i4)
|
i4 = huge (i4)
|
res = selected_int_kind (i4)
|
res = selected_int_kind (i4)
|
if (res .ne. (-1)) call abort
|
if (res .ne. (-1)) call abort
|
|
|
end program
|
end program
|
|
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.