mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-16 03:59:28 +02:00
20 lines
409 B
ObjectPascal
20 lines
409 B
ObjectPascal
{ Old file: tbs0355.pp }
|
|
{ }
|
|
|
|
{MvdV; published in core.
|
|
Element that is in the type zz too is not recognised as such.
|
|
}
|
|
|
|
type xx=(notinsubset1,insubset1,insubset2,notinsubset2);
|
|
zz=insubset1..insubset2;
|
|
|
|
ll=record
|
|
yy:zz;
|
|
end;
|
|
|
|
const oo : array[0..1] of ll = (
|
|
(yy:insubset1),
|
|
(yy:insubset2));
|
|
begin
|
|
end.
|