fpcsrc/tests/tbs/tb0527.pp


1
2
3
4
5
6
7
8
9
10
11

type
{$z-}
  te1 = (a,b,c);
{$z+}
  te2 = (e,f,g);
begin
  if sizeof(te1) <> 1 then
    halt(1);
  if sizeof(te2) <> 4 then
    halt(2);
end.