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 / kind next >
Text File  |  1992-11-21  |  321b  |  22 lines
  1. {Kind errors}
  2. program KindError;
  3.   const
  4.     a = integer;
  5.   type
  6.     T = array [2..1] of integer;
  7.     U = record f: a end;
  8.   var
  9.     x: integer;
  10.     y: U;
  11.     z: false;
  12.   procedure P(var x: integer; y: true);
  13.     begin end;
  14.   begin
  15.   x[1] := 1;
  16.   x.f := 1;
  17.   P(false, true);
  18.   x := P;
  19.   false := true;
  20.   y.g := 1;
  21.   end.
  22.