5 ms·

real, dimension(30000000) :: a call random_number(a) print *, sum(a) That's 30 million doubles, takes 0.04s on my machine.