From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 15435 invoked by alias); 30 Oct 2008 20:22:27 -0000 Received: (qmail 15817 invoked by uid 48); 30 Oct 2008 20:20:13 -0000 Date: Thu, 30 Oct 2008 20:22:00 -0000 Message-ID: <20081030202013.15815.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: "kargl at gcc dot gnu dot org" 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/msg01997.txt.bz2 ------- 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