[Bug fortran/98253] Conflicting random_seed/random_init results

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

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

--- Comment #2 from kargl at gcc dot gnu.org ---
On 2nd thought.

Of course, the results are different.

In your first example, you have

  call random_init(repeatable=.true., image_distinct=.true.)

which gets you processor-dependent seeds.  In your second
example, you have

  call random_seed(size=n)
  call random_seed(put=[(i,i=1,n)])

that is not processor-dependent.  You are explicitly seeding
the PRNG.