URL
https://opencores.org/ocsvn/openrisc/openrisc/trunk
Only display areas with differences |
Details |
Blame |
View Log
Rev 302 |
Rev 384 |
! { dg-do run }
|
! { dg-do run }
|
! { dg-options "-std=gnu" }
|
! { dg-options "-std=gnu" }
|
! PR 24917
|
! PR 24917
|
program test
|
program test
|
integer ib, io, iz, ix
|
integer ib, io, iz, ix
|
integer jb, jo, jz, jx
|
integer jb, jo, jz, jx
|
data ib, jb /b'111', '111'b/
|
data ib, jb /b'111', '111'b/
|
data io, jo /o'234', '234'o/
|
data io, jo /o'234', '234'o/
|
data iz, jz /z'abc', 'abc'z/
|
data iz, jz /z'abc', 'abc'z/
|
data ix, jx /x'abc', 'abc'x/
|
data ix, jx /x'abc', 'abc'x/
|
if (ib /= jb) call abort
|
if (ib /= jb) call abort
|
if (io /= jo) call abort
|
if (io /= jo) call abort
|
if (iz /= jz) call abort
|
if (iz /= jz) call abort
|
if (ix /= jx) call abort
|
if (ix /= jx) call abort
|
end program test
|
end program test
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.