diff options
| author | Richard Henderson <rth@redhat.com> | 2004-08-25 22:30:51 -0700 |
|---|---|---|
| committer | Richard Henderson <rth@gcc.gnu.org> | 2004-08-25 22:30:51 -0700 |
| commit | 026351f55206fb1127961d7c3ce198d653585b0e (patch) | |
| tree | c7b2945fc428c043d6ab1b9369f2d1fc3653a676 | |
| parent | 7e233208cdc2d479fd020ed0973a067765784e94 (diff) | |
| download | gcc-026351f55206fb1127961d7c3ce198d653585b0e.tar.gz | |
intrinsic_sr_kind.f90: Disable the bits that expect kind=8 to be the largest real kind.
* gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable
the bits that expect kind=8 to be the largest real kind.
From-SVN: r86604
| -rw-r--r-- | gcc/testsuite/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 | 29 |
2 files changed, 20 insertions, 14 deletions
diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog index 4490f6e3386..2858b420de1 100644 --- a/gcc/testsuite/ChangeLog +++ b/gcc/testsuite/ChangeLog @@ -1,3 +1,8 @@ +2004-08-25 Richard Henderson <rth@redhat.com> + + * gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable + the bits that expect kind=8 to be the largest real kind. + 2004-08-25 Ziemowit Laski <zlaski@apple.com> * objc.dg/const-str-3.m: Include <stdlib.h> and <memory.h>. diff --git a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 index fe2f978197d..c34a6ca5568 100644 --- a/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 +++ b/gcc/testsuite/gfortran.fortran-torture/execute/intrinsic_sr_kind.f90 @@ -18,8 +18,9 @@ Program test_sr_kind res = selected_real_kind (r = i8) if (res .ne. 8) call abort - res = selected_real_kind (r = (i8 + 1)) - if (res .ne. -2) call abort +! We can in fact have kinds wider than r8. How do we want to check? +! res = selected_real_kind (r = (i8 + 1)) +! if (res .ne. -2) call abort res = selected_real_kind (p = precision (r4)) if (res .ne. 4) call abort @@ -30,8 +31,8 @@ Program test_sr_kind res = selected_real_kind (p = precision (r4), r = i8) if (res .ne. 8) call abort - res = selected_real_kind (p = precision (r4), r = i8 + 1) - if (res .ne. -2) call abort +! res = selected_real_kind (p = precision (r4), r = i8 + 1) +! if (res .ne. -2) call abort res = selected_real_kind (p = precision (r8)) if (res .ne. 8) call abort @@ -42,20 +43,20 @@ Program test_sr_kind res = selected_real_kind (p = precision (r8), r = i8) if (res .ne. 8) call abort - res = selected_real_kind (p = precision (r8), r = i8 + 1) - if (res .ne. -2) call abort +! res = selected_real_kind (p = precision (r8), r = i8 + 1) +! if (res .ne. -2) call abort - res = selected_real_kind (p = (precision (r8) + 1)) - if (res .ne. -1) call abort +! res = selected_real_kind (p = (precision (r8) + 1)) +! if (res .ne. -1) call abort - res = selected_real_kind (p = (precision (r8) + 1), r = i4) - if (res .ne. -1) call abort +! res = selected_real_kind (p = (precision (r8) + 1), r = i4) +! if (res .ne. -1) call abort - res = selected_real_kind (p = (precision (r8) + 1), r = i8) - if (res .ne. -1) call abort +! res = selected_real_kind (p = (precision (r8) + 1), r = i8) +! if (res .ne. -1) call abort - res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1) - if (res .ne. -3) call abort +! res = selected_real_kind (p = (precision (r8) + 1), r = i8 + 1) +! if (res .ne. -3) call abort end |