3
This program demonstrates a set inclusion test bug.
4
(After two days passed to track down a very perverse program error....)
5
(By Louis Jean-Ruichard)
8
eAttr = ( e0, e1, e2, e3, e4, e5, e6, e7 );
18
e.attr:=[e2,e4,e7,e1,e0];
21
THEN Writeln('A1: [e1,e0] is included in attr')
24
ep^.attr:=[e2,e4,e7,e1,e0];
27
THEN Writeln('A2: [e1,e0] is included in attr')
30
Writeln('A2 statement incorrectly executed');