fpcsrc/tests/webtbs/tw12575.pp


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

{$mode objfpc}
PROGRAM Test;
USES SysUtils;

VAR
  t : Text;

BEGIN
  Assign(t, 'blah.txt');
  TRY
    Close(t);
  EXCEPT
    ON e: EInOutError DO
      if (e.ErrorCode <> 103) then
        halt(1);
  END;
END.