begin
  externalroutinespec fred(real x,y)
  fred(3.0, 4.0)
endofprogram