fpcsrc/tests/webtbs/tw0895.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

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.