blob: 411ded5ec7a9c2e999c56f871c0234309cc1d97b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
{ %OPT=-Sew -vw }
{ Source provided for Free Pascal Bug Report 2307 }
{ Submitted by "Sergey Kosarevsky" on 2003-01-03 }
{ e-mail: netsurfer@au.ru }
{$WARNINGS ON}
Function BugHint:String;
Begin
Exit('ResultString');
End;
Begin
BugHint;
End.
|
