This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[fortran,patch] Patch for PR 14817 - Fix complex divide.
- From: Feng Wang <wf_cs at yahoo dot com>
- To: fortran <fortran at gcc dot gnu dot org>, patch <gcc-patches at gcc dot gnu dot org>
- Date: Mon, 19 Apr 2004 10:29:23 +0800 (CST)
- Subject: [fortran,patch] Patch for PR 14817 - Fix complex divide.
Hi, all
This patch fix PR 14817.
Feng Wang
ChangeLog entry:
2004-04-19 Feng Wang <fengwang@nudt.edu.cn>
PR 14817
* arith.c (gfc_arith_divide): Fix complex divide.
_________________________________________________________
Do You Yahoo!?
惠普TT游戏剧，玩游戏，中大奖！
http://cn.rd.yahoo.com/mail_cn/tag/SIG=1402c0to2/**http%3A%2F%2Fhp.allyes.com%2Flaserjet%2Fgamestory%2Findex.html%3Fjumpid%3Dex_hphqapcn_MongooseLJ1010%2F201073CN407016%2FYahoo
*** ../../../fortran/arith.c Mon Apr 12 10:22:45 2004
--- arith.c Mon Apr 19 08:56:54 2004
*************** gfc_arith_divide (gfc_expr * op1, gfc_ex
*** 1405,1412 ****
mpf_mul (x, op1->value.complex.i, op2->value.complex.r);
mpf_mul (y, op1->value.complex.r, op2->value.complex.i);
! mpf_sub (result->value.complex.r, x, y);
! mpf_div (result->value.complex.r, result->value.complex.r, div);
mpf_clear (x);
mpf_clear (y);
--- 1446,1453 ----
mpf_mul (x, op1->value.complex.i, op2->value.complex.r);
mpf_mul (y, op1->value.complex.r, op2->value.complex.i);
! mpf_sub (result->value.complex.i, x, y);
! mpf_div (result->value.complex.i, result->value.complex.i, div);
mpf_clear (x);
mpf_clear (y);