[Bug fortran/37961] [F2003] random_seed - allow integer(8) for the arguments

[sgk at troutmask dot apl dot washington dot edu]

------- Comment #2 from sgk at troutmask dot apl dot washington dot edu  2008-10-31 01:02 -------
Subject: Re:  [F2003] random_seed - allow integer(8) for the arguments

I just checked the F2008 draft for the next standard.  It says

13.7.95   RANDOM SEED ([SIZE, PUT, GET])

      Description. Restarts or queries the pseudorandom number generator
      used by RANDOM_NUMBER.

      Class. Subroutine.

      Arguments. There shall either be exactly one or no arguments present.

      SIZE (optional)  shall be scalar and of type default integer.  It
           is an INTENT (OUT) argument.  It is assigned the number N of
           integers that the processor uses to hold the value of the seed.

      PUT (optional)   shall be a default integer array of rank one and
           size  N . It is an INTENT (IN) argument. It is used in a
           processor-dependent manner to compute the seed value accessed
           by the pseudorandom number generator.

      GET (optional)   shall be a default integer array of rank one and
           size  N It is an INTENT (OUT) argument. It is assigned the
           current value of the seed.

I think this PR should be closed with a WONTFIX.


-- 


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