usr/share/fpcsrc/3.2.0/tests/webtbs/tw0895.pp · beefree / fpc-src v3.2.0 - deb package | Gemfury

beefree / fpc-src deb

Repository URL to install this package:

Details

fpc-src / usr / share / fpcsrc / 3.2.0 / tests / webtbs / tw0895.pp

program bug;

begin
  {$I-}
  mkdir('test895');
  InOutRes:=0;
  {$I+}
  writeln('This is a test');
  {$I-}
  mkdir('test895');
  InOutRes:=0;
  {$I+}
  writeln('This is a test');
  {$I-}
  rmdir('test895');
  InOutRes:=0;
  {$I+}
  writeln('This is a test');
end.