From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 3252 invoked by alias); 27 Dec 2004 17:37:32 -0000 Mailing-List: contact gcc-bugs-help@gcc.gnu.org; run by ezmlm Precedence: bulk List-Archive: List-Post: List-Help: Sender: gcc-bugs-owner@gcc.gnu.org Received: (qmail 3229 invoked by uid 48); 27 Dec 2004 17:37:29 -0000 Date: Mon, 27 Dec 2004 17:37:00 -0000 Message-ID: <20041227173729.3227.qmail@sourceware.org> From: "tobi at gcc dot gnu dot org" To: gcc-bugs@gcc.gnu.org In-Reply-To: <20040422212419.15080.pbrook@gcc.gnu.org> References: <20040422212419.15080.pbrook@gcc.gnu.org> Reply-To: gcc-bugzilla@gcc.gnu.org Subject: [Bug fortran/15080] Forall bounds not calculated correctly (forall_3.f90) X-Bugzilla-Reason: CC X-SW-Source: 2004-12/txt/msg03640.txt.bz2 List-Id: ------- Additional Comments From tobi at gcc dot gnu dot org 2004-12-27 17:37 ------- I confirmed that glibc's error is indeed issued when running this testcase. gdb's output: (gdb) bt #0 0x003f07a2 in _dl_sysinfo_int80 () from /lib/ld-linux.so.2 #1 0x00138955 in raise () from /lib/tls/libc.so.6 #2 0x0013a319 in abort () from /lib/tls/libc.so.6 #3 0x0016bf9a in __libc_message () from /lib/tls/libc.so.6 #4 0x00172528 in _int_free () from /lib/tls/libc.so.6 #5 0x00172afa in free () from /lib/tls/libc.so.6 #6 0x00824762 in *_gfortrani_internal_free (mem=0x87e2278) at ../../../gcc-clean/libgfortran/runtime/memory.c:203 #7 0x08048a8d in MAIN__ () at forall_3.f90:28 #8 0x08048c73 in main (argc=0, argv=0x0) at ../../../gcc-clean/libgfortran/fmain.c:18 (gdb) frame 7 #7 0x08048a8d in MAIN__ () at forall_3.f90:28 28 forall (i=1:5,v(i)%valid) (gdb) l 23 v(2)%p(:) = (/1, 2, 3, 4, 5, 6, 7, 8/) 24 v(4)%p(:) = (/13, 14, 15, 16, 17, 18, 19, 20/) 25 v(5)%p(:) = (/11, 12/) 26 27 28 forall (i=1:5,v(i)%valid) 29 v(i)%p(1:v(i)%s) = v(6-i)%p(1:v(i)%s) 30 end forall 31 32 if (any(v(1)%p(:) .ne. (/11, 10/))) call abort (gdb) -- http://gcc.gnu.org/bugzilla/show_bug.cgi?id=15080