[unix-history] / .ref-BSD-3 / usr / doc / pascal / exprout

Berkeley Pascal PI -- Version 1.1 (January 4, 1979)

Sat Mar 31 11:50 1979  expr.p

     1  program x(output);
     2  var
     3          a: set of char;
     4          b: Boolean;
     5          c: (red, green, blue);
     6          p: ^ integer;
     7          A: alfa;
     8          B: packed array [1..5] of char;
     9  begin
    10          b := true;
    11          c := red;
    12          new(p);
    13          a := [];
    14          A := 'Hello, yellow';
    15          b := a and b;
    16          a := a * 3;
    17          if input < 2 then writeln('boo');
    18          if p <= 2 then writeln('sure nuff');
    19          if A = B then writeln('same');
    20          if c = true then writeln('hue''s and color''s')
    21  end.
E 14 - Constant string too long
E 15 - Left operand of and must be Boolean, not set
E 16 - Cannot mix sets with integers and reals as operands of *
E 17 - files may not participate in comparisons
E 18 - pointers and integers cannot be compared - operator was <=
E 19 - Strings not same length in = comparison
E 20 - scalars and Booleans cannot be compared - operator was =
e 20 - Input is used but not defined in the program statement
In program x:
  w - constant green is never used
  w - constant blue is never used
  w - variable B is used but never set
Commit	Line	Data
1f017636 BJ	1	Berkeley Pascal PI -- Version 1.1 (January 4, 1979)
	2
	3	Sat Mar 31 11:50 1979 expr.p
	4
	5	1 program x(output);
	6	2 var
	7	3 a: set of char;
	8	4 b: Boolean;
	9	5 c: (red, green, blue);
	10	6 p: ^ integer;
	11	7 A: alfa;
	12	8 B: packed array [1..5] of char;
	13	9 begin
	14	10 b := true;
	15	11 c := red;
	16	12 new(p);
	17	13 a := [];
	18	14 A := 'Hello, yellow';
	19	15 b := a and b;
	20	16 a := a * 3;
	21	17 if input < 2 then writeln('boo');
	22	18 if p <= 2 then writeln('sure nuff');
	23	19 if A = B then writeln('same');
	24	20 if c = true then writeln('hue''s and color''s')
	25	21 end.
	26	E 14 - Constant string too long
	27	E 15 - Left operand of and must be Boolean, not set
	28	E 16 - Cannot mix sets with integers and reals as operands of *
	29	E 17 - files may not participate in comparisons
	30	E 18 - pointers and integers cannot be compared - operator was <=
	31	E 19 - Strings not same length in = comparison
	32	E 20 - scalars and Booleans cannot be compared - operator was =
	33	e 20 - Input is used but not defined in the program statement
	34	In program x:
	35	w - constant green is never used
	36	w - constant blue is never used
	37	w - variable B is used but never set