program summe
  real :: li(200*100000)
  real elapsed(2)
  real total, total2
  
  call random_number(li)
  total = etime(elapsed)
  print *, sum(li)
  total2 = etime(elapsed)
  print *, total2 - total

end program summe