https://gcc.gnu.org/bugzilla/show_bug.cgi?id=63778
--- Comment #8 from H.J. Lu <hjl.tools at gmail dot com> ---
[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 <http://gcc.gnu.org/bugs.html> for instructions.
[hjl@gnu-mic-2 delta-fortran]$
