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 / conformance / scope < prev    next >
Encoding:
Text File  |  1993-01-03  |  266 b   |  16 lines
  1. program scope;
  2. type S = record f,g: Boolean end;
  3. var V: S;
  4.  
  5. procedure P(x: integer);
  6.   const n=10;
  7.   type T = array [1..n] of Integer;
  8.   var y,z: t;
  9.  
  10.   procedure Q;
  11.     begin read(X); v.g:=FALSE end;
  12.  
  13.   begin Y:=Z; q; p(5); write(x) end;
  14.  
  15. begin v.f:=true; P(5) end.
  16.