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