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 }
|
! tests basic block data functionality
|
! tests basic block data functionality
|
! we didn't allow multiple block data program units
|
! we didn't allow multiple block data program units
|
block data
|
block data
|
common /a/ y(3)
|
common /a/ y(3)
|
data y /3*1./
|
data y /3*1./
|
end
|
end
|
|
|
blockdata d1
|
blockdata d1
|
common /a/ w(3)
|
common /a/ w(3)
|
common /b/ u
|
common /b/ u
|
data u /1./
|
data u /1./
|
end blockdata d1
|
end blockdata d1
|
|
|
block data d2
|
block data d2
|
common /b/ u
|
common /b/ u
|
common j
|
common j
|
data j /1/
|
data j /1/
|
end block data d2
|
end block data d2
|
!
|
!
|
! begin testing code
|
! begin testing code
|
common /a/ x(3)
|
common /a/ x(3)
|
common /b/ y
|
common /b/ y
|
common i
|
common i
|
|
|
if (any(x /= 1.)) call abort ()
|
if (any(x /= 1.)) call abort ()
|
if (y /= 1. .or. i /= 1) call abort ()
|
if (y /= 1. .or. i /= 1) call abort ()
|
end
|
end
|
|
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.