From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 14709 invoked by alias); 29 Apr 2009 14:20:10 -0000 Received: (qmail 14072 invoked by uid 48); 29 Apr 2009 14:19:51 -0000 Date: Wed, 29 Apr 2009 14:20:00 -0000 Message-ID: <20090429141951.14071.qmail@sourceware.org> X-Bugzilla-Reason: CC References: Subject: [Bug fortran/39286] Missing out-of-bounds diagnostic In-Reply-To: Reply-To: gcc-bugzilla@gcc.gnu.org To: gcc-bugs@gcc.gnu.org From: "dominiq at lps dot ens dot fr" 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/msg02884.txt.bz2 ------- Comment #3 from dominiq at lps dot ens dot fr 2009-04-29 14:19 ------- I have modified the code referenced in pr36683 as: PROGRAM calls IMPLICIT NONE INTEGER :: a(2), b(3), c(6), n , i c = myfunc(a,b) WRITE(*,*) "c:",c !! gives "c: 1 2 3 4 5 6" n = 5 c = 0 c(1:n) = (/(i+2,i=0,n)/)/myfunc(a,b) WRITE(*,*) "c:",c !! gives "c: 1 2 3 4 5 0" CONTAINS FUNCTION myfunc(v1,v2) RESULT(v3) IMPLICIT NONE INTEGER, INTENT(IN) :: v1(:), v2(:) INTEGER :: v3(SIZE(v1,1)*SIZE(v2,1)) INTEGER :: i, j, k DO i=1,SIZE(v1,1) DO j=1,SIZE(v2,1) k = (i-1)*SIZE(v2,1) + j v3(k) = k ENDDO ENDDO WRITE(*,*) "myfunc: v3:",v3 !! always gives "v3: 1 2 3 4 5 6" END FUNCTION myfunc END PROGRAM calls and I don't get any run time error even with '-fbounds-check'. This confirms that this pr is a duplicate of pr36683. -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=39286