4.3BSD - /usr/src/ucb/dbx/tests/pc/varnt.p

   1: program varnt(input, output);
   2: type
   3:     vrec = record
   4:         rfield : integer;
   5:         case integer of
   6:         1: (
   7:             vfield : integer;
   8:         );
   9:         2: (
  10:             vfield2 : real;
  11:         );
  12:     end;
  13: 
  14: var
  15:     r : vrec;
  16: begin
  17:     r.vfield := 1;
  18:     r.vfield2 := 2.5;
  19:     r.rfield := 0;
  20:     writeln('done');
  21: end.