%begin
! tests array bound checking on bytes will fail if byte-byte 
! comparison used on checks (386 was wrong for years!)
%integer i,j,k
%constbyteintegerarray comp(0:300)=25(*)
%consthalfintegerarray sub(0:260)=0(25),17,1(*)
i=10
k=sub(comp(i))
      %if k=17 %then printstring("TestOK") %else printstring("Fail")
      newline
%endofprogram
