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

[jvdelisle at gcc dot gnu dot org]

------- Comment #8 from jvdelisle at gcc dot gnu dot org  2008-11-10 03:16 
-------
If you check, the minimum size of count is 8 as returned by the size= argument
if you use it. Try this. size is intent OUT.

PROGRAM sort1
INTEGER Count(1)   !Current value of system clock
integer Size
  CALL Random_Seed(size=size)
  print *, size
!  CALL Random_Seed(Put=Count)
END PROGRAM sort1


-- 


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