paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-15 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* new bug

Browse Source
This commit is contained in:
peter 2004-02-12 16:02:17 +00:00
parent 051778da12
commit 2c1754a1b5
1 changed files with 29 additions and 0 deletions

29
tests/webtbs/tw2966.pp Normal file
View File

@ -0,0 +1,29 @@
{ Source provided for Free Pascal Bug Report 2966 }
{ Submitted by "Alexey Barkovoy" on 2004-02-09 }
{ e-mail: clootie@ixbt.com }
program Project1;
type
{$ALIGN 8} // Can be 8, 16, 32 other value
TType1 = record
f: Word;
end;
TType2 = packed record
f, g: Word;
end;
TType3 = record
f, g: Word;
end;
var
t: TType2;
t2: TType3;
begin
WriteLn('Type1 = ', SizeOf(TType1));
WriteLn('Type2 = ', SizeOf(TType2));
WriteLn('Type3 = ', SizeOf(TType3));
WriteLn('It''s OK = ', DWORD(t));
WriteLn('This is the bug = ', DWORD(t2)); // Compiler stops here with "Error: Illegal type conversion"
end.