mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-07 12:08:25 +02:00
16 lines
249 B
ObjectPascal
16 lines
249 B
ObjectPascal
{$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.
|