+ 291

bugs/bug0291.pp

@@ -0,0 +1,25 @@
+{$mode tp}
+
+function ReturnString: string;
+begin
+  ReturnString := 'A string';
+end;
+
+procedure AcceptString(S: string);
+begin
+  WriteLn('Got: ', S);
+end;
+
+type
+  TStringFunc = function: string;
+
+const
+  SF: TStringFunc = ReturnString;
+var
+  S2: TStringFunc;
+begin
+  @S2:=@ReturnString;
+  AcceptString(ReturnString);
+  AcceptString(SF);
+  AcceptString(S2);
+end.

bugs/readme.txt

@@ -339,6 +339,7 @@ Fixed bugs:
   bug0286.pp   #$08d not allowed as Char constant                   OK 0.99.13 (PFV)
   bug0287.pp   (true > false) not supported                         OK 0.99.13 (PFV)
   bug0288.pp   crash with virtual method in except part             OK 0.99.13 (PFV)
+  bug0291.pp   @procvar in tp mode bugs                             OK 0.99.13 (PFV)
 
 Unproducable bugs:
 ------------------