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

gcc/testsuite/ChangeLog

+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.

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