Subroutine fie
  integer i
  double precision result(10)
  result(i) = 5
end
