[Bug fortran/54406] random_number() sometimes returns duplicate values when called from parallel threads

[burnus at gcc dot gnu.org]

http://gcc.gnu.org/bugzilla/show_bug.cgi?id=54406

Tobias Burnus <burnus at gcc dot gnu.org> changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |burnus at gcc dot gnu.org

--- Comment #2 from Tobias Burnus <burnus at gcc dot gnu.org> 2012-08-29 
13:16:36 UTC ---
How about replacing
  !$OMP parallel do schedule(dynamic)
by
  !$OMP parallel do schedule(dynamic) private(r)