@@ -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.
+ c:Char;
+ IF(c='0')
+ WriteLn(c);
@@ -0,0 +1,15 @@
+ CASE c OF
+ '0':
+ WriteLn(0);
+ '1':
+ WriteLn(1);
+ '2':
+ WriteLn('2');
+ END;