URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 154 |
Rev 816 |
! { dg-do run }
|
! { dg-do run }
|
! { dg-options "-std=gnu" }
|
! { dg-options "-std=gnu" }
|
integer(kind=4) :: i4, j4
|
integer(kind=4) :: i4, j4
|
integer(kind=8) :: i8, j8
|
integer(kind=8) :: i8, j8
|
|
|
i4 = mclock()
|
i4 = mclock()
|
i8 = mclock8()
|
i8 = mclock8()
|
j4 = mclock()
|
j4 = mclock()
|
j8 = mclock8()
|
j8 = mclock8()
|
|
|
if (i4 > j4 .or. i8 > j8 .or. i4 > i8 .or. j4 > j8) call abort
|
if (i4 > j4 .or. i8 > j8 .or. i4 > i8 .or. j4 > j8) call abort
|
|
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.