From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: (qmail 1927 invoked by alias); 10 Nov 2014 17:48:36 -0000 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 Received: (qmail 1863 invoked by uid 48); 10 Nov 2014 17:48:31 -0000 From: "hjl.tools at gmail dot com" To: gcc-bugs@gcc.gnu.org Subject: [Bug tree-optimization/63778] [5 Regression] Segfault with r217178 building 416.gamess from cpu2006 Date: Mon, 10 Nov 2014 17:48:00 -0000 X-Bugzilla-Reason: CC X-Bugzilla-Type: changed X-Bugzilla-Watch-Reason: None X-Bugzilla-Product: gcc X-Bugzilla-Component: tree-optimization X-Bugzilla-Version: 5.0 X-Bugzilla-Keywords: X-Bugzilla-Severity: normal X-Bugzilla-Who: hjl.tools at gmail dot com X-Bugzilla-Status: RESOLVED X-Bugzilla-Priority: P3 X-Bugzilla-Assigned-To: rguenth at gcc dot gnu.org X-Bugzilla-Target-Milestone: 5.0 X-Bugzilla-Flags: X-Bugzilla-Changed-Fields: Message-ID: In-Reply-To: References: Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: 7bit X-Bugzilla-URL: http://gcc.gnu.org/bugzilla/ Auto-Submitted: auto-generated MIME-Version: 1.0 X-SW-Source: 2014-11/txt/msg00751.txt.bz2 https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63778 --- Comment #8 from H.J. Lu --- [hjl@gnu-mic-2 delta-fortran]$ cat foo.f SUBROUTINE ZUNG2L( M, N, K, A, LDA, TAU, WORK, INFO ) COMPLEX*16 A( LDA, * ), TAU( * ), WORK( * ) IF( M.LT.0 ) THEN END IF CALL ZLARF( 'LEFT', M-N+II, II-1, A( 1, II ), 1, TAU( I ), A, $ LDA, WORK ) CALL ZSCAL( M-N+II-1, -TAU( I ), A( 1, II ), 1 ) A( M-N+II, II ) = ONE - TAU( I ) END SUBROUTINE ZLARF( SIDE, M, N, V, INCV, TAU, C, LDC, WORK ) CHARACTER SIDE(*) LOGICAL LSAME COMPLEX*16 C( LDC, * ), V(*), WORK(*), TAU IF( LSAME( SIDE, 'L' ) ) THEN IF( TAU.NE.ZERO ) THEN CALL ZGEMV( 'CONJUGATE TRANSPOSE', M, N, ONE, C, LDC, V, $ INCV, ZERO, WORK, 1 ) END IF END IF END LOGICAL FUNCTION LSAME( CA, CB ) CHARACTER CA(*), CB(*) END SUBROUTINE ZGEMV ( TRANS, M, N, ALPHA, A, LDA, X, INCX, $ BETA, Y, INCY ) COMPLEX*16 A( LDA, * ), X( * ), Y( * ) CHARACTER TRANS(*) LOGICAL LSAME IF( LSAME( TRANS, 'N' ) )THEN IF( INCY.EQ.1 )THEN IF( X( JX ).NE.ZERO )THEN Y( I ) = Y( I ) + TEMP*A( I, J ) END IF END IF END IF END SUBROUTINE ZSCAL(N,ZA,ZX,INCX) COMPLEX*16 ZA,ZX(1) IF( N.LE.0 .OR. INCX.LE.0 )RETURN 20 DO 30 I = 1,N ZX(I) = ZA*ZX(I) 30 CONTINUE END [hjl@gnu-mic-2 delta-fortran]$ /export/build/gnu/gcc/build-x86_64-linux/gcc/xgcc -B/export/build/gnu/gcc/build-x86_64-linux/gcc/ -S -O3 -ffast-math foo.f f951: internal compiler error: Segmentation fault 0xd34f3a crash_signal /export/gnu/import/git/gcc/gcc/toplev.c:358 0xa7b28f gimple_code /export/gnu/import/git/gcc/gcc/gimple.h:1412 0xa7b46c is_gimple_assign /export/gnu/import/git/gcc/gcc/gimple.h:2124 0xa7f816 gimple_simplify /export/build/gnu/gcc/build-x86_64-linux/gcc/gimple-match.c:493 0xa7bcbe gimple_resimplify1 /export/gnu/import/git/gcc/gcc/gimple-match-head.c:125 0xa7d6f0 gimple_simplify(gimple_statement_base*, code_helper*, tree_node**, gimple_statement_base**, tree_node* (*)(tree_node*)) /export/gnu/import/git/gcc/gcc/gimple-match-head.c:651 0xa711c4 fold_stmt_1 /export/gnu/import/git/gcc/gcc/gimple-fold.c:3074 0xa71ad0 fold_stmt(gimple_stmt_iterator*) /export/gnu/import/git/gcc/gcc/gimple-fold.c:3253 0xaaa65c maybe_fold_stmt /export/gnu/import/git/gcc/gcc/gimplify.c:2258 0xab3f64 gimplify_modify_expr /export/gnu/import/git/gcc/gcc/gimplify.c:4682 0xac0d43 gimplify_expr(tree_node**, gimple_statement_base**, gimple_statement_base**, bool (*)(tree_node*), int) /export/gnu/import/git/gcc/gcc/gimplify.c:7693 0xab68ae gimplify_stmt(tree_node**, gimple_statement_base**) /export/gnu/import/git/gcc/gcc/gimplify.c:5434 0xaa4a03 gimplify_and_add(tree_node*, gimple_statement_base**) /export/gnu/import/git/gcc/gcc/gimplify.c:397 0xaa5104 internal_get_tmp_var /export/gnu/import/git/gcc/gcc/gimplify.c:542 0xaa5145 get_formal_tmp_var(tree_node*, gimple_statement_base**) /export/gnu/import/git/gcc/gcc/gimplify.c:563 0xac3e4d gimplify_expr(tree_node**, gimple_statement_base**, gimple_statement_base**, bool (*)(tree_node*), int) /export/gnu/import/git/gcc/gcc/gimplify.c:8592 0xac7613 force_gimple_operand_1(tree_node*, gimple_statement_base**, bool (*)(tree_node*), tree_node*) /export/gnu/import/git/gcc/gcc/gimplify-me.c:93 0xac76cc force_gimple_operand_gsi_1(gimple_stmt_iterator*, tree_node*, bool (*)(tree_node*), tree_node*, bool, gsi_iterator_update) /export/gnu/import/git/gcc/gcc/gimplify-me.c:130 0xac7777 force_gimple_operand_gsi(gimple_stmt_iterator*, tree_node*, bool, tree_node*, bool, gsi_iterator_update) /export/gnu/import/git/gcc/gcc/gimplify-me.c:159 0xd7da7a gimplify_build2(gimple_stmt_iterator*, tree_code, tree_node*, tree_node*, tree_node*) /export/gnu/import/git/gcc/gcc/tree-cfg.c:8223 Please submit a full bug report, with preprocessed source if appropriate. Please include the complete backtrace with any bug report. See for instructions. [hjl@gnu-mic-2 delta-fortran]$