fpcsrc/tests/webtbs/tw13763.pp


1
2
3
4
5
6
7
8
9
10
11
12
13

{ %norun }
{ %opt=-vh -Seh }

{$MODE OBJFPC}

var
   f: TextFile;

begin
     AssignFile (f, 'test.dat'); // Hint: Variable not initialized
     Reset (f);
     CloseFile (f);
end.