mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-05 11:06:13 +02:00
+ added
git-svn-id: trunk@558 -
This commit is contained in:
parent
d27fa6d0b3
commit
32a3f9ce28
1
.gitattributes
vendored
1
.gitattributes
vendored
@ -6123,6 +6123,7 @@ tests/webtbs/tw4100.pp svneol=native#text/plain
|
|||||||
tests/webtbs/tw4115.pp svneol=native#text/plain
|
tests/webtbs/tw4115.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw4119.pp svneol=native#text/plain
|
tests/webtbs/tw4119.pp svneol=native#text/plain
|
||||||
tests/webtbs/tw4140.pp svneol=native#text/plain
|
tests/webtbs/tw4140.pp svneol=native#text/plain
|
||||||
|
tests/webtbs/tw4150.pp svneol=native#text/plain
|
||||||
tests/webtbs/ub1873.pp svneol=native#text/plain
|
tests/webtbs/ub1873.pp svneol=native#text/plain
|
||||||
tests/webtbs/ub1883.pp svneol=native#text/plain
|
tests/webtbs/ub1883.pp svneol=native#text/plain
|
||||||
tests/webtbs/uw0555.pp svneol=native#text/plain
|
tests/webtbs/uw0555.pp svneol=native#text/plain
|
||||||
|
11
tests/webtbs/tw4150.pp
Normal file
11
tests/webtbs/tw4150.pp
Normal file
@ -0,0 +1,11 @@
|
|||||||
|
{$mode objfpc}{$r+}{$q+}
|
||||||
|
var
|
||||||
|
Prec:Cardinal;
|
||||||
|
Bits:Word;
|
||||||
|
begin
|
||||||
|
Bits := 512;
|
||||||
|
Prec := 8;
|
||||||
|
Bits := Bits shr (16-Prec);
|
||||||
|
WriteLn(bits);
|
||||||
|
end.
|
||||||
|
|
Loading…
Reference in New Issue
Block a user