blob: fd2a069bd2a907fa94048df9a6ff9ef01fe8f250 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
|
{ Old file: tbs0251.pp }
{ typed const are not aligned correctly OK 0.99.11 (PM) }
uses erroru;
const
c : byte = 5;
r : real = 3.4;
var
l : longint;
cc : char;
rr : real;
begin
l:=longint(@r);
if (l mod 4)<>0 then
begin
Writeln('static const are not aligned properly !');
error;
end;
cc:='d';
l:=longint(@rr);
if (l mod 4)<>0 then
begin
Writeln('static var are not aligned properly !');
error;
end;
end.
|
