begin
  routinespec fred(integer i)
  fred(3)
  routine fred(integer i)
    write(i,0)
    newline
  end
endofprogram