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

[michael dot a dot richmond at nasa dot gov]

------- Comment #7 from michael dot a dot richmond at nasa dot gov  2008-11-10 
00:09 -------
I get a compile-time error:

[EMAIL PROTECTED]:~$ cat sort1.f90
PROGRAM sort1
INTEGER Count(1)   !Current value of system clock
  CALL Random_Seed(Put=Count)
END PROGRAM sort1
[EMAIL PROTECTED]:~$ gfortran sort1.f90
sort1.f90:3.23:

  CALL Random_Seed(Put=Count)
                      1
Error: Array PUT of intrinsic random_seed is too small (1/8) at (1)


-- 

michael dot a dot richmond at nasa dot gov changed:

           What    |Removed                     |Added
----------------------------------------------------------------------------
                 CC|                            |michael dot a dot richmond
                   |                            |at nasa dot gov


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