From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 9528 invoked by alias); 22 May 2007 08:24:06 -0000 Received: (qmail 9439 invoked by uid 48); 22 May 2007 08:23:56 -0000 Date: Tue, 22 May 2007 08:24:00 -0000 Message-ID: <20070522082356.9438.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/30964] optional arguments to random_seed In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "fxcoudert 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: 2007-05/txt/msg01818.txt.bz2 ------- Comment #5 from fxcoudert at gcc dot gnu dot org 2007-05-22 09:23 ------- There's more to it. When generate wrong-code for optional arguments, as shown by the following code: $ cat b.f90 program trs implicit none integer :: size, ierr integer, allocatable, dimension(:) :: seed call random_seed(size) allocate(seed(size), stat=ierr) if (ierr /= 0) stop call test_random_seed() contains subroutine test_random_seed(get) integer, dimension(:), optional :: get call random_seed(get=get) end subroutine test_random_seed end program trs $ gfortran b.f90 && ./a.out Segmentation fault -- fxcoudert at gcc dot gnu dot org changed: What |Removed |Added ---------------------------------------------------------------------------- Severity|normal |major Keywords| |wrong-code http://gcc.gnu.org/bugzilla/show_bug.cgi?id=30964