This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran] Patch for test suite program: intrinsic_fraction_exponent.f90
- From: Feng Wang <fengwang at nudt dot edu dot cn>
- To: gcc-patches at gcc dot gnu dot org, fortran at gcc dot gnu dot org
- Date: Mon, 3 Nov 2003 11:41:50 +0800 (HKT)
- Subject: [gfortran] Patch for test suite program: intrinsic_fraction_exponent.f90
- Reply-to: Feng Wang <fengwang at nudt dot edu dot cn>
Hi, all
The attached patch fix two errors in
intrinsic_fraction_exponent.f90, which make the test
abort in ia64 with -O2 and -O3 option.
The Changlog entry:
2003-11-3 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.fortran-
torture/excute/intrinsic_fraction_exponent.f90: Fix two
errors.
Feng Wang
*** /home/wf/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 Wed Oct 22 18:54:32 2003
--- intrinsic_fraction_exponent.f90 Fri Sep 19 10:26:52 2003
*************** program test_exponent_fraction
*** 57,75 ****
end
subroutine test_4(x)
! real*4 x,y,z
y = fraction (x)
z = exponent(x)
! y = y * 2 * (2 ** (z - 1))
if (x.ne.y) call abort()
end
subroutine test_8(x)
! real*8 x, y, z
!
y = fraction (x)
z = exponent(x)
! y = y * 2 * (2 ** (z-1))
if (x.ne.y) call abort()
end
--- 57,84 ----
end
subroutine test_4(x)
! real*4 x,y
! integer z
y = fraction (x)
z = exponent(x)
! if (z .gt. 0) then
! y = (y * 2.) * (2. ** (z - 1))
! else
! y = (y / 2.) * (2. ** (z + 1))
! end if
if (x.ne.y) call abort()
end
subroutine test_8(x)
! real*8 x, y
! integer z
y = fraction (x)
z = exponent(x)
! if (z .gt. 0) then
! y = (y * 2.) * (2._8 ** (z - 1))
! else
! y = (y / 2.) * (2._8 ** (z + 1))
! end if
if (x.ne.y) call abort()
end