Path: utzoo!utgpu!jarvis.csri.toronto.edu!mailrus!nrl-cmf!ukma!gatech!purdue!decwrl!hplabs!hpda!hpcuhb!hpcllla!hpclisp!hpcllmr!mark
From: mark@hpcllmr.HP.COM (Mark Rozhin)
Newsgroups: comp.lang.pascal
Subject: Re: Re^2: Control variables in FOR loops
Message-ID: <950015@hpcllmr.HP.COM>
Date: 3 Feb 89 20:14:34 GMT
References: <17913@adm.BRL.MIL>
Organization: Hewlett-Packard Calif. Language Lab
Lines: 40

the HP Pascal compiler also reject you test case as follows:

page   1  HP PASCAL/UX HP92431A.05.01    COPYRIGHT HEWLETT-PACKARD CO. 1986
          FRI, FEB  3, 1989, 12:08 PM

    0     1.000   0   program nonsense(input,output);
    0     2.000   0       var
    0     3.000   0       i : integer;
    1     4.000   0
    0     5.000   0       procedure barf;
    1     6.000   1       begin
    1     7.000   1       for i := 1 to 10 do
                              ^
**** ERROR #  1   INVALID CONTROL VARIABLE IN FOR STATEMENT (230)
    2     8.000   1           write(i:3);
    3     9.000   1       write('   i=',i)     (****)
    4    10.000   1       end;
    4    11.000   0
    0    12.000   0       procedure ack;
    1    13.000   1       begin
    1    14.000   2       for i := 1 to 10 do begin
                              ^
**** ERROR #  2   INVALID CONTROL VARIABLE IN FOR STATEMENT (230)
    2    15.000   2           write('i=',i:2,' ');
    3    16.000   2           barf;
    4    17.000   2           writeln('i=',i:2)
    5    18.000   2         end
    5    19.000   1       end;
    5    20.000   0
    1    21.000   1   begin
    1    22.000   1       for i := 1 to 10 do
    2    23.000   1       ack
    3    24.000   1   end.
    3    25.000   0
                      NUMBER OF ERRORS =  2     NUMBER OF WARNINGS =  0
                      PROCESSOR TIME 0: 0: 1    ELAPSED TIME 0: 0: 1
                      NUMBER OF LINES =   25    LINES/MINUTE =  2459.0
                      NUMBER OF NOTES =    0

mr