Blame SOURCES/gcc34-rh233941.patch
|
 |
6693b3 |
2007-04-02 Jakub Jelinek <jakub@redhat.com>
|
|
|
6693b3 |
|
|
|
6693b3 |
* expr.c (expand_expr_real) <case COMPLEX_EXPR>: Force op1
|
|
|
6693b3 |
into register if target overlaps with op1.
|
|
|
6693b3 |
|
|
|
6693b3 |
* g77.f-torture/execute/20070402.f: New test.
|
|
|
6693b3 |
|
|
|
6693b3 |
--- gcc/expr.c.jj 2006-10-05 00:37:01.000000000 +0200
|
|
|
6693b3 |
+++ gcc/expr.c 2007-04-02 13:28:52.000000000 +0200
|
|
|
6693b3 |
@@ -8949,6 +8949,9 @@ expand_expr_real (tree exp, rtx target,
|
|
|
6693b3 |
|
|
|
6693b3 |
if (! target)
|
|
|
6693b3 |
target = gen_reg_rtx (TYPE_MODE (TREE_TYPE (exp)));
|
|
|
6693b3 |
+ else if (GET_CODE (target) == MEM
|
|
|
6693b3 |
+ && reg_overlap_mentioned_p (target, op1))
|
|
|
6693b3 |
+ op1 = force_reg (mode, op1);
|
|
|
6693b3 |
|
|
|
6693b3 |
start_sequence ();
|
|
|
6693b3 |
|
|
|
6693b3 |
--- gcc/testsuite/g77.f-torture/execute/20070402.f.jj 2007-04-02 13:29:51.000000000 +0200
|
|
|
6693b3 |
+++ gcc/testsuite/g77.f-torture/execute/20070402.f 2007-04-02 12:11:00.000000000 +0200
|
|
|
6693b3 |
@@ -0,0 +1,21 @@
|
|
|
6693b3 |
+ program rh233941
|
|
|
6693b3 |
+ implicit none
|
|
|
6693b3 |
+ complex*16 z
|
|
|
6693b3 |
+ z = dcmplx(1.0, 2.0)
|
|
|
6693b3 |
+ call sub(z)
|
|
|
6693b3 |
+ stop
|
|
|
6693b3 |
+ end program rh233941
|
|
|
6693b3 |
+
|
|
|
6693b3 |
+ subroutine sub(z)
|
|
|
6693b3 |
+ implicit none
|
|
|
6693b3 |
+ complex*16 z
|
|
|
6693b3 |
+ z = dcmplx(-dimag(z), dreal(z))
|
|
|
6693b3 |
+ call sub2(z)
|
|
|
6693b3 |
+ return
|
|
|
6693b3 |
+ end subroutine sub
|
|
|
6693b3 |
+
|
|
|
6693b3 |
+ subroutine sub2(z)
|
|
|
6693b3 |
+ implicit none
|
|
|
6693b3 |
+ complex*16 z
|
|
|
6693b3 |
+ if (dreal(z).ne.-2.0.or.dimag(z).ne.1.0) call abort
|
|
|
6693b3 |
+ end subroutine sub2
|