Hacker News new | ask | show | jobs
by eric_t 5309 days ago 

    real, dimension(30000000) :: a

    call random_number(a)

    print *, sum(a)
That's 30 million doubles, takes 0.04s on my machine.