%begin
%externalintegerfnspec jim(%real a,b %integername c)
%integer i, c
  i = jim(3.0,2.0, c)
%endofprogram