[Bug libfortran/108336] Repeatable random_numbers with openmp

[pinskia at gcc dot gnu.org via Gcc-bugs]

https://gcc.gnu.org/bugzilla/show_bug.cgi?id=108336

--- Comment #5 from Andrew Pinski <pinskia at gcc dot gnu.org> ---
Maybe instead of:

!$omp parallel
   nt = omp_get_num_threads()
!$omp end parallel

Do:
  nt = omp_get_max_threads()

that should improve the situtation of not allocating enough for the array.