home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / pascal-.zip / pascal- / tests / deviance / scope < prev    next >
Encoding:
Text File  |  1992-11-21  |  269 b   |  17 lines

  1. {Miscellaneous errors}
  2. program MiscError;
  3.   const
  4.     b = c;
  5.   type
  6.     T = array [5..1] of integer;
  7.     U = record x: true end;
  8.     V = array [false..true] of integer;
  9.   var
  10.     x, y, x: integer;
  11.     z: V;
  12.   begin
  13.   y := 1 and 2;
  14.   y := 2 * (3+4;
  15.   z[1] := &2;
  16.   end.
  17.