* PATCH: PR tree-optimization/63778: [5 Regression] Segfault with r217178 building 416.gamess from cpu2006
@ 2014-11-10 18:11 H.J. Lu
0 siblings, 0 replies; only message in thread
From: H.J. Lu @ 2014-11-10 18:11 UTC (permalink / raw)
To: gcc-patches
I checked in this patch to add a testcase for PR tree-optimization/63778.
H.J.
---
Index: ChangeLog
===================================================================
--- ChangeLog (revision 217303)
+++ ChangeLog (working copy)
@@ -1,3 +1,8 @@
+2014-11-10 H.J. Lu <hongjiu.lu@intel.com>
+
+ PR tree-optimization/63778
+ * gfortran.dg/pr63778.f: New test.
+
2014-11-10 Renlin Li <renlin.li@arm.com>
PR middle-end/61529
Index: gfortran.dg/pr63778.f
===================================================================
--- gfortran.dg/pr63778.f (revision 0)
+++ gfortran.dg/pr63778.f (working copy)
@@ -0,0 +1,46 @@
+! { dg-do compile }
+! { dg-options "-O3 -ffast-math" }
+
+ 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
^ permalink raw reply [flat|nested] only message in thread
only message in thread, other threads:[~2014-11-10 18:09 UTC | newest]
Thread overview: (only message) (download: mbox.gz / follow: Atom feed)
-- links below jump to the message on this page --
2014-11-10 18:11 PATCH: PR tree-optimization/63778: [5 Regression] Segfault with r217178 building 416.gamess from cpu2006 H.J. Lu
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).