diff options
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 | 14 |
2 files changed, 13 insertions, 6 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index ae7cd80..8cbd3dd 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-07-28 Richard Henderson <rth@redhat.com> + + * gfortran.fortran-torture/execute/intrinsic_spacing.f90: Pass + arguments in the correct type. Don't write to constant arguments. + 2004-07-28 Diego Novillo <dnovillo@redhat.com> PR tree-optimization/16688 diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 index 4fac9f1..24b31da 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_spacing.f90 @@ -4,15 +4,16 @@ program test_spacing call test_real4(3.0) call test_real4(33.0) call test_real4(-3.) - call test_real4(0) - call test_real8(0) + call test_real4(0.0) + call test_real8(0.0_8) call test_real8(3.0_8) call test_real8(33.0_8) call test_real8(-33._8) end -subroutine test_real4(x) - real x,y,t +subroutine test_real4(orig) + real x,y,t,orig integer p + x = orig p = 24 y = 2.0 ** (exponent (x) - p) t = tiny(x) @@ -21,9 +22,10 @@ subroutine test_real4(x) .and. (abs (x - t) .gt. abs(x * 1e-6)))call abort end -subroutine test_real8(x) - real*8 x,y,t +subroutine test_real8(orig) + real*8 x,y,t,orig integer p + x = orig p = 53 y = 2.0 ** (exponent (x) - p) t = tiny (x) |