externalroutine fred
  integer i
  i = 1
  i = i+i
end
externalroutine fred2(integer param)
  integer i
  i = 1
  i = i+param
end
endoffile