Sum and product of an array: Difference between revisions

=={{header|Fortran}}==

In ISO Fortran 90 and later, use SUM intrinsic:

REAL, DIMENSION(1000) :: A = (/ (1.0/(i*i), i=1, 1000) /)

REAL :: RESULT

RESULT = SUM(A);