Source: ERCM09:BENCH.ACKI         Compiled: 07/06/88   18.05.04
Object: ERCM09:BENCH.ACKIY

Parms set: DEFAULTS



              ERCC. Portable Imp80 Compiler Release 4 Version 14 Sep 87


  2047  4095
     1        %begin
     2        %integer  i,j,k,k1
     3        
     4        
     5        %integerfn ackermann(%integer m,n)
     6             %if m=0 %then %result = n+1 %else %start
     7                 %if n=0 %then %result = ackermann(m-1,1) %else  %c
     C                 %result = ackermann(m-1,ackermann(m,n-1));
     9              %finish;
    10        %end;
    11        
    12                 printstring("Param?"); read(i);
    13                 %cycle  k = 1 ,1,10
    14                    j=ackermann(3,i);
    15                 printstring("Finish")
    16                 %repeat
    17                                      %endofprogram

    17 LINES ANALYSED   SIZE=  1064

?  Warning :-  Name k1 not used at line No 17

IBM CODE    776+   48 BYTES      GLAP 120+ 0 BYTES      DIAG TABLES 136 BYTES
TOTAL  1080 BYTES
      17 STATEMENTS COMPILED