From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 22834 invoked by alias); 15 Apr 2009 17:04:36 -0000 Received: (qmail 20424 invoked by uid 48); 15 Apr 2009 17:03:59 -0000 Date: Wed, 15 Apr 2009 17:04:00 -0000 Message-ID: <20090415170359.20423.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/39772] add a correctness check for the size intrinsic to -fbounds-check In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "jv244 at cam dot ac dot uk" 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: 2009-04/txt/msg01280.txt.bz2 ------- Comment #4 from jv244 at cam dot ac dot uk 2009-04-15 17:03 ------- > But, it does not do > what you expected! Try using your allocated array in something > other than SIZE(). It's doing exactly what I expect... including the size intrinsic returning a garbage result because it returns a default integer. > cat test.f90 INTEGER*8 :: N INTEGER, DIMENSION(:), ALLOCATABLE :: data N=2_8**32 write(6,*) N ALLOCATE(data(N)) data(1:N)=0 write(6,*) SIZE(data,1) END > gfortran -O2 -fbounds-check test.f90 > ./a.out 4294967296 0 -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39772