From 12b65d0eb5a2aa85027e7dae5008cc1988e8bfcf Mon Sep 17 00:00:00 2001
From: rth <rth@138bc75d-0d04-0410-961f-82ee72b054a4>
Date: Thu, 26 Aug 2004 05:30:51 +0000
Subject: [PATCH] 	*
 gfortran.fortran-torture/execute/intrinsic_sr_kind.f90: Disable         the
 bits that expect kind=8 to be the largest real kind.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@86604 138bc75d-0d04-0410-961f-82ee72b054a4
---
 gcc/testsuite/ChangeLog                       |  5 ++++
 .../execute/intrinsic_sr_kind.f90             | 29 ++++++++++---------
 2 files changed, 20 insertions(+), 14 deletions(-)

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 4490f6e3386e..2858b420de1f 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 fe2f978197dc..c34a6ca5568d 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
 
-- 
GitLab