[Bug fortran/39266] Size of 'put' argument of 'random_seed' intrinsic at (1) too small in Debian 5.0 Sparc

[kargl at gcc dot gnu dot org]

------- Comment #2 from kargl at gcc dot gnu dot org  2009-02-22 16:05 -------
Please see the Standard's description of RANDOM_SEED.  In particular,
what does

program duh
   integer how_many
   call random_seed(size=how_many)
   print '(I0)', how_many
end program duh

do on each system?

More importantly, what does 

program doh
   real(16) x
!  real(10) x
   print '(I0)', precision(x)
end program doh

return?


-- 


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