Edinburgh IMP77 Compiler - Version 8.4

    1  %recordformat fm(%integer i, %record (fm) %name next)
    2  %externalrecord (fm) %array xra1(0:10)
    3  %externalrecord (fm) %arrayname xran1
    4  
    5  %externallongrealarray xlra1(0:10)
    6  %externallongrealarrayname xlran1
    7  
    8  %externalintegernamearray xina1(0:10)
    9  %externalintegernamearrayname xinan1
   10  
   11  %begin
   12    %record (fm) %namearray rna(0:10)
   13    %record (fm) %namearrayname rnan
   14    %record (fm) %name recn
   15    %record (fm) rec
   16    %integer x, i
   17  
   18    xlran1 == xlra1
   19    xinan1 == xina1
   20  
   21    xran1 == xra1
   22    
   23    recn == rna(i)
   24    recn == rna(i)_next
   25    recn == rna(i)_next_next
   26    
   27    rec = rna(i)
   28    rec = rna(i)_next
   29    rec = rna(i)_next_next
   30    
   31    x = rna(i)_i
   32    x = rna(i)_next_i
   33    x = rna(i)_next_next_i
   34    
   35    rnan == rna
   36    
   37  %endofprogram

   27 Statements compiled