Sign in
gnu
/
gcc.git
/
refs/heads/trunk
/
.
/
gcc
/
testsuite
/
algol68
/
execute
/
bits-shift-1.a68
blob: 9e3220d9190c86ea66de072d7347638e21286864 [
file
] [
log
] [
blame
]
begin
int
first_bit
=
2
**
31
;
int
myshift
=
29
;
bits b1
=
BIN
(
first_bit
)
SHR
29
;
bits b2
=
BIN
(
first_bit
)
SHR myshift
;
assert
(
b1
=
2r100
);
assert
(
b2
=
2r100
)
end