paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-01 13:11:06 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added more tests for SPARC code generator

Browse Source
This commit is contained in:
mazen 2003-05-07 15:10:20 +00:00
parent 3610d66be1
commit 8e001b765a
3 changed files with 35 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
tests/sparc/test0006.pas Normal file
View File

@ -0,0 +1,10 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
i:Integer;
BEGIN
IF(i>0)
THEN
WriteLn(i);
END.

10
tests/sparc/test0007.pas Normal file
View File

@ -0,0 +1,10 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
c:Char;
BEGIN
IF(c='0')
THEN
WriteLn(c);
END.

15
tests/sparc/test0008.pas Normal file
View File

@ -0,0 +1,15 @@
{$UNITPATH ../../rtl/linux}
{$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
PROGRAM SparcTest;
VAR
c:Char;
BEGIN
CASE c OF
'0':
WriteLn(0);
'1':
WriteLn(1);
'2':
WriteLn('2');
END;
END.