blob: a19b13f492d093d8e14fe0009172ecfc32b29883 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{ %fail }
{ Source provided for Free Pascal Bug Report 3450 }
{ Submitted by "Vincent Snijders" on 2004-12-11 }
{ e-mail: vsnijders@quicknet.nl }
{$mode objfpc}{$H+}
uses
uw3450;
var
A: TA;
begin
A := TA.Create;
// no error here
with A do
I := 9;
// this fails, correctly
A.I := 9;
end.
|