[fpc-pascal]"filesize" Problem/Bug ?

[Michael Knapp]

Retrieving the file size of a not initialised file 
blocks access to further files (IOResult returns value 103)
Compiled with GO32V2 Snapshot [2000/12/21], executed within a
Win95-DOS-Box

this source shows that problem

{$I-}
VAR f1,f2:file;
    fs:longint;
BEGIN
  fs:=filesize(f1);
  assign(f2,'c:\config.sys'); { every other file can be taken, too}
  reset(f2,1);
  writeln(IOresult);
  close(f2);
END.

Michael

-- 
+--------------------------------------------------------------------+
|  Michael Knapp - Mauerbach - Niederösterreich - Austria - Europe   |
|  E-Mail: mknapp at gmx.at                             ICQ: 36542787   |
+--------------------------------------------------------------------+
| G r a p h i X            http://programmierer.freepage.de/graphix/ |
| Graphics Library for Freepascal, Virtual Pascal and Borland Pascal | 
| http://graphix4pascal.cjb.net/    http://www.graphix4pascal.de.vu/ |
+--------------------------------------------------------------------+