[unix-history] / usr / src / usr.bin / pascal / tstpx / src / shoemake.p

program test(input, output);
type
   alpha    = array[1..10] of char;
   lineType = array[1..80] of char;

procedure test1(name : alpha);		{If this parameter is integer, the pro-
					 gram will not bomb }
   var					{If any of these local variables are
					 deleted, the program will run OK}
      linenum : integer;
      line   : lineType; 		{If this is a simple type, the program
					 will not bomb.}
      index  : integer;
      chars  : integer;
      infile : text;

   begin				{If other statements are put before this
					 reset, they are executed, and the pro-
					 gram doesn't bomb until the reset is
					 executed.}

      reset(infile, '/dev/null');
   end;
      
begin
   rewrite(output,'/dev/null');		{If this rewrite statement is not here,
					 the program will not bomb}
   test1('/dev/null');
end.
Commit	Line	Data
7dbf621a C	1	program test(input, output);
	2	type
	3	alpha = array[1..10] of char;
	4	lineType = array[1..80] of char;
	5
	6	procedure test1(name : alpha); {If this parameter is integer, the pro-
	7	gram will not bomb }
	8	var {If any of these local variables are
	9	deleted, the program will run OK}
	10	linenum : integer;
	11	line : lineType; {If this is a simple type, the program
	12	will not bomb.}
	13	index : integer;
	14	chars : integer;
	15	infile : text;
	16
	17	begin {If other statements are put before this
	18	reset, they are executed, and the pro-
	19	gram doesn't bomb until the reset is
	20	executed.}
	21
	22	reset(infile, '/dev/null');
	23	end;
	24
	25	begin
	26	rewrite(output,'/dev/null'); {If this rewrite statement is not here,
	27	the program will not bomb}
	28	test1('/dev/null');
	29	end.