Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Tree: 1a7f159fad
Branches Tags
freepascal.comp...
/
tests
/
sparc
/
test0006.pas

test0006.pas 183 B
History Raw

12345678910 
  1. {$UNITPATH ../../rtl/linux}
    2. 

  2. {$INCLUDEPATH ../../rtl/unix;../../rtl/inc;../../rtl/unix;../../rtl/sparc}
    3. 

  3. PROGRAM SparcTest;
    4. 

  4. VAR
    5. 

  5.   i:Integer;
    6. 

  6. BEGIN
    7. 

  7.   IF(i>0)
    8. 

  8.   THEN
    9. 

  9.     WriteLn(i);
    10. 

  10. END.
    11.