TestSuite2.cr
Copyright Ó 1987 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) August 27, 1987 0:25:29 am PDT
TestSuite:
PROGRAM 1
VERSION 2 =
BEGIN
a: Foo = [ ];
false: BOOLEAN = FALSE;
true: BOOLEAN = TRUE;
s: TYPE = SEQUENCE OF CARDINAL;
minus: CARDINAL = - 6;
x: STRING = "what is this? $foo";
y: STRING = "what about quote marks (\") ? ";
choice: Bar = red[blue];
import: CARDINAL = Ralph.card;
grouping: Baz = [a, b, c];
binding: Xyzzy = [a: a, b: b, c: c];
cycle: TYPE = cycle;
b: TYPE = cycle;
c: TYPE = cycle;
blue: TYPE = cycle;
junk: TYPE = RECORD[a: junk];
Xyzzy: TYPE = CARDINAL;
Baz: TYPE = CARDINAL;
card: TYPE = CARDINAL;
Bar: TYPE = CARDINAL;
Foo: TYPE = CARDINAL;
END.