diff options
| author | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-28 22:04:28 +0000 |
|---|---|---|
| committer | rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4> | 2004-07-28 22:04:28 +0000 |
| commit | e1ea7003cdc23e06c069412958725c65abdd1d04 (patch) | |
| tree | 5895bcad2e9606319a532ac7db667fe120b05730 | |
| parent | 8e51eac0149bdc641a31ff8f202d2adc625220af (diff) | |
| download | ppe42-gcc-e1ea7003cdc23e06c069412958725c65abdd1d04.tar.gz ppe42-gcc-e1ea7003cdc23e06c069412958725c65abdd1d04.zip | |
* gfortran.fortran-torture/execute/intrinsic_spacing.f90: Pass
arguments in the correct type. Don't write to constant arguments.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@85272 138bc75d-0d04-0410-961f-82ee72b054a4
| -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 ae7cd8024da..8cbd3dd8a51 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 4fac9f1b303..24b31dac2a6 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) |
