Return to t6.6.3.1-5.p CVS log

Up to [CSRG BSD Unix] / 43BSDReno / pgrm / pascal / tstpx / src

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/t6.6.3.1-5.p, revision 1.1.1.1

1.1       root        1: {TEST 6.6.3.1-5, CLASS=CONFORMANCE}
                      2: 
                      3: { When a procedure (or function) with a parameter list is
                      4:   included in the formal parameter list of another procedure
                      5:   (or function), the identifiers in the parameter list of the
                      6:   procedure parameter have defining occurences for that list
                      7:   and the corresponding block for the procedure only, and not
                      8:   for the block of the procedure to which it is passed.
                      9:   The example in this program should be passed by the compiler. }
                     10: 
                     11: program t6p6p3p1d5(output);
                     12: var
                     13:    i : integer;
                     14: procedure alsoconforms(x : integer);
                     15: begin
                     16:    writeln(' PASS...6.6.3.1-5')
                     17: end;
                     18: 
                     19: procedure conforms(procedure alsoconforms(x : integer));
                     20:    var x : boolean;
                     21: begin
                     22:    x:=true;
                     23:    alsoconforms(1)
                     24: end;
                     25: 
                     26: begin
                     27:    i:=2;
                     28:    conforms(alsoconforms)
                     29: end.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.