paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 13:49:39 +02:00
Code Issues Packages Projects Releases Wiki Activity

* another old test added

Browse Source 
git-svn-id: trunk@5161 -
This commit is contained in:
florian 2006-11-01 21:02:12 +00:00
parent b95ffda72a
commit 409ee19a83
2 changed files with 11 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -6319,6 +6319,7 @@ tests/test/tclass6.pp svneol=native#text/plain
tests/test/tclass7.pp svneol=native#text/plain tests/test/tclass7.pp svneol=native#text/plain
tests/test/tclass8.pp svneol=native#text/plain tests/test/tclass8.pp svneol=native#text/plain
tests/test/tclrprop.pp svneol=native#text/plain tests/test/tclrprop.pp svneol=native#text/plain
tests/test/tendian1.pp svneol=native#text/plain
tests/test/tenum1.pp svneol=native#text/plain tests/test/tenum1.pp svneol=native#text/plain
tests/test/testcmem.pp svneol=native#text/plain tests/test/testcmem.pp svneol=native#text/plain
tests/test/testda1.pp svneol=native#text/plain tests/test/testda1.pp svneol=native#text/plain

10
tests/test/tendian1.pp Normal file
View File

@ -0,0 +1,10 @@
var
l : dword;
begin
l:=$deadbeef;
if SwapEndian(l)=l then
halt(1);
if SwapEndian(SwapEndian(l))<>l then
halt(1);
writeln('ok');
end.