blob: 190ba627d78b23f3c56491cefe00430f2deded16 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
{ %FAIL }
{$MODE OBJFPC}
program tw25915;
type
TTestClass = class
FS: AnsiString;
procedure TestMethod();
end;
procedure TTestClass.TestMethod();
begin
FS := Default(FS); // 'Error: Identifier not found "FS"' and 'Error: Type identifier expected'
end;
var
S: AnsiString;
begin
S := Default(S); // two times 'Error: Type identifier expected'
end.
|