This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[gfortran, patch] Old patches needed to apply.
- 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
- Cc: paul at nowt dot org
- Date: Mon, 1 Dec 2003 12:02:42 +0800 (HKT)
- Subject: [gfortran, patch] Old patches needed to apply.
- Reply-to: Feng Wang <fengwang at nudt dot edu dot cn>
Hi, Paul
I think the two patches you said ok have not applied
yet. Please help me apply. I have no CVS access writing.
Thanks.
The first Changelog entry:
2003-12-01 Feng Wang <fengwang@nudt.edu.cn>
* gfortran.fortran-
torture/excute/intrinsic_fraction_exponent.f90: Fix an
error about checking the equal of floating point
numbers and a return type error of EXPONENT intrinsic
function.
* gfortran.fortran-
torture/excute/intrinsic_scale.f90: Fix an error about
checking the equal of floating point numbers and delete
a variable.
The second:
2003-12-01 Feng Wang <fengwang@nudt.edu.cn>
* io.c (gfc_match_format): Check if missing
format label.
Feng Wang
diff -c3p /home/wf/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_fraction_exponent.f90 ./intrinsic_fraction_exponent.f90
*** /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 Tue Nov 4 10:02:58 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 (abs (x - y) .gt. abs(x * 1e-6)) 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._8) * (2._8 ** (z - 1))
! else
! y = (y / 2._8) * (2._8 ** (z + 1))
! end if
! if (abs (x - y) .gt. abs(x * 1e-6)) call abort()
end
diff -c3p /home/wf/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 ./intrinsic_scale.f90
*** /home/wf/gcc/gcc/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_scale.f90 Wed Oct 22 18:54:33 2003
--- ./intrinsic_scale.f90 Tue Nov 4 10:03:11 2003
*************** subroutine test_real4 (x, i)
*** 15,22 ****
integer i
y = x * (2.0 ** i)
x = scale (x, i)
! if ((abs (x - y) .gt. abs(x * 1e-6)) &
! .and. (abs (x - t) .gt. abs(x * 1e-6)))call abort
end
subroutine test_real8 (x, i)
--- 15,21 ----
integer i
y = x * (2.0 ** i)
x = scale (x, i)
! if (abs (x - y) .gt. abs(x * 1e-6)) call abort
end
subroutine test_real8 (x, i)
*************** subroutine test_real8 (x, i)
*** 24,29 ****
integer i
y = x * (2.0 ** i)
x = scale (x, i)
! if ((abs (x - y) .gt. abs(x * 1e-6)) &
! .and. (abs (x - t) .gt. abs(x * 1e-6)))call abort
end
--- 23,27 ----
integer i
y = x * (2.0 ** i)
x = scale (x, i)
! if (abs (x - y) .gt. abs(x * 1e-6)) call abort
end
*** gcc/gcc/fortran/io.c Sun Sep 14 09:13:30 2003
--- ../gcc/gcc/fortran/io.c Tue Nov 25 22:21:54 2003
*************** gfc_match_format (void)
*** 771,776 ****
--- 771,781 ----
gfc_expr *e;
locus start;
+ if (gfc_statement_label == NULL)
+ {
+ gfc_error ("Missing format label at %C");
+ return MATCH_ERROR;
+ }
gfc_gobble_whitespace ();
mode = MODE_FORMAT;