This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[fortran, patch] patch for power.f90 in testsuits.
- 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: Fri, 30 Apr 2004 17:42:03 +0800 (CST)
- Subject: [fortran, patch] patch for power.f90 in testsuits.
This is the test case of expanding powi.
Only three attached files are allowed in one yahoo e-mail.
Feng Wang
ChangeLog.tree-ssa
2004-04-30 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.fortran-torture/execute/power.f90: Add powi test.
_________________________________________________________
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
*** ../gcc/gcc/testsuite/gfortran.fortran-torture/execute/power.f90 2003-07-26 08:27:49.000000000 -0800
--- power.f90 2004-04-30 20:25:36.000000000 -0800
*************** program testpow
*** 3,11 ****
implicit none
real(kind=4) r, s, two
real(kind=8) :: q
! complex(kind=4) :: c
real, parameter :: del = 0.0001
! integer i
two = 2.0
--- 3,43 ----
implicit none
real(kind=4) r, s, two
real(kind=8) :: q
! complex(kind=4) :: c, z
real, parameter :: del = 0.0001
! integer i, j
!
! i = 2
! j = i ** 10
! if (abs (j - 1024) .gt. del) call abort
! j = i ** (-10)
! if (abs (j - 0) .gt. del) call abort
! j = i ** 0
! if (abs (j - 1) .gt. del) call abort
! i = 1
! j = i ** 10
! if (abs (j - 1) .gt. del) call abort
! j = i ** (-10)
! if (abs (j - 1) .gt. del) call abort
! j = i ** 0
! if (abs (j - 1) .gt. del) call abort
! i = -1
! j = i ** 10
! if (abs (j - 1) .gt. del) call abort
! j = i ** (-10)
! if (abs (j - 1) .gt. del) call abort
! j = i ** 0
! if (abs (j - 1) .gt. del) call abort
! j = i ** 11
! if (abs (j - (-1)) .gt. del) call abort
! j = i ** (-11)
! if (abs (j - (-1)) .gt. del) call abort
!
! c = (2.0, 3.0)
! z = c ** 2
! if (abs(z - (-5.0, 12.0)) .gt. del) call abort
! z = c ** 7
! if (abs(z - (6554.0, 4449.0)) .gt. del) call abort
two = 2.0