[Bug fortran/37159] RANDOM_SEED: PUT= check array size at compile time

[michael dot a dot richmond at nasa dot gov]

------- Comment #11 from michael dot a dot richmond at nasa dot gov  2008-11-10 13:50 -------
(In reply to comment #10)
> Admitted, it does not say SIZE = 8, because this value may be
> compiler- and system-dependent (may also be 12 for gfortran on some
> platforms), which is why the standard provides the SIZE argument in
> the first place.
> 
> I fail to see the problem - could you clarify?
> 

A default integer on i386 is 4 bytes. The instruction "print sizeof(size)"
prints 4. I assume it should also print 4 if I use:

CALL Random_Seed(size=size)
  print *, size


-- 


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