diff options
| author | Richard Henderson <rth@redhat.com> | 2004-07-28 15:04:28 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-07-28 15:04:28 -0700 |
| commit | 1fd0ec3576405da64e9c50637b459c4d65d03c8f (patch) | |
| tree | 5895bcad2e9606319a532ac7db667fe120b05730 /gcc | |
| parent | e1175f68773b0561c4b215032028f7543b1ae663 (diff) | |
| download | gcc-1fd0ec3576405da64e9c50637b459c4d65d03c8f.zip gcc-1fd0ec3576405da64e9c50637b459c4d65d03c8f.tar.gz gcc-1fd0ec3576405da64e9c50637b459c4d65d03c8f.tar.bz2 | |
intrinsic_spacing.f90: Pass arguments in the correct type.
* gfortran.fortran-torture/execute/intrinsic_spacing.f90: Pass
arguments in the correct type. Don't write to constant arguments.
From-SVN: r85272
Diffstat (limited to 'gcc')
| -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) |