gamma_4.f90: Fix large-real kind selection.

2007-07-28  Dominique d'Humieres  <dominiq@lps.ens.fr>

	* gfortran.dg/gamma_4.f90: Fix large-real kind selection.

From-SVN: r127861

diff --git a/gcc/testsuite/ChangeLog b/gcc/testsuite/ChangeLog
index 050c62d95ae74e7dc1c58f008d28764b911b2811..1ab202ab167a04672bf22234eed6d80c633f8187 100644 (file)
--- a/gcc/testsuite/ChangeLog
+++ b/gcc/testsuite/ChangeLog
@@ -1,3 +1,7 @@
+2007-07-28  Dominique d'Humieres  <dominiq@lps.ens.fr>
+
+       * gfortran.dg/gamma_4.f90: Fix large-real kind selection.
+
 2007-08-28  Francois-Xavier Coudert  <fxcoudert@gcc.gnu.org>
 
        * gfortran.dg/gamma_1.f90: Remove large-real tests.

diff --git a/gcc/testsuite/gfortran.dg/gamma_4.f90 b/gcc/testsuite/gfortran.dg/gamma_4.f90
index 807f25a7d60f37fd92a9d269c33dc96790a540a9..a351f77958ad30bcc731b247e6ebae7e8a0b0f3e 100644 (file)
--- a/gcc/testsuite/gfortran.dg/gamma_4.f90
+++ b/gcc/testsuite/gfortran.dg/gamma_4.f90
@@ -10,7 +10,7 @@
 program gamma_test
 implicit none
 intrinsic :: gamma, lgamma
-integer, parameter :: qp = selected_real_kind(p=15,r=900)
+integer, parameter :: qp = selected_real_kind(precision (0.0_8) + 1)
 
 real(qp) :: rqp