test0002.pas 180 B

12345678910
  1. {$UNITPATH ../../rtl/linux}
  2. {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
  3. PROGRAM SparcTest;
  4. VAR
  5. x,y:Cardinal;
  6. BEGIN
  7. y:=0;
  8. y:=0;
  9. y:=x+1;
  10. END.