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

[kargl at gcc dot gnu dot org]

------- Comment #1 from kargl at gcc dot gnu dot org  2008-10-30 20:20 -------
(In reply to comment #0)
> Fortran 2003 allows all kinds for arguments (-> please re-check).

Not according to my draft of F2003.

   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.

> For i8 the library already contains: random_seed_i8. How to handle i16?
> 
> Note: One still needs to support calls with different integer types, esp. if
> one needs to modify the variable (-> convert back). [Unless there can be only
> one argument at a time.]

According th F2003 standard:

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

> Additionally, the front end currently rejects i8:
> 
> Error: 'size' argument of 'random_seed' intrinsic at (1) must be of kind 4     
>                1
> Error: 'put' argument of 'random_seed' intrinsic at (1) must be of kind 4

This is the correct behavior.


-- 


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