148072Sbostic(* 2*62154Sbostic * Copyright (c) 1980, 1993 3*62154Sbostic * The Regents of the University of California. All rights reserved. 448072Sbostic * 548072Sbostic * %sccs.include.redist.c% 648072Sbostic * 7*62154Sbostic * @(#)block.p 8.1 (Berkeley) 06/06/93 848072Sbostic *) 948072Sbostic 1048072Sbosticprogram blocktest(input, output); 1148072Sbosticprocedure A; 1248072Sbostic procedure B; 1348072Sbostic begin 1448072Sbostic writeln('in procedure B'); 1548072Sbostic end; 1648072Sbosticbegin 1748072Sbostic writeln('in procedure A'); 1848072Sbostic B; 1948072Sbosticend; 2048072Sbostic 2148072Sbosticbegin 2248072Sbostic writeln('in main program'); 2348072Sbostic A; 2448072Sbosticend. 25