fpc/tests/webtbs/tw4330.pp
peter e23519c45b * support A1,A2,A4,A8 directives
git-svn-id: trunk@1488 -
2005-10-19 05:54:27 +00:00

18 lines
132 B
ObjectPascal
Executable File

{ %opt=-Sew }
{$A+}
{$A-}
{$A1}
{$A2}
{$A4}
{$A8}
{$ALIGN ON}
{$ALIGN OFF}
{$ALIGN 1}
{$ALIGN 2}
{$ALIGN 4}
{$ALIGN 8}
begin
end.