[fpc-pascal]Errors?

[Ziegenhorn Tourism Database]

Hello,

maybe I have seen two errors in 1.0.6 (Linux):

Program Test;
{$R+}
Var
  ch : 'A'..'C';

begin
  writeln('Hello');
  ch:=char(75);
  writeln(ch);
end.

Should give a range check error, I think.

Function GetType : longint;

Var
  ix : longint;

begin
  {..}
  GetType:=123;
  {...}
  ix:=GetType;     {gives not the result expected}
end; {GetType}


P.S.: Freepascal is GREAT!
Regards
Heinz

*************************************
Ziegenhorn Tourism Database
P.O. Box 16 45
76726 Germersheim, Germany
Tel: +49-7274-2759 Fax: +49-7274-3631
http://www.ziegenhorn.com
*************************************