[fpc-devel]Bug in nested functions

[Dimitry Sibiryakov]

  Hi, All!

  There is still a bug in current 1.1 CVS tree with nested functons. 
Test case:

program Pr;

Function Test1(a : String) : String;

 Function Test2(b : String) : String;
  begin
   Result := 'There is ';
  end;

begin
 Result := Test2('a bug')+a;
end;

begin
 WriteLn(Test1('no bug'));
end.

   SY, Dimitry Sibiryakov.