mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 08:18:12 +02:00
93e53e1990
* limit code alignment parameters to power of 2 up to 256 * give an error for an invalid code alignment directive git-svn-id: trunk@17659 -
25 lines
177 B
ObjectPascal
25 lines
177 B
ObjectPascal
{ %fail }
|
|
{$CODEALIGN 3}
|
|
{$CODEALIGN PROC=3}
|
|
|
|
program test1;
|
|
|
|
var
|
|
v: integer = 1;
|
|
|
|
procedure A;
|
|
begin
|
|
Inc(v);
|
|
end;
|
|
|
|
procedure B;
|
|
begin
|
|
Dec(v);
|
|
end;
|
|
|
|
begin
|
|
A;
|
|
B;
|
|
end.
|
|
|