Return to pvs1.p CVS log

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

Annotation of 43BSDReno/pgrm/pascal/tstpx/src/pvs1.p, revision 1.1.1.1

1.1       root        1: {TEST 6.6.5.4-1, CLASS=CONFORMANCE}
                      2: 
                      3: { This program tests that pack and unpack are
                      4:   implemented in this compiler as according to the
                      5:   Standard.
                      6:   The compiler fails if the program does not compile. }
                      7: 
                      8: program t6p6p5p4d1(output);
                      9: type
                     10:    colourtype = (red,pink,orange,yellow,green,blue);
                     11: var
                     12:    unone    : array[3..24] of char;
                     13:    pacone   : packed array[1..4] of char;
                     14:    untwo    : array[4..8] of colourtype;
                     15:    pactwo   : packed array[6..7] of colourtype;
                     16:    i        : integer;
                     17:    colour   : colourtype;
                     18: begin
                     19:    pacone:='ABCD';
                     20:    unpack(pacone,unone,5);
                     21:    colour:=red;
                     22:    for i:=4 to 8 do
                     23:    begin
                     24:       untwo[i]:=colour;
                     25:       colour:=succ(colour)
                     26:    end;
                     27:    pack(untwo,5,pactwo);
                     28:    writeln('unone[5] = ''', unone[5], ''' = ', ord(unone[5]));
                     29:    if unone[5]='A' then
                     30:       writeln(' PASS...6.6.5.4-1')
                     31:    else
                     32:       writeln(' FAIL...6.6.5.4-1')
                     33: end.

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