begin
externalroutinespec phex alias "s_phex" (integer x)
integer i,j,k,corr,fail
integerfn div(integer x,y)
result=x//y
end
fail=0
for k=20,-1,-20cycle
      if k//2#div(k,2) then fail=1
      if k//4#div(k,4) then fail=1
      if k//8#div(k,8) then fail=1
      if k//16#div(k,16) then fail=1
      if k//1#div(k,1) then fail=1
repeat
if fail=0 then printstring("TEST OK") else printstring("Divide in error")
newline
endofprogram