From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 12613 invoked by alias); 31 Oct 2008 01:05:05 -0000 Received: (qmail 16423 invoked by alias); 31 Oct 2008 01:02:53 -0000 Date: Fri, 31 Oct 2008 01:05:00 -0000 Message-ID: <20081031010253.16421.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/37961] [F2003] random_seed - allow integer(8) for the arguments In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "sgk at troutmask dot apl dot washington dot edu" Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Id: List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org X-SW-Source: 2008-10/txt/msg02050.txt.bz2 ------- Comment #2 from sgk at troutmask dot apl dot washington dot edu 2008-10-31 01:02 ------- Subject: Re: [F2003] random_seed - allow integer(8) for the arguments I just checked the F2008 draft for the next standard. It says 13.7.95 RANDOM SEED ([SIZE, PUT, GET]) Description. Restarts or queries the pseudorandom number generator used by RANDOM_NUMBER. Class. Subroutine. Arguments. There shall either be exactly one or no arguments present. 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. PUT (optional) shall be a default integer array of rank one and size N . It is an INTENT (IN) argument. It is used in a processor-dependent manner to compute the seed value accessed by the pseudorandom number generator. GET (optional) shall be a default integer array of rank one and size N It is an INTENT (OUT) argument. It is assigned the current value of the seed. I think this PR should be closed with a WONTFIX. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=37961