paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-05-17 20:02:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

* this test is used to test writeLn for strigs

Browse Source
This commit is contained in:
mazen 2003-02-18 22:01:00 +00:00
parent ed1ba5dc1c
commit 1cb61aec61
1 changed files with 3 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
tests/sparc/test0003.pas
View File

@ -1,20 +1,8 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
x,y:Cardinal;
z:0..255;
FUNCTION CopyMe(x:Cardinal):Cardinal;
BEGIN
CopyMe:=x;
END;
FUNCTION Add(a,b:Cardinal):Cardinal;
BEGIN
Add:=a+b;
END;
CONST
s:STRING='Hello World!';
BEGIN
y:=0;
z:=0;
x:=1+y;
x:=Add(x,y);
WriteLn(s);
END.