home *** CD-ROM | disk | FTP | other *** search
/ minnie.tuhs.org / unixen.tar / unixen / PDP-11 / Distributions / ucb / spencer_2bsd.tar.gz / 2bsd.tar / src / pascal / tests / t18.p < prev    next >
Text File  |  1980-02-17  |  129b  |  13 lines
  1. program main(output);
  2. type
  3.     t = record
  4.         a: real;
  5.         b: integer;
  6.     end;
  7. var
  8.     x: t;
  9. begin
  10.     x := t(1.0, 1);
  11.     writeln(x.a, x.b);
  12. end.
  13.