(j3.2006) (SC22WG5.5253) J3/14-168 for meeting #204: F2015: allow non-default kinds in arguments to intrinsics

[Bill Long]

On Jun 9, 2014, at 6:25 AM, Robert Corbett <robert.corbett at oracle.com> wrote:

> Would RANDOM_SEED(SIZE=K) return the number of default integers the processor 
> uses to hold the value of the seed?


Good question.  The options that come to mind first are either default integer, or integer of the same kind as KIND(K).  But something needs to be said, since the meaning of N is otherwise ambiguous.   It would be convenient to have it be KIND(K) integers for the arrays since one assumes that is how you would be declaring the arrays for PUT and GET.  And that avoids the current silliness of splitting the seeds in half and storing each half in a default integer.  Which raises another question of whether we should also allow scalar arguments for GET and PUT.  Similar to Bob?s original question:  What happens if the user calls RANDOM_SEED with a GET array of kind=4, later copies the values to another array of kind=8, and then calls again with the new array as the PUT argument?  Or what happens if the user calls with kind=2 or kind=1 integer arrays for GET/PUT?   A careful implementation could work around all these issues, but is it worth the benefit to the user?


Cheers,
Bill

> 
> Robert Corbett
> _______________________________________________
> J3 mailing list
> J3 at mailman.j3-fortran.org
> http://mailman.j3-fortran.org/mailman/listinfo/j3

Bill Long                                                                       longb at cray.com
Fortran Technical Suport  &                                  voice:  651-605-9024
Bioinformatics Software Development                     fax:  651-605-9142
Cray Inc./ Cray Plaza, Suite 210/ 380 Jackson St./ St. Paul, MN 55101